index2.txt

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

68,在打开数据库前检测该数据库是否有密码 
我 希 望 在 程 序 中 实 现 打 开 一 个 数 据 库 时 ， 如 果 数 据 库 有 密 码 保 护 即 弹 出 一 个 要 求 输 入 密 码 的 窗 口 ， 就 象 excel或 word一 样 ， 如 果 没 有 直 接 打 开 。 也 即 是 说 希 望 在 打 开 数 据 库 前 检 测 该 数 据 库 是 否 有 密 码 。
<END>
69, 从SQLServer数据库取来的数据中汉字信息全部是乱码  
我 在 vb中 利 用 ado控 件 访 问 多 台 远 程 服 务 器 SQLServer数 据 库 ， 发 现 从 其 中 个 别 服 务 器 取 来 的 数 据 中 汉 字 信 息 全 部 是 乱 码 ， 不 知 原 因 何 在 ？ 是 vb的 问 题 还 是 SQLServer的 问 题 ？ 
<END>
70,用SQL Server建立主从表 
如 何 建 立 主 从 表 （ 在 Access中 行 ， 在 SQL Server中 只 能 浏 览 不 能 更 新 ） 我 用 编 写 一 个 主 从 表 结 果 用 Access数 据 库 一 点 问 题 也 没 有 。 用 SQL Server时 ， 单 个 表 单 没 问 题 ， 当 建 立 主 从 表 时 就 无 法 添 加 新 记 录 ， 也 无 法 更 改 记 录。
<END>
71,VB是否能打开远程UNIX主机上的Informix数据库 
我 想 请 教 专 家 ： 用 VB6.0可 以 打 开 很 多 种 不 同 类 型 的 数 据 库 ， 我 想 知 道 是 否 也 能 打 开 远 程 UNIX主 机 上 的 数 据 库 ？ 具 体 情 况 如 下 ： 
    在 一 台 装 有 SCO　 UNIX操 作 系 统 的 机 器 上 有 一 数 据 库 ， 类 型 是 Informix。 现 在 ， 我 想 在 与 这 台 机 器 联 网 的 一 台 PC机 上 （ 操 作 系 统 是 Win98),用 VB编 写 用 户 界 面 和 应 用 程 序 ， 用 以 浏 览 和 处 理 UNIX主 机 上 的 INFORMIX数 据 库 中 的 数 据 。 不 知 道 有 没 有 这 种 可 能 性 ？ 如 果 有 ， 该 如 何 实 现 ？ 
<END>
72,如何找到满足条件的记录 
请问高手，我有一个表如下： 
    ID CITY 
    1 北京 
    2 上海 
    3 广州 
我想找到 ID=2 的 CITY 字段的内容，用什么办法？一定要遍历表吗？ 
要想判断 ID=3 的记录是否存在，又应该怎么做？
<END>
73,创建了表后，马上试图打开创建的表会出错 
请 问 ： 我 用 ADODB.connection和 ADODB.command对 象 用 以 下 方 法 ： 
     cmdNew.ActiveConnection = dbsNew 
     
     'Generate SQL String 
     strCMD = "CREAT TABLE ...." 
     cmdNew.CommandText = strCMD 
     
     'Create Table 
     dbsNew.BeginTrans 
     cmdNew.Execute 
     dbsNew.CommitTrans 
     dbsNew.Close 
    创 建 了 表 后 ， 马 上 试 图 打 开 创 建 的 表 会 出 错 ， 报 找 不 到 表 ？ 要 等 一 会 才 能 打 开 。 请 告 诉 我 在 打 开 之 前 是 否 还 需 要 什 么 操 作 ？ 因 为 我 的 程 序 需 要 实 时 创 建 表 。 如 果 老 打 不 开 会 浪 费 很 多 时 间 。
