index3.txt

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

    4.请 问 为 什 么 会 内 存 溢 出 （ 和 FORM多 有 关 吗 ？ ） 
<END>
178, 使用Visdata建立的文本数据库及表不能被保存  
使 用 Visdata建 立 的 文 本 数 据 库 及 表 不 能 被 保 存 （ 已 用 ‘ 关 闭 ’ 存 盘 ） ， 在 下 一 次 用 Visdata打 开 时 找 不 到 该 库 和 该 表 。 不 知 何 故 ， 请 赐 教 。 谢 谢 ！ 
<END>
179,如何修改ADO的RecordSet 
我 在 使 用 ADO控 件 ADODC的 RecordSet时 ， 要 对 记 录 进 行 修 改 ， 以 前 的 DAO有 Edit方 法 ， 后 可 用 Update更 新 ， 但 ADO中 却 没 有 Edit方 法 ， 请 问 如 何 使 用 修 改 功 能 ？ 
<END>
180,ADO执行Refresh语句说对象未打开 
我 用 的 数 据 库 是 Access7.0。 我 用 ado控 件 时 ， 想 给 RECORDSOURCE动 态 赋 上 删 除 ， 插 入 ， 修 改 语 句 ， 然 后 执 行 REFRESH语 句 ， 结 果 老 是 说 对 象 没 打 开 ， 但 是 ， 再 看 数 据 库 中 该 语 句 却 也 执 行 了 ， 当 我 另 换 成 SELECT 语 句 时 则 一 切 正 常 ， 请 问 这 是 怎 麽 回 事 。 以 下 是 我 的 代 码 ： 
    adodc1.recordsource="delete * from mytable" 
    adodc1.refresh 
    adodc1.recordsource="insert into mytable select * from anothertable 
    adodc1.refresh 
    每 次 运 行 到 adodc1.refresh语 句 就 说 对 象 未 打 开 。 SQL语 句 我 也 没 发 现 有 什 么 错 误 。 
<END>
181,简单的删除数据的办法 
请 问 在 vb6.0中 的 Recordset对 象 中 的 记 录 可 否 用 比 较 简 单 的 办 法 全 部 删 除 ， 我 现 在 使 用 
    For i=1 to recordset.count 
     recordset.delete 
     movenext 
    next 来 删 除 ， 比 较 麻 烦 ， 谢 谢 ！ 
