index2.txt

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

    Rybh,Zwbh,Xm,Xb,Csrq,Bmch,Mz,Whcd,Sfzh,Ky,Csd,Hjd,Hjzz,Xsd,Xszz,Sf,Gzdw,Zy,Z 
    c,Sg,Tx,Lx,Tstz,Tbtsbj,Scjdrq,Scjddwqh,Scjddw,Qkjl,Zmx,Zcx,Xszk,Cfjg,Cljg,Bz 
    from Personnel Order by Rybh", db, adOpenStatic, adLockOptimistic 
     '本 机 数 据 
     adoPrimaryRS.Open "select 
    Rybh,Zwbh,Xm,Xb,Csrq,Bmch,Mz,Whcd,Sfzh,Ky,Csd,Hjd,Hjzz,Xsd,Xszz,Sf,Gzdw,Zy,Z 
    c,Sg,Tx,Lx,Tstz,Tbtsbj,Scjdrq,Scjddwqh,Scjddw,Qkjl,Zmx,Zcx,Xszk,Cfjg,Cljg,Bz 
    from Personnel where Rybh like '" + "R" + Dw + Bm + "%' Order by Rybh", 
    Localdb, adOpenStatic, adLockOptimistic 
     If adoPrimaryRS.RecordCount = 0 Then 
     MsgBox "没 有 需 要 上 报 的 数 据 ", vbOKOnly, "系 统 提 示 " 
     Else 
     Dim Netdb As ADODB.Connection 
     Dim cmdUpload As ADODB.Command 
     Set Netdb = New ADODB.Connection 
     '本 机 数 据 库 
     Netdb.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=D:\My 
    Program Files\CInformation.mdb;Jet OLEDB:Database 
    Password=chendan;" 
     '网 络 数 据 库 
     'Netdb.Open 
    "PROVIDER=MSDASQL;dsn=CInformation;uid=gzxz;pwd=gzxz;database=CInformation;" 
     Set cmdUpload = New ADODB.Command 
     Set cmdUpload.ActiveConnection = Netdb 
     'cmdUpload.CommandType = 
     cmdUpload.CommandTimeout = 15 
     cmdUpload.Prepared = True 
     
     MsgBox "进 入 上 报 程 序 。 注 意 ： 必 须 保 证 网 络 接 通 。 ", vbOKOnly, "系 统 提 示 
    " 
     Do While Not adoPrimaryRS.EOF 
     MsgBox adoPrimaryRS.Fields("Csrq") 
     cmdUpload.CommandText = "insert into 
    Personnel(Rybh,Zwbh,Xm,Xb,Csrq) values ('" + adoPrimaryRS.Fields("Rybh") + 
    "','" + adoPrimaryRS.Fields("Zwbh") + "','" + adoPrimaryRS.Fields("Xm") + 
    "','" + adoPrimaryRS.Fields("Xb") + "','" + adoPrimaryRS.Fields("Csrq") + 
    "')" 
     MsgBox cmdUpload.CommandText 
     cmdUpload.Execute 
     adoPrimaryRS.MoveNext 
     Loop 
     MsgBox "数 据 传 送 完 毕 ", vbOKOnly, "系 统 提 示 " 
     Netdb.Close 
     End If 
     adoPrimaryRS.Close 
     Localdb.Close 
     End If 
    End Sub 
<END>
127,如何在VB下编程实现对ACCESS数据库口令的更改 
如 何 在 VB下 编 程 实 现 对 ACCESS数 据 库 口 令 的 更 改 和 读 取 ？ 
<END>
128,如何用ADO访问SQL SERVER建立的存储过程 
如 何 用 ADO访 问 SQL SERVER 7.0 建 立 的 存 储 过 程 ， 谢 谢 ！ 
<END>
129,如何在VB6下通过ADO使用DBgrid 
请 问 如 何 在 vb6下 通 过 ADO使 用 DBgrid,如 何 去 连 接 ADO? 
<END>
130, 数据库程序安装后出现错误：“ActiveX无法创建对象，错误号429”  
我 用 VB 6.0编 写 了 一 个 软 件 ， 其 中 用 到 DBGrid、 Data控 件 和 Access 97数 据 库 ， 打 包 后 安 装 在 其 他 的 计 算 机 上 运 行 时 出 现 错 误 ： “ ActiveX无 法 创 建 对 象 ， 错 误 号 429” ， 但 是 安 装 在 有 Offices 97的 计 算 机 上 运 行 正 常 。 我 怀 疑 是 要 求 Access 97的 缘 故 ， 我 不 希 望 对 Access 97有 依 赖 ， 请 问 如 何 解 决 ? 
<END>
131,SQL SERVER如何进行密码验证 
在 SQL SERVER中 用 户 的 密 码 是 加 密 的 ， 如 果 我 要 做 一 个 登 录 认 证 程 序 ， 在 SQL SERVER的 系 统 表 中 可 查 到 用 户 名 ， 但 密 码 验 证 怎 么 办 ？ 在 SQL SERVER中 是 否 有 现 成 的 存 储 过 程 ？ 
<END>
132,如何对数据库中的用户和密码进行校验 
用 vb6.0作 了 个 用 户 登 录 窗 口 ， 用 ACCESS作 数 据 库 ， 用 户 名 用 COMBOBOX， LISTBOX作 下 拉 菜 单 ， 密 码 用 TEXTBOX作 输 入 ， 选 好 用 户 名 和 输 入 正 确 密 码 后 ， 进 入 下 个 窗 体 ， 如 何 对 数 据 库 中 的 用 户 和 密 码 进 行 校 验 ？ 是 否 要 用 到 SQL查 询 语 法 进 行 校 验 ？ 
<END>
133,如何用VB删除ACCESS用户 
如 何 用 VB删 除 ACCESS用 户 ？ 我 参 考 了 一 些 书 上 关 于 删 除 用 户 的 方 法 ， 其 代 码 如 下 ： 
    DBengine.workspaces(0).User(用 户 名 ).delete 
    但 我 却 无 法 找 到 delete方 法 ， 请 问 这 是 怎 麽 回 事 ？ 
<END>
134,在操作中能否实现定时读取数据及加入数据 
在 编 程 中 遇 到 一 个 问 题 ： 一 个 数 据 库 在 操 作 中 能 否 同 时 进 行 每 三 秒 循 环 读 取 数 据 及 每 分 钟 加 入 一 次 数 据 的 操 作 ， 怎 么 做 ？ 望 能 帮 忙 解 决 ！ ！ 
<END>
135,删除后如何判断记录为空 
我 遇 到 了 一 个 这 样 的 问 题 ， 用 recordset对 应 一 个 表 （ biao1） ， 表 中 记 录 已 空 。 但 用 msgbox(rs.recordcount)显 示 时 不 为 0,为 上 一 次 删 除 前 的 记 录 数 .其 它 的 命 令 如 （ movelast,eof） 执 行 后 均 表 示 记 录 为 0.最 后 用 压 缩 命 令 对 表 biao1压 缩 。 一 切 恢 复 正 常 。 以 后 用 rs增 加 ， 删 除 ， 再 无 类 似 问 题 出 现 。 
    请 问 上 述 的 问 题 是 access的 bug吗 ,若 不 是 那 又 是 如 何 产 生 的 。 当 用 recordset对 应 表 后 ， 要 检 查 记 录 集 是 否 为 空 ， 为 保 证 不 出 问 题 。 是 用 recordcount=0或 rs.eof=true判 断 ， 还 是 有 更 好 的 方 法 。 
<END>
136,如何备份ACCESS数据库文件 
请 问 如 何 用 vb6命 令 完 成 数 据 库 文 件 备 份 功 能 。 我 做 了 一 个 类 似 COMMONDIALOG控 件 一 样 的 窗 体 ， 备 份 的 是 ACCESS数 据 库 文 件 。 如 源 文 件 c:\data\db1.mdb,目 标 文 件 a:\abc.mdb.请 问 最 后 一 步 备 份 如 何 实 现 ？ 
<END>
137,VB中BOOKMARK属性有些什么用 
VB中 BOOKMARK属 性 有 些 什 么 用 ？ 
<END>
138,VB对FOXPRO数据库操作时能否Pack 
我 用 VB对 FOXPRO数 据 库 操 作 ,遇 到 这 样 一 个 问 题 : 只 能 对 记 录 进 行 DEL,也 就 是 在 该 条 记 录 上 打 一 个 删 除 标 记 ,但 不 能 象 在 数 据 库 中 那 样 ,用 “ PACK” 把 这 条 记 录 真 正 删 除 。 当 记 录 数 较 多 时 , 用 DBGRID等 控 件 做 的 程 序 都 会 出 错 。 该 怎 样 办 呢 ? 
<END>
139,实时错误 “3011”：Microsoft Jet数据库引擎找不到对象 
本 人 最 近 在 学 习 过 程 中 遇 到 了 这 样 一 问 题 ： 
    子 程 序 如 下 ： 
    Private Sub cj_Click() 
     Dim cj, a As String, pe As Database, re As Recordset 
     Set pe = OpenDatabase("c:\vb\peixun.mdb") 
     cj = InputBox("请 输 入 您 想 查 询 单 位 的 名 称 ： ") 
     a = "SELECT *FROM 状 况 WHERE 单 位 =cj" 
     *** Set re = pe.OpenRecordset(a, dbOpenTable) 
     Form5.Show 
     Set Form5.Data1.Recordset = re 
     End Sub 
    运 行 到 以 上 子 程 序 时 ， 报 有 如 下 错 误 ， 程 序 停 留 在 ***处 ： 
     实 时 错 误 “ 3011” ： Microsoft Jet数 据 库 引 擎 找 不 到 对 象 “ SELECT *FROM 状 况 
    WHERE 单 位 =cj'” 。 请 确 定 对 象 是 否 存 在 ， 以 及 名 称 和 路 径 是 否 正 确 。 （ 符 合 查 询 条 件 的 记 录 是 一 定 存 在 的 ， 且 名 称 和 路 径 也 没 输 错 ） 请 教 上 面 程 序 错 在 何 处 ？ 该 如 何 修 改 ？ 
<END>
140,VB为什么不能删除FoxPro数据库的数据 
用 DATA.RECORDSET.DELETE循 环 来 清 空 DBF数 据 库 （ FOXPRO2.5） ， 在 程 序 界 面 上 看 已 经 清 空 了 ， 可 是 再 用 FOXPRO打 开 数 据 库 ， 发 现 数 据 库 完 好 无 损 。 数 据 全 在 ， 跟 没 操 作 一 样 。 请 问 这 是 为 什 么 ， 是 DATA控 件 不 能 清 空 DBF库 吗 ？ 那 么 用 什 么 方 法 比 较 好 呢 ？ ADO， 还 是 别 的 ？ 
<END>
141,在VB中用程序建立DSN数据源 
怎 样 不 用 手 工 在 WIN98中 的 ODBC中 建 立 DSN数 据 源 ， 而 在 VB中 用 程 序 建 立 DSN数 据 源 ？ 
<END>
142,如何获得存储过程返回的多个结果集 
我 调 用 SQL存 储 过 程 ， 并 返 回 记 录 集 ， 问 题 是 有 些 存 储 过 程 返 回 多 个 结 果 集 。 如 sphelpdb "master"返 回 两 个 结 果 集 。 我 用 
     dim comm as adodb.command 
     dim rs as adodb.recordset 
     ... ' 
     set rs=comm.Execute() 
     ... 
    只 能 返 回 一 个 记 录 集 ， 而 另 外 一 个 记 录 集 我 不 知 该 如 何 得 到 请 指 教 ,谢 谢 。 
<END>
143,如何实现与Netware下的Btrieve数据库相连 
在 PB或 者 VB中 如 何 实 现 与 Netware下 的 Btrive数 据 库 相 连 ， 如 果 系 统 不 支 持 ， 我 们 自 行 开 发 引 擎 的 难 度 大 吗 ？ 
<END>
144,Mdb数据库结构太大怎么办 
我 在 用 VB操 作 数 据 库 时 发 现 一 个 问 题 。 
    .mdb数 据 库 结 构 太 大 (好 象 一 个 空 .mdb表 就 要 80K)。 我 想 请 问 一 下 。 要 使 .mdb表 控 制 在 1M内 ， 应 限 制 一 个 表 中 有 几 个 字 段 ， 几 条 记 录 。 是 否 有 大 概 的 算 法 。 对 这 种 情 况 有 什 么 好 办 法 ？ （ 是 否 DBF表 要 小 一 点 ， 能 否 在 存 入 软 盘 时 用 SQL select....into转 换 为 DBF或 是 一 开 始 就 在 VB中 操 作 DBF表 ？ ） 
<END>
145,如何在数据表之间插入一条记录 
小 弟 在 用 vb6进 行 ACCESS97数 据 库 编 程 时 ， 想 在 数 据 表 （ TABLE类 型 ） 的 两 个 记 录 之 间 插 入 一 条 记 录 ， 我 看 过 VB和 ACCESS的 帮 助 ， 并 已 在 表 中 把 字 段 “ 序 号 ” 作 为 主 索 引 ， 据 说 需 要 把 索 引 值 设 为 两 条 记 录 索 引 的 中 间 值 ， 然 后 执 行 添 加 程 序 ， 但 不 知 如 何 实 现 ， 如 能 见 告 ， 是 否 能 写 出 比 效 详 细 的 源 程 序 ， 不 胜 感 激 ！ 数 据 表 结 构 如 下 ： 
    序 号 、 节 目 名 称 、 节 目 播 出 时 间 、 节 目 时 长 、 备 注 。 
    其 中 序 号 为 主 关 键 字 和 主 索 引 ， 按 增 序 排 列 。 
<END>
146, 用VB程序生成ACCESS数据库不支持中文信息  
用 如 下 VB指 令 程 序 自 动 生 成 ACCESS数 据 库 ,成 功 后 。 但 不 支 持 中 文 信 息 添 加 ,所 有 中 文 信 息 都 变 成 乱 码 了 ,请 问 是 怎 么 回 事 ? 
     Private Sub MakeUserDb() 
     Dim UserDB As Database, UserWs As Workspace, UserFlds(20) As Field 
     Dim UserTb As TableDef 
     
     Set UserWs = DBEngine.Workspaces(0) 
     Set UserDB = UserWs.CreateDatabase(App.Path + "\mydb.mdb", dbLangGeneral) 
     
     Set UserTb = UserDB.CreateTableDef("manager") 
     Set UserFlds(0) = UserTb.CreateField("uid", dbText, 50) 
     Set UserFlds(1) = UserTb.CreateField("password", dbText, 10) 
     For i = 0 To 1 
     UserTb.Fields.Append UserFlds(i) 
     UserTb.Fields(i).AllowZeroLength = True 
     Next i 
     
     UserDB.TableDefs.Append UserTb 
     
     UserDB.Close 
     End Sub 
<END>
147,访问远程数据库，DAO和RDO哪个好 
DAO和 RDO都 可 以 访 问 远 程 数 据 库 ， 请 问 这 两 方 式 的 主 要 区 别 是 什 么 。 如 果 做 一 个 服 务 器 的 组 件 ， 去 访 问 SQL server的 话 ， 是 用 dao好 呢 ， 还 是 用 rdo好 呢 ？ 
<END>
148,如何才能加快存取和搜索Access速度 
我 在 VB中 建 立 了 一 个 MDB的 数 据 库 ,大 概 会 有 2千 到 3万 条 记 录 。 请 问 如 何 才 能 加 快 它 的 存 取 和 搜 索 速 度 ? 
<END>
149,如何把图片放入SQL Server表中Image类型列中 
我 用 的 数 据 库 为 sqlserver7,开 发 工 具 为 vb6。 客 户 端 通 过 ODBC与 数 据 库 相 连 。 通 过 ADO技 术 访 问 数 据 库 表 的 数 据 。 现 请 教 如 何 把 图 片 放 入 表 中 Image类 型 列 中 ， 最 好 有 原 代 码 提 示 ！ 
<END>