index2.txt

VB技巧问答10000例 VB技巧问答10000例

101,Access数据库比较日期大小时发生错误 
本 人 在 编 程 过 程 中 ,发 现 比 较 日 期 大 小 时 发 生 错 误 。 在 一 个 表 单 中 (ACCESS),我 要 获 取 上 月 26日 到 当 月 25日 的 记 录 。 
    比 如 :cx>=99/02/26 and cx<=99/03/25。 这 时 ,99/03/02到 99/03/09不 在 范 围 内 。 我 在 access中 排 序 发 现 99/03/08 >99/03/15。 不 知 如 何 解 决 。 
<END>
102,使用ADO访问数据库时怎样判断某一表名是否存在 
使 用 ADO访 问 数 据 库 时 怎 样 判 断 某 一 表 名 是 否 存 在 ？ 用 DAO时 ， 可 以 用 TABLEDEF ,但 我 不 想 因 此 而 走 回 头 路 ,请 赐 教 。 
<END>
103,ACCESS库在多用户下的性能 
ACCESS库 在 多 用 户 下 的 性 能 ？ 用 户 的 极 限 ?VB编 程 中 ， 捆 定 库 A时 ， 记 录 集 为 A库 下 的 一 个 表 AA， 最 后 当 写 记 录 到 库 A的 其 他 表 时 AB， AC...（ AB， AC..为 A库 下 的 表 ） 时 不 知 怎 样 处 理 。 
<END>
104,如何传数据到EXCEL中已经做好的表格中 
我想将ACCESS中的数据传到EXCEL中已经做好的表格中，然后打印出来，请问如何传数据，谢谢！ 
<END>
105,从Access升迁到SQL Server过程中应该注意什么 
我 用 VB6+ACCESS 97开 发 了 一 个 MIS系 统 ， 日 前 由 于 ACCESS数 据 库 频 繁 崩 溃 ， 我 打 算 将 ACCESS升 迁 至 SQL SERVER 7， 但 我 对 SQL SERVER 7不 熟 悉 ， 我 想 请 教 各 位 高 手 ： 
    1： 在 数 据 库 方 面 ， 升 迁 过 程 中 应 该 注 意 什 么 ？ 
    2： 在 应 用 程 序 方 面 ， 我 需 要 有 多 大 的 改 动 量 ？ （ 程 序 中 ， 采 用 ADO方 式 访 问 数 据 ） ， 我 需 要 改 动 那 些 方 面 ？ 
    因 现 在 系 统 已 在 使 用 中 ， 升 迁 任 务 迫 切 ， 请 各 位 高 手 赐 教 ！ 深 为 感 谢 ！ 