<END>
182,如何将MSComm收到的数据保存在数据库中  
最 近 想 编 一 电 话 记 费 软 件 ， 用 vb mscomm接 收 交 换 机 从 com传 过 来 的 文 本 。 传 过 来 的 是 一 串 字 符 。 需 要 整 理 后 print 在 屏 幕 上 。 然 后 存 在 一 个 建 好 的 Access数 据 库 里 面 。 请 问 ： 
    1.如 何 从 接 收 的 字 符 串 定 义 若 干 个 变 量 ， 以 便 显 示 在 屏 幕 上 . 
     2.如 何 将 这 一 组 变 量 存 到 Access数 据 库 。 
     接 收 的 字 符 串 : 
     610 980103 12:00:00 00:00:11 61234567 .......... 
     610（ 分 机 号 码 ） 
     980103（ 日 期 ） 
    12:00:00(时 间 ) 
     00:00:11(时 长 ） 
     61234567（ 电 话 号 码 ） 
    在 分 解 该 行 中 的 各 个 信 息 （ 变 量 ） 之 前 ， 程 序 应 如 何 确 定 已 收 完 了 一 行 字 符 ？ （ 每 一 行 的 字 符 数 可 能 不 等 ， 行 尾 以 回 车 结 束 。 ） 此 时 用 MSCOMM的 “ 事 件 驱 动 ” 方 式 还 是 用 “ 查 询 ” 方 式 ？ 
<END>
183,记录集发生无当前记录的情况后，不能移动记录指针 
一 旦 记 录 集 发 生 无 当 前 记 录 的 情 况 后 ， 将 再 也 不 能 移 动 记 录 指 针 。 例 如 一 个 空 记 录 集 ， 当 我 用 AddNew的 方 法 后 ， 将 引 发 错 误 3426(操 作 被 关 联 对 象 取 消 !),而 记 录 集 中 的 每 个 字 段 都 是 允 许 空 值 的 ， 而 且 只 来 自 一 个 表 。 敬 请 多 多 指 教 ！ 
<END>
184,如何对得到的字符串进行分析并保存在数据库中 
1、 我 必 需 从 一 串 字 符 串 (交 换 机 指 令 )如 87:dn=k'85211460,en=h'30&1,orpt=zon; 
    中 分 解 87,dn,k'85211460,en,h'30&1,orpt,zon等 字 符 串 (dn,en,orpt字 符 串 的 位 置 不 固 定 ) 
    ,不 知 如 何 做 ,如 何 存 取 ,请 指 教 。 
    2、 我 的 程 序 有 一 个 ACCESS 97 数 据 库 ,内 有 一 表 ,字 段 名 为 dn,en,orpt,我 如 何 从 上 述 交 换 机 指 令 字 符 串 中 分 解 的 DN ,EN的 值 判 断 ,DN和 EN的 该 值 是 否 对 应 同 一 记 录 。 即 如 果 我 找 到 一 个 EN值 ,如 何 知 道 该 值 的 记 录 号 。 
    3、 如 果 上 述 交 换 机 指 令 字 符 串 中 所 附 的 值 跟 原 表 （ 结 构 如 上 ） 不 同 ,如 表 中 的 对 应 dn=k'8521146记 录 的 orpt字 段 名 的 值 为 offzon而 上 述 交 换 机 指 令 字 符 串 中 给 的 orpt=zon 我 如 何 用 zon 覆 盖 表 中 的 字 段 orpt的 offzon值 。 如 果 我 找 到 字 段 dn的 某 一 值 ， 如 dn=k'85211460。 我 如 何 得 到 该 记 录 中 另 一 字 段 如 en 的 值 。 
    4、 如 何 显 示 有 一 定 格 式 的 文 本 (文 本 中 的 部 分 值 根 据 我 的 指 令 （ 结 构 如 上 1） 或 数 据 库 内 容 可 以 刷 新 )。 
    5、 如 何 得 到 数 组 某 个 值 。 
    6、 在 FindFirst 中 字 段 名 可 否 用 变 量 ， 如 何 描 述 。 
<END>
185,DAO与ODBC有什么区别 
请 问 ， DAO（ 数 据 库 对 象 ） 与 ODBC（ 开 放 式 数 据 库 接 口 ） 有 什 么 区 别 ？ 应 用 起 来 有 什 么 不 同 ？ 
<END>
186,如何动态更新数据库显示 
我 是 证 券 电 脑 技 术 人 员 ， 我 想 问 如 何 在 本 地 用 VB实 现 对 服 务 器 上 的 动 态 行 情 库 show128.dbf进 行 动 态 显 示 ？ 我 已 能 显 示 行 情 ， 但 不 能 动 态 刷 新 。 
<END>
187,如何进行模糊查询 
我 是 一 名 初 学 者 ， 编 了 一 个 文 件 管 理 系 统 ， 使 用 ACCESS的 DB数 据 库 结 构 。 在 编 写 查 询 模 块 时 ， 我 使 用 了 以 下 语 句 ： 
    Private Sub Command3_Click() 
     With DatJJms.Recordset 
     Oldmark = .Bookmark 
     msg = Trim(InputBox("请 输 入 文 件 名 ", "查 询 ")) 
     msg = "文 件 名 ='" & msg & "'" 
     .FindFirst msg 
     If .NoMatch Then 
     MsgBox "没 有 符 合 的 数 据 " 
     .Bookmark = Oldmark 
     End If 
     End With 
    End Sub 
    运 行 结 果 ， 只 能 进 行 精 确 查 找 ， 也 就 是 必 须 完 整 地 输 入 一 个 文 件 名 ， 才 能 从 数 据 库 的 “ 文 件 名 ” 的 字 段 中 找 出 。 我 想 请 教 如 何 进 行 模 糊 查 找 。 比 如 ， 在 文 本 框 中 输 入 ： “ 决 算 ” 字 符 串 ， 就 可 以 把 所 有 包 含 “ 决 算 ” 字 符 串 的 文 件 名 都 列 出 ， 并 且 光 标 自 动 停 留 在 第 一 条 符 合 条 件 的 记 录 上 。 当 点 击 “ 查 找 下 一 个 ” 功 能 ， 光 标 能 自 动 移 到 下 一 个 符 合 条 件 的 文 件 上 。 （ 绑 定 DBGrid） 谢 谢 ！ 
<END>
188,在Load事件中无法取得Data控件的值 
各 位 大 侠 ： 小 弟 不 才 ， 现 遇 到 一 个 问 题 请 教 一 下 。 在 一 个 窗 体 LOAD过 程 中 ， 访 问 该 窗 体 上 的 一 个 对 象 DATA1， 把 该 对 象 字 段 的 值 读 出 来 赋 给 一 个 全 局 变 量 ， 为 何 取 不 到 值 ？ 这 种 方 法 不 行 采 用 何 种 方 法 呢 ？ 请 指 教 ， ！ ！ ！ 小 弟 谢 谢 了 ！ ！ 
<END>
189,怎样在VB中恢复用DELETE删除的数据 
怎 样 在 VB中 恢 复 用 DELETE删 除 的 数 据 ， 就 象 FOXPRO一 样 在 数 据 库 做 一 个 删 除 标 记 ， 然 后 用 RECAL ALL 恢 复 数 据 。 
<END>
190,检索数据库是否有符合条件的记录 
我在学用VB编数据库应用程序，现在有以下的问题： 
    数据库为:Access数据库，格式为：有三个字段ID：3，NO：8，NAME：8，字符型。 
    要编一个数据录入的界面，有三个文本框， 
    1、在ID文本框中输入ID号，如果数据库中有，就把NO和NAME字段显示在NO和NAME文本框中，不增加记录；如果数据库中没有，光标就到NO和NAME文本框中进行输入并增加一条记录。 
    2、在NO文本框中输入NO号，如果数据库中有，就把NAME字段显示在NAME文本框中，并在数据库中增加一条记录；如果数据库中没有，光标就到NAME文本框中进行输入并增加一条记录。 
<END>
191,VB和VFP到底哪种工具开发数据库好 
我 现 在 准 备 开 发 一 套 数 据 库 方 面 的 程 序 ， 由 于 我 原 来 的 开 发 是 在 FOXBASE上 进 行 的 ， 所 以 我 准 备 用 VFOXPRO来 开 发 这 套 系 统 。 但 是 我 实 际 使 用 后 发 现 VFOXPRO虽 然 对 数 据 库 操 作 比 较 方 便 ， 但 是 其 他 的 功 能 并 不 是 很 好 。 
    我 原 先 学 过 VBASIC， 对 她 的 编 程 习 惯 已 较 为 熟 悉 ， 原 以 为 FOXBASE+VBASIC=VFOXPRO， 但 是 ， 似 乎 不 是 我 想 象 的 那 样 。 鉴 于 以 上 的 情 况 ， 我 准 备 在 VBASIC上 开 发 这 套 系 统 。 我 现 在 想 问 的 是 ： 
    1） 开 发 这 类 程 序 到 底 哪 种 编 程 工 具 好 
    2） 如 果 我 非 要 用 VBASIC来 开 发 数 据 库 程 序 ， 有 没 有 像 VFOXPRO操 作 数 据 库 那 样 简 单 的 命 令 或 方 法 
    3） 如 果 哪 位 大 虾 有 在 VBASIC上 处 理 数 据 库 的 范 例 程 序 ， 希 望 能 让 我 参 考 一 下 。 
<END>
192,把一个表分成几个表好吗 
1、 我 想 利 用 ACCESS设 计 一 个 数 据 库 ， 以 人 事 管 理 为 例 ， “ 基 本 信 息 ” 表 中 有 以 下 字 段 ： 工 号 、 姓 名 、 性 别 、 科 室 ID、 婚 否 、 出 生 年 月 、 籍 贯 、 民 族 ID、 家 庭 地 址 、 联 系 电 话 、 职 称 ID、 毕 业 学 校 、 学 历 ID、 工 资 、 简 历 、 邮 政 编 码 、 毕 业 时 间 、 参 加 工 作 时 间 、 职 务 ID、 政 治 面 貌 、 入 团 时 间 、 入 党 时 间 、 任 职 情 况 、 科 研 情 况 、 奖 惩 、 备 注 ......等 将 近 50个 字 段 ， 每 一 个 字 段 都 是 与 该 职 工 有 关 的 必 要 信 息 ， 其 中 的 科 室 ID、 民 族 ID、 职 称 ID、 职 务 ID等 字 段 与 相 应 的 表 相 联 接 。 因 为 你 在 一 次 回 答 中 提 到 一 个 表 的 字 段 数 目 最 好 不 要 超 过 40个 ， 超 过 将 影 响 数 据 库 的 性 能 。 基 于 以 上 原 因 ， 我 有 必 要 将 这 个 基 本 信 息 表 分 为 两 或 三 个 表 吗 ？ 
    2、 我 在 ACCESS提 供 的 Nwind.mdb数 据 库 中 看 到 "发 货 单 ” 查 询 的 联 接 关 系 很 复 杂 ， 共 有 8个 表 相 互 联 接 ， 多 表 联 接 对 数 据 库 的 性 能 有 何 影 响 ？ 假 设 我 的 数 据 库 有 10--20万 条 记 录 ， 共 有 8个 表 相 互 联 接 ， 如 果 再 将 基 本 信 息 表 分 为 2-3个 表 的 话 ， 就 将 有 10多 个 表 相 互 联 接 了 ， 我 该 如 何 是 好 ？ 
<END>
193,在VB中如何来压缩以及修复MDB 文件 
在 VB中 如 何 写 程 序 来 压 缩 以 及 修 复 MDB 文 件 ？ 
<END>
194,如何设置双精度型的小数位 
我 在 access中 设 计 数 据 时 ， 设 [面 积 ]和 [面 积 占 比 ]两 字 段 为 
    字 段 大 小 ： 单 精 度 型 
    格 式 ： 整 型 
    小 数 位 数 ： 2 
    按 [面 积 占 比 ]=[面 积 ]/8.884,通 过 一 个 生 成 表 查 询 生 成 一 个 表 
    假 设 ： 面 积 =15.23 通 过 计 算 ,面 积 占 比 =1.71431787483 字 段 类 型 变 为 双 精 度 型 而 希 望 的 结 果 是 ： 面 积 为 数 字 型 两 位 小 数 ， 面 积 占 比 为 数 字 型 两 位 小 数 。 问 ： 在 ACCESS该 如 何 设 置 [面 积 ]和 [面 积 占 比 ]的 数 据 类 型 ？ 
<END>
195,DBF文件转换为一个MDB文件 
我 使 用 vb6， 我 想 把 3个 DBF文 件 转 换 为 一 个 MDB文 件 ， 如 何 做 ？ 
<END>
196,如何把RichText的内容存到Access数据库中 
如 何 把 richtext的 内 容 存 到 access数 据 库 中 , 包 括 richtext里 的 文 本 、 字 体 等 等 。 使 用 data控 件 ,并 将 richtext的 datasource指 向 data控 件 ,可 以 实 现 这 个 功 能 ,但 是 ,如 果 不 使 用 datasource来 指 向 , 能 不 能 将 richtext的 内 容 保 存 在 临 时 变 量 里 , 再 转 存 到 数 据 库 呢 ? 
<END>
197,如何将大量DBF数据转换为SQL Server 
现 有 一 个 DBF数 据 库 ,已 经 有 大 量 的 数 据 (近 2万 条 记 录 ),字 段 类 型 主 要 为 Char,Numeric(含 有 小 数 位 ),想 将 数 据 转 到 SQL-SERVER中 去 ,采 用 SQL-SERVER中 的 BCP命 令 只 能 拷 贝 字 符 型 的 记 录 ,对 于 数 字 型 的 将 如 何 处 理 ?请 赐 教 .BTW,还 有 没 有 别 的 什 么 语 句 (VB或 SQL-SERVER中 )可 以 实 现 批 量 拷 贝 记 录 ? 
<END>
198,把RECORDSET对象中的记录生成一个新的数据库 
请 问 如 何 把 DATA控 件 的 RECORDSET对 象 中 的 记 录 生 成 一 个 新 的 FOXPRO2.5数 据 库 。 请 写 出 代 码 。 
<END>     
199,VB中如何实现自动递增的字段 
在 VB中 使 用 MSFLEXGRID控 件 操 作 FOXPRO2.5数 据 库 （ 内 有 一 字 段 为 顺 序 号 ， 整 型 ， 顺 序 加 一 。 ） 时 ， 如 何 实 现 删 除 其 中 某 一 记 录 后 ， 下 面 的 记 录 顺 序 号 自 动 减 一 。 而 插 入 一 记 录 后 ， 后 面 的 记 录 顺 序 号 自 动 加 一 。 
<END>
200,使用DB-LIBRARY访问SQL SERVER6.5，如何关闭连接 
使 用 DB-LIBRARY访 问 SQL SERVER6.5 
    问 ： 当 我 打 开 一 个 连 接 后 ， 又 取 得 了 一 个 记 录 集 ， 并 对 该 记 录 集 操 作 处 理 后 ， 当 我 要 打 开 下 一 个 记 录 集 时 ， 如 何 保 留 上 一 个 记 录 集 的 内 容 及 如 何 做 到 类 似 于 DAO中 的 CLOSE。 例 ： 
    Dim SqlConn as Long 
    Dim rc as Long 
    SqlConn=SqlOpenConnection("myserver","sa","","myworkstation","myapp") 
    rc=SqlUse(SqlConn,"Pubs") 
    rc=SqlSendCmd(Sqlconn,"select au_id from authors") 
    rc=SqlNextRow(Sqlconn) 
    Text1.text=SqlData(Sqlconn,1) 
    ???如 何 关 闭 
    rc=SqlSendCmd(SqlConn,"select emp_id from employee") 
    rc=SqlNextRow(Sqlconn) 
    Text2=SqlData(Sqlconn,1) 
    ???如 何 再 用 authors中 的 资 料 。 
<END>
201,使用FILECOPY，发生“实时错误：70，被拒绝的权限” 
我 有 一 个 问 题 想 请 教 ， 就 是 我 在 程 序 中 想 备 份 ACCESS数 据 库 文 件 ， 使 用 FILECOPY， 但 程 序 总 是 显 示 “ 实 时 错 误 ： 70， 被 拒 绝 的 权 限 ” ， 不 知 为 何 ？ 还 望 指 教 。 
<END>