<END>
74,能否在添加多条记录后用其一次性更新数据源 
请 问 能 否 在 ADO RECORDSET中 添 加 多 条 记 录 后 用 其 一 次 性 更 新 数 据 源 ， 而 不 是 每 次 ADDNEW后 立 即 更 新 。 
<END>    
75,报错说："键列信息不足或不正确，更新影响到过多的行" 
我 用 ADO删 除 数 据 时 ， 如 果 数 据 库 中 有 重 复 得 记 录 就 会 报 错 ， 说 "键 列 信 息 不 足 或 不 正 确 ， 更 新 影 响 到 过 多 的 行 ",如 果 没 有 重 复 的 记 录 就 没 事 ， 我 在 删 除 时 加 了 "ado.Recordset.Delete adAffectCurrent"参 数 也 不 行 ， 这 是 怎 么 回 事 ？ 有 什 么 办 法 解 决 ？ 
<END>
76,VB6 好像不认识 ACCSEE 2000 的数据库 
另外请问在 VB6.0 +Win98 OEM2 +OFFICE 2000 下如何调用 ACCSEE 2000 编写的数据库，VB6 好像不认识 ACCSEE 2000 的数据库! 以前听别人说需要 JET 4.0 可是我一直没有找到它,如果您知道怎么处理它请您告诉我好吗? 
<END>
77,如何向表中增加一个字段 
在 一 个 ACCESS库 中 有 两 个 表 (表 1,表 2),我 想 向 第 二 个 表 中 增 加 一 个 字 段 ("姓 名 ")怎 么 做 ? 
<END>    
78,如何用vb来读取dbf文件的存储结构 
如 何 用 vb来 读 取 dbf文 件 的 存 储 结 构 （ 不 能 用 OpenDatabase等 语 句 ） ? 
<END>    
79,ADO的Find方法如何查找同时满足两个条件的记录 
请 问 用 ADO的 Recordset的 Find方 法 如 何 查 找 同 时 满 足 两 个 条 件 的 记 录 ？ 例 如 ， “ 姓 名 ='abc'” AND“ 城 市 ='def'” 。 此 外 ， 如 果 等 号 右 端 是 变 量 应 该 如 何 写 ？ 
<END>
80,执行FindFirst时出现“对象不支持该属性或方法”错误 
为 什 么 执 行 
    Data1.Recordset.FindFirst "PubID=" & DBCombo1.BoundText 
    时 出 现 “ 对 象 不 支 持 该 属 性 或 方 法 ” 错 误 ？ 
<END>
81,ADO比DATA控件功能强大到哪 
请 问 ADO比 DATA控 件 功 能 强 大 到 哪 ?请 具 体 说 明 。 ADO 能 带 来 哪 些 好 处 、 优 点 ? 
<END>
82,开发client/sever程序用哪一种方法比较实际 
用 VB开 发 client/sever程 序 ， 用 在 不 同 地 区 ， 但 数 据 是 在 同 一 Server上 的 SQL， 同 时 需 要 数 据 同 步 ， 我 开 始 选 用 ASP开 发 ， 做 网 络 版 。 但 原 有 程 序 已 成 型 ， 同 时 在 网 上 查 到 有 Microsoft Transcation Server 介 绍 ， 感 觉 还 可 以 ， 但 自 己 的 能 力 有 限 ， 对 此 不 了 解 。 请 各 位 网 友 帮 我 一 下 ， 在 当 前 用 哪 一 种 方 法 比 较 实 际 。 
<END>    
83,错误提示too many rows affected by update 
错 误 提 示 ： 
    Insufficient or incrrect key colum information: 
    too many rows affected by update. 
    recordset中 的 设 置 ： 
     With rst 
     .ActiveConnection = cnn 
     .CursorLocation = adUseClient 
     .CursorType = adOpenKeyset 
     .LockType = adLockOptimistic 
     .Open "select * from sf" 
     .Fields("tm").Value = "aa" 
     .update 
     end with 