<END>
106,ADO对如何对ACCESS数据库进行压缩和修理 
我 使 用 ADO对 ACCESS数 据 库 进 行 操 作 ， 在 DAO中 有 数 据 库 压 缩 和 修 理 的 方 法 ， ADO如 何 操 作 ？ 
<END>
107,为什么在VB中无法使用ADO 
怎 样 使 用 ADO,为 什 么 我 的 VB无 法 使 用 ?是 否 需 要 加 载 其 他 东 西 ? 
<END>
108,如何将数据库中的内容按一定格式存到文本文件中 
如 何 将 DBF数 据 库 或 MDB数 据 库 中 的 内 容 按 一 定 格 式 存 到 文 本 文 件 中。
<END>
109,可否定义不与任何数据库相关的ADO RECORDSET 
可 否 定 义 一 个 不 与 任 何 数 据 库 相 关 的 ADO RECORDSET。 也 就 是 不 想 建 立 一 个 临 时 表 ， 直 接 从 一 个 RECORDSET 中 提 取 数 据 放 在 另 一 个 临 时 RECORDSET中 ？ 
<END>
110,使用ACCESS数据库，多用户使用，数据库经常出现损坏情况 
我 用 VB6.0编 写 了 一 个 MIS系 统 ， 使 用 ACCESS数 据 库 ， 已 在 使 用 中 。 但 目 前 使 用 过 程 中 ， （ 大 约 平 均 总 有 4-8位 用 户 使 用 ， 数 据 库 文 件 目 前 已 达 到 300M） 数 据 库 经 常 出 现 损 坏 情 况 ， 必 须 断 开 所 有 用 户 进 行 修 复 ， 甚 至 有 一 次 ， 系 统 总 是 提 示 “ ACCESS执 行 非 法 操 作 ” 而 无 法 修 复 /打 开 数 据 库 ， 只 能 用 备 份 恢 复 ， 请 问 这 种 状 况 是 如 何 造 成 的 ， 我 能 怎 样 避 免 ， 若 再 遇 到 系 统 总 是 提 示 “ ACCESS执 行 非 法 操 作 ” 而 无 法 修 复 /打 开 数 据 库 的 情 况 ， 还 有 没 有 办 法 修 复 ？
<END>
111,能否直接调用nt server 的域用户到数据库中 
我 想 编 一 个 多 用 户 Accese数 据 库 ， 但 我 想 直 接 调 用 nt server 的 域 用 户 到 数 据 库 中 ， 而 不 用 在 Accese中 再 建 用 户 和 密 码 ． 不 知 道 能 否 实 现 ？ 请 赐 教 ． 
<END>
112,如何用CompactDatabase方法压缩带密码的数据库 
如 何 用 DAO3.51的 CompactDatabase方 法 压 缩 一 个 带 密 码 的 Access97数 据 库 ？ 
<END>     
113,如何把单机程序改成网络版 
有 一 问 题 请 教 。 我 在 单 机 上 编 了 一 个 进 、 销 、 存 的 小 系 统 。 （ 数 据 库 用 Access)现 在 我 想 将 它 放 在 NT服 务 器 上 ， 让 局 域 网 上 的 客 户 机 能 共 享 运 行 ， 也 就 是 说 想 改 成 网 络 版 ， 请 问 在 对 数 据 访 问 以 及 操 作 权 限 这 方 面 需 作 那 些 改 动 、 如 何 实 现 。 请 各 位 一 定 不 吝 赐 教 ， 知 无 不 言 ， 言 无 不 尽 。 
<END>
114,调用Ado的UpdateBatch出错 
我 在 窗 体 上 放 置 ADODC控 件 ， 名 称 为 AdoRS 在 窗 体 上 并 分 别 将 TEXT 控 件 同 各 字 段 关 联 ， 在 程 序 中 ， 我 用 AdoRS.Recordset.AddNew 方 法 ， 输 入 新 的 数 据 值 ， 用 AdoRS.Recordset.UpdateBatch保 存 ， 但 我 如 果 想 对 刚 增 加 的 行 的 值 进 行 修 改 ， 再 次 调 用 AdoRS.Recordset.UpdateBatch 
    方 法 ， 则 出 现 错 误 （ 同 样 我 对 新 增 的 行 执 行 DELETE方 法 ， 在 调 用 UpdateBatch也 会 出 现 类 似 的 错 误 ） 
    实 时 错 误 ： '-2147217864 (80040e38)': 
     The specified row could not be located for updating :Some values may have been changed since it was last read 
    而 我 又 不 想 执 行 AdoRS.Refresh或 AdoRS.Recordset.Requery方 法 。 请 问 有 何 更 好 的 办 法 ？ 
    程 序 片 段 ： 
    Private Sub Form_Load() '''窗 体 调 入 时 
     strCnn = " Provider=SQLOLEDB.1;Persi0st Security Info=False;User ID=sa;Initial Catalog=" & "KQMIS" & ";Data Source=BAOXI" 
     AdoRS.ConnectionString = strCnn 
     AdoRS.RecordSource = "SELECT 姓 名 ,年 龄 ,级 别 FROM YGDA where 1=2" 
     AdoRS.CursorLocation = adUseClient 
     AdoRS.LockType = adLockBatchOptimistic 
     AdoRS.CursorType = adOpenStatic '''我 尝 试 改 变 不 同 的 类 型 都 不 行 
    End Sub 
<END>
115,SQL7.0的和存储过程如何得到返回值及判断表是否存在 
本 人 有 PVB6.0和 SQL7.0进 行 数 据 库 编 程 。 
    1、 字 段 名 有 用 中 文 名 命 名 合 不 合 适 ？ 
    2、 在 PVB6.0用 SQL7.0的 函 数 commandtext="select @@servername" 
     cn.exectue commandtext 和 存 储 过 程 。 如 何 得 到 返 回 值 ？ 
    3、 如 何 判 断 表 是 否 存 在 （ 用 SQL7.0的 语 句 或 函 数 )？ 
