index3.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

150,如何使用ADO实现UPDATE等查询 
在 使 用 DAO控 件 时 ,可 这 样 执 行 一 update语 句 (dao.database.execute "update ...)。 问 如 何 使 用 Ado控 件 实 现 相 同 的 功 能 。 
<END>
151,如何显示查询结果 
1.我 在 c:\vbzy目 录 下 建 立 了 一 个 名 为 zdrk.mdb 的 数 据 库 文 件 ， 该 文 件 里 建 了 一 个 表 ： 家 庭 成 员 ， 里 面 包 含 两 个 字 段 ： 姓 名 ， 出 生 年 月 
    2、 我 用 VB6建 了 个 窗 体 里 面 有 两 个 TEXTBOX 分 别 用 来 显 示 姓 名 和 出 生 年 月 还 有 个 查 询 按 纽 
    3、 我 点 击 查 询 后 
     dim db as database 
     dim re as recordset 
     set db=dbengine.workspaces(0).opendatabase("c:\vbzy\zdrk.mdb") 
     set re=db.openrecordset("重 点 人 口 ",dbopentable) 
     if re.recordcount>0 then 
     re.movefirst 
     do until re.eof 
     if re("姓 名 ")="庄 严 " then 
    把 查 到 的 记 录 的 相 关 字 段 如 何 显 示 到 我 那 两 个 文 本 框 中 ？ 就 是 每 一 个 字 段 的 内 容 如 何 赋 值 给 TEXTBOX中 ， 前 题 有 两 个 
    1、 所 有 记 录 中 只 有 一 条 符 合 条 件 2、 有 两 条 以 上 符 合 条 件 
    如 果 有 两 条 以 上 那 么 在 查 询 按 纽 边 上 动 态 显 示 下 一 个 按 纽 并 且 在 我 按 了 下 一 个 按 纽 后 又 把 下 一 条 符 合 的 记 录 的 字 段 内 容 显 示 在 相 应 的 TEXTBOX中 ， 结 束 后 又 动 态 的 显 示 上 一 个 按 纽 ， 按 上 一 个 按 纽 又 回 到 刚 才 显 示 的 符 合 条 件 的 记 录 ？ 
    end if 
    以 上 IF里 面 的 程 序 希 望 主 持 人 能 帮 忙 写 出 来 ， 本 人 表 示 万 分 感 谢 ！ 
<END>
152,如何建立数据库和表以及进行查询 
如 何 在 c:\zy 目 录 下 创 建 一 个 名 为 z.mdb 的 ASSESS 数 据 库 文 件 ？ 
    如 何 在 此 数 据 库 里 创 建 一 个 名 为 rk 的 表 ？ 在 此 表 里 如 何 创 建 两 个 字 段 1、 姓 名 2、 出 生 年 月 。 
    如 何 使 我 两 个 文 本 框 （ XB 和 CSNY ） 的 内 容 通 过 点 击 添 加 按 纽 加 入 到 数 据 库 中 ？ 
    如 何 根 据 姓 名 文 本 框 中 的 内 容 来 查 询 整 条 记 录 ， 并 把 每 条 字 段 显 示 到 相 应 的 文 本 框 中 ？ 
    如 何 在 查 询 的 结 果 中 修 改 文 本 框 的 内 容 等 于 修 改 相 应 的 字 段 内 容 ？ 
    如 何 删 除 整 条 记 录 ？ 
<END>
153,如何在ADO中用异步的方式打开一个RecordSet 
请问如何在ADO中用异步的方式打开一个RecordSet？ 因为我有一个SQL语句，用 
    RecordSet.Open "..." 的方式打开，时间会很长，我想让用户在OPEN 的时候能够取消OPEN 操作，该如何做？我用adExecuteAsync参数为什么不行？
<END>
154,如何删除一个表 
利 用 SQL的 SELECT...INTO将 查 询 结 果 生 成 一 个 新 表 ,作 为 临 时 表 ,存 放 打 印 报 表 用 的 数 据 ,请 问 打 印 完 成 后 如 何 删 除 该 表 ? 
<END>
155,实时显示数据库中某张表的纪录数和当前纪录号 
在 使 用 VB的 StatusBar控 件 时 ,若 要 在 不 同 窗 格 中 实 现 实 时 显 示 Access数 据 库 中 某 张 表 的 纪 录 数 和 当 前 纪 录 号 应 该 如 何 设 置 属 性 和 编 写 代 码 ? 
<END>
156,使用DAO对象出现“用户定义类型未定义”错误 
以 前 在 vb6中 可 以 使 用 向 下 面 的 句 子 ： 
     
    set db=opendatabasea("...") 
    set rb=db.recordset("...") 
    便 可 以 对 数 据 库 进 行 操 作 ， 但 现 在 在 VB6中 不 能 这 样 的 使 用 ， 请 问 在 VB6中 如 何 编 写 代 码 对 数 据 库 进 行 操 作 ？ 
<END>
157,mdb 库中能建立某些字段唯一的索引吗 
请 教 mdb 库 中 能 建 立 某 些 字 段 唯 一 的 索 引 吗 ， 请 注 意 我 的 MDB库 中 没 有 索 引 ， 且 有 很 多 个 字 段 ? 
<END>
158,开发数据库程序用什么工具 
请 专 家 明 确 回 答 ,开 发 数 据 库 程 序 到 底 VC+ODBC好 ,还 是 Delphi+BDE好 ,或 是 VB,PowerBuilder好 ?专 家 你 自 己 开 发 数 据 库 程 序 用 什 么 工 具 ？ 
<END>
159,VB中如何查询SQL Sever中某表字段为空的记录 
VB中 如 何 查 询 SQL Sever6.5中 某 表 字 段 为 空 的 记 录 ?我 用 sql server 6.5的 Isql查 询 (时 间 值 为 空 ):select * from tab1 where cxsj=Null 
    是 可 以 的 ,但 一 到 VB中 ,用 ADO的 Rs.open "select * from tab1 where cxsj=Null",cn,...却 查 出 为 空 结 果 集 。 
<END>
160,ADO中怎样才能保证对SQL Server的操作同步 
我 刚 用 VB6的 ADO连 接 进 行 SQL SERVER数 据 库 的 开 发 工 作 ， 现 有 一 个 问 题 请 教 ， 在 ADO中 怎 样 才 能 保 正 对 数 据 库 的 操 作 同 步 （ 比 如 ， 两 人 同 时 操 作 一 个 表 ， 都 进 行 同 一 修 改 操 作 ， 怎 样 才 能 保 所 作 的 修 改 能 及 时 通 知 另 一 个 人 呢 ？ ） 。 
<END>
161,将Ado Recordset动态绑定到Grid控件时出现3704号错误 
我 将 所 有 新 建 的 Ado Recordset添 加 到 集 合 ， 动 态 绑 定 到 Grid控 件 ， 以 便 保 持 对 Recordset的 修 改 (但 暂 不 保 存 到 数 据 库 中 )， 直 到 用 户 作 出 保 存 或 取 消 的 决 定 。 但 当 我 用 集 合 的 成 员 key引 用 某 个 Recordset后 ， 运 行 Recordset的 RecordCount属 性 ， 总 是 出 现 如 下 错 误 : 
     Run-time error '3704': 
     The operation requested by the application is not allowed if the object is closed. 
    代 码 大 致 如 下 ： 
     dim rs as adodb.recordset 
     dim myrecordset as adodb.recordset 
     dim coll as collection 
     
     set coll=new collection 
     ... 
     set myrecordset=new recordset 
     myrecordset.open ".." 
     .... 
     coll.add myrecordset,key 
     ... 
     set rs=coll(key) 
     rs.recordcount 
<END>
162,利用ADO访问SQL Server 7.0错误：类不支持自动化或不支持期望的接口 
Dim rst As New ADODB.Recordset 
    'adoc 为 adodb.connection 已经在启动模块中定义，且正常连接 
    '在开发环境下执行下列语句正常 
    '但是编译后，安装在WIN98环境下 
    ’执行时，出现以下错误信息: 
    '[运行时错误'430'] 
    '[类不支持自动化或不支持期望的接口] 
    rst.Open "select count(*) from sysobjects where xtype='U' and name='bbuser'", adoc 
    '请问，是何原因？已经安装安装了DCOM98.EXE和MDAC_TYP.EXE。在有些机器上可以正常运行，有些则不行。不知两种机器有何区别？ 
<END>
163,ADO中类似DAO中的NoMatch属性是什么 
在 DAO中 可 以 用 Recordset对 象 的 FindFirst,FindNext方 法 在 表 中 搜 索 满 足 条 件 的 记 录 ,在 ADO中 怎 样 实 现 这 种 功 能 呢 ?我 发 现 ADO的 Recordset对 象 有 Find方 法 和 Filter属 性 似 乎 是 完 成 以 上 功 能 的 。 但 是 不 知 道 ADO中 类 似 DAO中 的 NoMatch属 性 是 什 么 ,换 句 话 说 ,就 是 怎 样 才 知 道 查 找 的 结 果 呢 ?
<END>
164, 使用ADO编程的时候connection对象的Provider如何设置  
使 用 ADO编 程 的 时 候 ,connection对 象 的 Provider如 何 设 置 ？ 好 像 不 用 设 置 他 也 可 以 连 接 到 数 据 库 ， 我 只 见 过 可 以 把 他 设 置 为 SQLOLEDB,不 知 道 还 有 没 有 其 他 的 设 置 ？ 最 好 举 一 个 例 子 ， 谢 谢 。 
<END>
165,在ADO中对数据库设置不同的路径 
在ADO中如何实现类似DAO中的 data1.recordsource=app.path & "\test.mdb" ;即在ADO中对一本地的数据库设置不同的路径? 
<END>
166,如何将Excel表转换为Access 
在 vb环 境 下 ,如 何 通 过 编 程 或 使 用 某 种 控 件 将 外 部 读 入 的 excel 的 表 转 化 为 access的 表 ,加 入 一 已 有 的 access 的 mdb数 据 库 ,供 后 续 ado 使 用 。 
<END>
167,如何使用ADO打开带有密码的Access数据
我 在 askpro 网 址 上 查 找 使 用 VB打 开 带 有 密 码 的 ACCESS数 据 库 (“如何打开有密码ACCESS数据库”),例 子 只 有 DAO的 ,能 否 给 出 一 个 ADO的 例 子 ? 
<END>
168,如何把一个表的名称改为另一个名称 
请 问 在 VB6编 Access数 据 库 中 如 何 把 一 个 表 的 名 称 改 为 另 一 个 名 称 ? 
<END>
169,Like查询中文不准确 
请 问 在 vb60中 data1.recordset.findfirst "l1 like '*李 *'"进 行 查 找 记 录 ， 系 统 会 认 为 “ 章 世 发 ” 为 匹 配 的 记 录 为 什 么 ？ 
<END>
170,通过RAS远程拨号上NT后找不到指定的SQLSERVER服务器 
在 用 vb6开 发 程 序 时 ， 用 ADO1.0通 过 OBDC访 问 SQLSERVER65库 ， 在 ODBC连 接 字 符 串 中 写 有 SQL的 管 理 员 帐 号 与 密 码 ， 在 本 地 区 域 网 运 行 良 好 ， 但 在 远 程 通 过 RAS远 程 拨 号 上 NT后 无 法 运 行 ， 报 找 不 到 指 定 的 SQLSERVER服 务 器 ， 必 须 将 远 程 机 的 域 配 成 和 服 务 器 的 域 一 致 ， 才 可 找 到 服 务 器 ， 怎 样 才 能 在 远 程 不 上 域 就 可 访 问 SQL。 如 果 在 本 地 局 域 网 上 用 户 名 与 密 码 输 错 ， 能 访 问 NT上 的 IIS， 可 访 问 网 页 ， 但 连 不 到 SQL， 报 命 名 管 道 拒 绝 ， 即 使 在 ODBC连 接 字 符 串 里 写 有 管 理 员 密 码 及 帐 号 ， 也 将 SQL的 安 全 性 配 成 标 准 ， 不 与 NT集 成 也 不 行 ， 怎 样 才 能 不 通 过 NT直 接 用 TCPIP与 SQL通 讯 ， 连 到 SQLSERVER。
<END>
171,如何知道数据库中包括哪些表和字段 
最 近 在 学 习 VB数 据 库 编 程 中 遇 到 了 几 个 问 题 ， 现 向 你 请 教 。 
1、 如 何 才 能 知 道 MDB数 据 库 中 有 几 个 表 ， 表 名 是 什 么 。 
2、 表 里 有 几 个 字 段 ， 字 段 名 又 是 什 么 ， 字 段 宽 度 是 多 少 。 
需 要 用 程 序 知 道 。 
<END>
172,如何显示数据库中的试题和图形 
在 VB中 ， 如 何 将 数 据 库 中 的 试 题 和 图 形 存 放 在 同 一 控 件 中 ， 且 能 够 通 过 滚 动 条 阅 读 ？ 
<END>
173,如何给数据库加锁 
利 用 VB提 供 的 DAO访 问 Foxpro 2.5的 数 据 库 ,需 要 将 数 据 定 期 更 新 ,我 是 这 样 处 理 的 :一 直 尝 试 给 库 加 锁 ,直 到 成 功 为 止 ,然 后 将 新 的 数 据 覆 盖 老 的 数 据 ,不 知 可 行 吗 ?但 遇 到 一 个 问 题 :如 何 不 停 的 加 锁 呢 ?在 Foxpro 2.5中 可 以 用 FLOCK函 数 判 断 ,在 VB的 语 言 中 呢 ?如 果 这 个 方 法 不 行 ,那 么 用 什 么 方 法 ,并 且 更 容 易 实 现 ,效 率 更 高 呢 ?请 赐 教 ! 
<END>
174,如何将刷卡记录保存在数据库中 
单 位 有 一 个 磁 卡 机 ， 每 刷 一 次 产 生 一 个 文 本 文 件 record.txt， 其 中 第 四 位 开 始 的 五 位 是 每 个 职 工 的 编 号 ， 以 头 一 行 为 例 ： ２ ６ ５ ５ ７ － 职 工 编 号 ， ９ ９ ０ ５ ２ ９ ６ － ９ ９ 年 五 月 ２ ９ 日 星 期 六 ， １ ３ ３ ２ － １ ３ 点 ３ ２ 分 。 其 他 各 位 没 有 用 ， 如 何 把 每 行 的 数 据 读 出 转 化 到 程 序 中 的 数 据 库 中 ， 和 以 建 好 的 个 个 字 段 对 应 起 来 ， 以 建 好 的 数 据 库 表 有 三 个 字 段 ， 职 工 编 号 （ 已 录 入 ） ， 刷 卡 日 期 ， 刷 卡 时 间 。 
<END>
175,如何以ADO方式打开表单时获得表单所有的字段数目 
如 何 在 使 用 代 码 方 发 ， 以 ADO方 式 打 开 一 个 数 据 库 的 表 单 时 获 得 表 单 所 有 的 字 段 数 目 ？
<END>
176,如何在数据库中保存公式 
我正在做一套试题方面的程序，但题目中有大量的复杂数学公式，我需要将这些公式存放在SQL V6.5中，当生成试题时从SQL中读取这些公式，并将它们显示在屏幕上。 
    目前，文字录入人员采用WORD中的插入对象(Equation)的方法来录入公式，但我怎样才能从WORD中获取公式，并以何种方式存入SQL？或者，有什么其它的录入方法可以既便于输入，又便于我用VB来获取它们并存入SQL？ 
<END>
177,Form和表太多好不好 
小 弟 是 一 名 学 生 ， 因 才 蔬 学 浅 在 编 写 一 个 管 理 系 统 时 (用 vb6） ， 常 有 惊 人 之 举 ， 又 不 知 是 否 错 误 ， 我 现 在 的 程 序 有 60多 个 FORM， 而 库 中 ， 有 600多 个 表 ， 这 个 小 程 序 竟 有 15MB以 上 ， 而 且 会 内 存 溢 出 。 哇 ！ 谁 可 以 救 救 我 
    1.最 重 要 的 是 我 并 不 十 分 清 楚 ， 这 么 多 的 FORM是 否 有 害 ， 我 们 已 尽 量 把 FORM压 缩 的 最 小 ， 但 还 是 这 么 多 ， 因 为 每 个 界 面 都 要 有 一 个 FORM（ 我 们 已 压 缩 到 几 个 界 面 一 个 FORM， 但 要 做 的 实 在 多 ， 一 个 查 询 要 6， 7个 FORM， 请 问 是 否 有 方 法 ， 可 解 决 这 问 题 。 
    2.还 有 ， 表 太 多 好 不 好 。 
    3.我 们 的 代 码 并 不 十 分 多 ， 为 可 有 15MB这 么 大 ， 用 VB生 成 的 安 装 程 序 比 原 来 的 大 的 多 ， 请 问 是 否 有 其 它 方 法 解 决 。