<END>    
84,能否不是将每个记录的值逐个用ADD NEW方法加入到ADO RECORDSET中 
我 定 义 了 一 个 不 与 任 何 数 据 库 相 关 的 ADO RECORDSET， 并 保 存 了 多 条 记 录 。 请 问 能 否 用 一 条 语 句 将 该 记 录 集 的 内 容 存 入 到 另 外 一 个 与 SQL Server相 关 的 ADO RECORDSET中 ， 而 不 是 将 每 个 记 录 的 值 逐 个 用 ADD NEW方 法 加 入 到 与 SQL Server相 关 的 ADO RECORDSET中 。 
<END>    
85,客户端和服务器端的游标位置和锁定策略分别要如何设置 
请 问 ， 如 果 要 编 写 一 个 客 户 /服 务 器 的 数 据 库 程 序 ， 客 户 端 和 服 务 器 端 的 游 标 位 置 和 锁 定 策 略 分 别 要 如 何 设 置 ? 
<END>
86,如何用ADO打开DBF文件 
我 在 用 VB 开 发 程 序 过 程 中 ， 要 引 用 VF的 数 据 库 ， 我 用 如 下 代 码 打 开 ， 但 总 是 有 错 误 提 示 ： 代 码 如 下 ： On Error Resume Next 
    conn2.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DSN=Visual FoxPro Database;UID=;SourceDB=" & djlj & "\Xddb.dbc;SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;""" 
    conn2.Open 
     MsgBox conn2.Errors.Count 
     If conn2.Errors.Count > 0 Then 
     
     Msg = "Error # " & Str(Err.Number) & " was generated by " _ 
     & Err.Source & Chr(13) & Err.Description 
     MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext 
     End If 
    djlj变 量 为 VF 数 据 库 路 径 。 
<END>
87,Jet VBA文件初始化失败 
我 编 一 个 数 据 库 应 用 程 序 使 用 DAO350制 成 安 装 盘 后 在 WIN95的 机 运 行 出 现 以 下 错 误 ： 
    ************************************************ 
    当 调 用 Jet VBA文 件 时 (16位 版 本 VBAJet.Dll的 或 32位 版 本 
    的 VAJet32.DLL)初 始 化 失 败 ， 请 试 着 重 新 安 装 该 返 加 错 误 
    的 应 用 程 序 。 
    ************************************************ 
    在 WIN98上 只 要 DAO350.DLL注 册 正 确 ， 不 会 出 现 这 种 问 题 。 
    为 此 ， 我 重 新 装 了 WIN95， 在 没 有 安 装 任 何 应 用 程 序 的 情 况 下 ， 安 装 还 是 出 现 同 样 问 题 。 我 实 在 是 找 不 出 什 么 原 因 ， 烦 你 帮 我 查 查 看 是 什 么 原 因 ？ 
<END>
88,如果数据库文件没有后缀名，怎样通过编程方式判别类型 
如 果 一 个 桌 面 数 据 库 文 件 （ 如 FoxPro、 Access等 文 件 ） 没 有 后 缀 名 ， 怎 样 通 过 编 程 方 式 判 别 这 个 数 据 库 文 件 的 数 据 库 类 型 ？ 
<END>    
89,怎样建立具有计算值的Access数据表的字段 
怎 样 在 VB中 建 立 和 使 用 具 有 计 算 值 的 Access数 据 表 的 字 段 ？ 如 ： 字 段 1=字 段 2+字 段 3-字 段 4 
<END>    
90,能否在vb程序中修改数据库字段的名称 
请 问 能 否 在 vb程 序 中 修 改 数 据 库 字 段 的 名 称 ?我 的 工 作 需 要 将 一 个 DBF库 的 某 些 字 段 追 加 到 access中 ， 两 个 库 中 的 字 段 名 称 和 大 小 都 有 变 化 。 我 想 使 用 比 较 快 的 追 加 方 法 。
<END>
91,如何使用DAO方式同时访问ACCESS2000和FOXPRO库 
在 VB6.0中 ， 引 用 DAO3.5则 不 能 访 问 ACCESS2000的 *.MDB库 ， 而 引 用 DAO3.6则 不 能 访 问 FOXPRO的 *.DBF库 ， 请 问 在 VB6.0中 如 何 使 用 DAO方 式 同 时 访 问 ACCESS2000和 FOXPRO库 ？ 
<END>
92,在使用过rowcount属性后，所有的getrows方法均无效 
我 建 立 了 一 个 rdoResultset对 象 ， 阅 读 其 rowcount属 性 为 100， 而 正 确 的 应 为 232。 我 尝 试 在 阅 读 rowcount属 性 前 使 用 ： 
    rdoResultset.getrows 101， 然 后 发 现 rowcount属 性 为 200。 
    后 又 尝 试 ： 
    rdoResultset.getrows 200 后 ， rowcount=232. 
    所 有 的 getrows方 法 若 在 使 用 过 rowcount属 性 后 使 用 均 无 效 ， 即 无 论 getrows XXX,rowcount属 性 均 =100。 
    请 问 ， 我 该 有 何 方 法 完 全 读 取 所 有 记 录 。 
<END>
93,如何使用CreateField建立AutoNumber类型 
如 何 在 程 序 里 实 现 创 建 一 个 Access数 据 库 ， 并 且 创 建 一 个 库 中 的 文 件 ， 使 它 的 某 一 个 域 是 主 键 ， 并 且 是 “ 自 动 编 号 ” 类 型 的 。 我 使 用 DAO的 CreateTableDef方 法 ， 但 是 在 CreateField时 找 不 到 有 AutoNumber这 样 一 种 域 类 型 啊 ！ 
<END>
94,DataEnvironment可否动态建立 
当 用 到 MSHFLEXGRID倥 件 时 , DATASOURCE和 DATAMEMBER需 要 用 到 DataEnvironment。 请 问 DataEnvironment可 否 动 态 建 立 ?
<END>
95,在vb6中，如何打开一个FOXBASE数据库  
在vb6中，我如何打开一个由FOXBASE建立的数据库？（不用数据库控件，用DAO） 
<END>
96,什么是ado 
什 么 是 ado? 
<END>
97, 打开Paradox数据库时报告：已经被别的用户以独占方式  
D盘 DELPHIWK目 录 下 是 一 些 PARADOX(*.DB)的 数 据 库 文 件 ,是 我 从 安 装 DELPHI4后 附 带 的 SAMPLE中 复 制 的 !使 用 vb6为 开 发 工 具 
    Dim db As Database 
    Dim sec As Recordset 
    Set db = OpenDatabase(Name:="d:\delphiwk", ReadOnly:=False, Connect:="paradox;") 
    Set sec = db.OpenRecordset("select * from country") 
    Set Data1.Recordset = sec 
    Data1.Refresh 
    出 错 信 息 为 :microsoft jet 数 据 库 引 擎 打 不 开 文 件 d:\delphiwk.他 已 经 被 别 的 用 户 以 独 占 方 式 打 开 ,或 没 有 察 看 数 据 的 权 限 ??? 
<END> 
98,如何以类似数据库操作的方式打开文本文件 
如 何 以 类 似 数 据 库 操 作 的 方 式 打 开 文 本 文 件 ?我 试 图 用 DAO方 式 打 开 文 本 文 件 ， 就 如 同 VB的 例 子 VisData一 样 的 方 式 ， 发 现 实 际 上 是 打 开 文 本 文 件 所 在 目 录 下 的 所 有 文 本 文 件 ， DAO将 目 录 做 为 数 据 库 ， 其 下 的 文 本 文 件 做 为 表 ,请 问 如 何 单 独 打 开 某 个 文 本 文 件 ?我 发 现 实 际 上 可 以 用 DTSFlatFile提 供 者 打 开 文 本 文 件 ， 因 为 SQL Server 7.0的 Import & ExportWizard就 是 用 这 种 方 法 导 入 导 出 文 本 文 件 的 ， 但 如 何 使 用 DTSFlatFile提 供 者 ? 
<END>
99,在VB中用ODBC读EXCEL的数据源 
我 用 ODBC中 的 用 户 DSN建 立 了 一 个 EXCEL（ 一 个 具 体 的 EXCEL文 件 ） 的 数 据 源 ， 但 是 用 VB中 的 SQL语 句 却 打 不 开 ， 原 语 句 为 ： 
    Adodc1.recordsource="select * from sheet1$" 
    但 是 编 译 时 却 说 FROM语 句 错 误 ， 小 弟 不 解 ， 望 多 指 点 。 
<END>
100,DataEnvironment中数据库的路径可否动态设定 
请 问 DataEnvironment的 连 接 对 象 Connection中 数 据 库 的 路 径 可 否 动 态 设 定 (类 似 App.Path & \Mymdb)。 
<END>