<END>
116,Data Link文件格式什么样，如何创建 
VB6 提 供 的 ADO Data 控 件 (Active X 控 件 ， 如 果 该 控 件 不 在 “ 工 具 箱 ” 中 ， 请 按 CTRL+T 键 ， 显 示 “ 部 件 ” 对 话 框 。 在 这 个 “ 部 件 ” 对 话 框 中 ， 单 击 “ Microsoft ADO Data Control” 复 选 框 )有 一 重 要 属 性 “ ConnectionString” 。 在 “ 属 性 ” 窗 口 中 ， 单 击 “ ConnectionString” 显 示 “ ConnectionString” 对 话 框 ， 有 三 种 选 择 可 以 设 置 它 ， 第 一 种 为 “ 使 用 Data Link 文 件 ” ， 请 问 此 种 文 件 格 式 什 么 样 ， 以 及 如 何 创 建 （ MSDN及 网 上 四 处 搜 寻 ， 均 未 找 到 答 案 ） ， 是 否 有 创 建 工 具 ？ 
<END>
117,如何备份储入的数据并清空上个月的数据 
编 完 数 据 库 程 序 ， 投 入 使 用 了 ， 怎 样 备 份 储 入 的 数 据 ， 下 个 月 再 使 用 时 ， 需 要 清 空 上 个 月 的 数 据 ， 怎 样 才 能 做 到 ？ 
<END>
118,如何在程序中对Access数据库中的字段进行索引 
如 何 在 程 序 中 对 Access数 据 库 中 的 字 段 进 行 索 引 ？ 在 VFP中 有 index on <字 段 > 的 语 句 产 生 索 引 文 件 ， 在 VB 中 是 否 有 对 应 的 命 令 ？ 
<END>
119,数据库程序错误提示权限问题或独占方式打开，错误号为3028 
我 想 用 vb6编 个 数 据 库 ， 但 运 行 以 下 程 序 后 ， 错 误 提 示 权 限 问 题 或 独 占 方 式 打 开 ， 错 误 号 为 3028， 请 指 教 。 
    Private Sub Command1_Click() 
    Dim aaa As Workspace 
     
    Dim ccc As Database 
    Set aaa = DBEngine.CreateWorkspace("d:\kkk.fff", "jin",1111, dbUseJet) 
    Set ccc = aaa.CreateDatabase("d:\kkk.fff", dbLangGeneral & ";pwd=jin") 
<END>   
120,怎样以排他方式打开一个数据表 
怎 样 以 排 他 方 式 （ 包 括 别 人 可 浏 览 不 可 增 加 和 修 改 ） 打 开 一 个 数 据 表 。 
<END>
121,如何在同一数据库所有数据表中查找某一记录 
如 何 实 现 在 同 一 数 据 库 (如 ACCESS)所 有 数 据 表 中 查 找 某 一 记 录 ？ 
<END>
122,用ADO怎样分批显示一个表中的数据 
请 问 用 ADO怎 样 分 批 显 示 一 个 表 中 的 数 据 ？ 如 ： 表 User共 有 20000个 数 据 ， 我 需 要 每 一 次 只 显 示 200个 （ 为 了 加 快 显 示 速 度 ） ， 然 后 用 Next / Prevoius来 显 示 后 200个 或 前 200个 记 录 。 
<END>
123,错误信息:不能在 firehose 方式下启动事务 
我 在 ado建 立 的 RecorderSet上 作 事 务 处 理 ， 如 果 想 把 处 理 记 录 集 的 每 一 条 记 录 作 为 一 个 完 整 的 事 务 处 理 ， 如 何 实 现 ？ 我 写 下 如 下 代 码 出 错 ， 如 何 改 ？ 
    Sub main() 
     Set Rst = New ADODB.Recordset 
     strSql = "select * from table " 
     Rst.Open strSql, adoCnn 
     Do Until Rst.EOF 
     
     adoCnnMid.BeginTrans 
     ''''''此 处 出 错 !（ 错 误 信 息 :不 能 在 firehose 方 式 下 启 动 事 务 ) 
     proc 
     
     If ok Then 
     adoCnnMid.CommitTrans 
     Else 
     adoCnnMid.RollbackTrans 
     End If 
     Rst.MoveNext 
     Loop 
    End sub 
<END>
124,如何改变Access链接表的路径 
我 用 Access编 了 一 个 应 用 ,其 中 用 到 了 链 接 表 ， 但 当 后 台 库 改 变 路 径 时 无 法 方 便 地 刷 新 链 接 。 
    现 在 只 好 调 用 Access的 加 载 项 ， 用 Sendkeys的 方 法 传 送 路 径 ， 显 得 很 “ 土 ” 而 且 不 可 靠 。 
    请 问 有 没 有 更 直 接 的 办 法 ？ 我 找 到 了 Access中 调 用 “ 链 接 表 管 理 器 ” 的 函 数 ， 但 不 知 道 它 能 否 （ 如 何 ） 加 上 Path作 为 参 数 。 
<END>
125, ADO错误：420类不支持自动化  
我 在 工 程 中 通 过 引 用 ActiveX Data Objects 2.0 Library进 行 远 程 数 据 库 （ SQL SERVER 6.5） 访 问 。 
    代 码 如 下 ： 
    Private Sub Command1_Click() 
     Dim cn As ADODB.Connection 
     Dim adoRS As ADODB.Recordset 
     Dim sSQl As String 
     
     Set cn = New ADODB.Connection 
     cn.Provider = "SQLOLEDB.1" 
     cn.ConnectionString = "DATABASE=FinanceDB;SERVER=192.168.40.96;UID=MyName;PWD=MyPass" 
     cn.Open 
     sSQl = "Select Operator_Name From g_Operator" 
     Set adoRS = cn.Execute(sSQl) 
     
     Do While Not adoRS.EOF 
     MsgBox (adoRS(0)) 
     adoRS.MoveNext 
     Loop 
    End Sub 
    编 译 后 通 过 安 装 向 导 制 作 安 装 程 序 ， 在 我 的 机 器 上 安 装 后 能 正 常 运 行 ， 但 装 入 别 的 电 脑 （ WIN98） 运 行 时 出 现 代 码 为 ： 
    ERR： 420类 不 支 持 自 动 化 。 
    我 已 经 安 装 了 DCOM98、 MDAC 
<END>
126,如何转换ACCESS数据到SQL SERVER 
我 正 用 VB编 的 数 据 库 程 序 ， 本 地 数 据 库 是 ACCESS， 网 络 数 据 库 是 SQL SERVER。 需 要 定 期 将 新 录 入 和 修 改 过 的 信 息 由 本 地 数 据 库 （ ACCESS） 的 信 息 传 到 SQL， 我 不 想 用 ACCESS的 导 入 /导 出 工 具 ， 就 用 INSERT INTO写 了 个 插 入 语 句 ， 但 字 符 型 字 段 没 有 问 题 ， 但 传 日 期 型 数 据 、 OLE型 数 据 （ 照 片 ） 时 出 现 “ 实 时 错 误 ‘ 13’ 。 类 型 不 匹 配 ” 错 误 ， 而 我 反 复 检 查 ， 两 个 数 据 库 的 结 构 是 完 全 一 致 的 ； 还 有 在 数 据 内 容 为 Ｎ Ｕ Ｌ Ｌ 时 会 出 现 “ 实 时 错 误 ‘ 94’ 。 无 效 使 用 NULL” 错 误 ？ 
    下 面 是 我 的 源 程 序 ： 
    Private Sub mnuDataRyxxUpload_Click() 
     If MsgBox("进 入 上 报 程 序 ， 必 须 保 证 已 与 信 息 中 心 网 络 连 通 。 ", vbYesNo, "系 统 提 示 ") = vbYes Then 
     Dim Localdb As Connection 
     Dim adoPrimaryRS As Recordset 
     Set Localdb = New Connection 
     Localdb.CursorLocation = adUseClient 
     '网 络 数 据 库 
     Localdb.Open 
    "PROVIDER=MSDASQL;dsn=CInformation;uid=gzxz;pwd=gzxz;database=CInformation;" 
     '本 机 数 据 库 
     'Localdb.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=D:\My 
    Program Files\CInformation.mdb;Jet OLEDB:Database 
    Password=chendan;" 
     
     Set adoPrimaryRS = New Recordset 
     '全 部 数 据 
     'adoPrimaryRs.Open "select