index1.txt

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

35,如何实现同部门同月份累加数据 
我 想 设 计 一 个 收 汇 程 序 ， 例 如 ： 第 一 张 单 据 为 业 务 一 部 收 汇 123万 美 元 ， 业 务 二 部 收 汇 456万 美 元 ， 第 二 张 单 据 为 业 务 一 部 收 汇 100万 美 元 ， 业 务 二 部 收 汇 200万 美 元 ， 都 是 同 月 份 ， 假 设 有 多 份 单 据 ， 那 么 如 何 实 现 同 部 门 同 月 份 累 加 数 据 ？ 问 如 何 使 用 SQL语 句 或 其 他 方 法 实 现 ？ 请 专 家 不 吝 赐 教 。 
<END>
36,在VB执行一段SQL文本文件 
我在编写程序时,常想如果能够在VB执行一段T_Sql 语句就好了。 
    如: 
     use master 
     go 
     sp_addlogin 'njk','111','pubs' 
     go 
     exec sp_addumpdevice 'pubs_bak' to 'c:\pubs\pubs_bak.bak' 
     backup database pubs to pubs_bak 
     go 
    这一段语句如何在VB中调用执行。或者如果我将这段语句存为pub_bak.sql这个文件,我在VB中如何执行? 
<END>
37,如何使返回的记录集中不出现NULL值 
问 题 ： 在 我 的 access中 有 一 个 查 询 使 用 了 nz函 数 用 来 转 换 NULL值 ,在 ACCESS环 境 下 能 够 正 常 返 回 记 录 ,但 是 如 果 用 VB打 开 这 个 查 询 ,就 会 出 现 NZ函 数 没 有 被 定 义 的 错 误 ,这 是 为 什 么 ? 
    如 果 不 用 NZ函 数 ,如 何 使 返 回 的 记 录 集 中 不 出 现 NULL值 (为 0或 "") 
<END>
38,如何使用SQL语言显示数据库表中的某字段的不重复记录 
问 题 : listbox中 如 何 使 用 SQL语 言 实 现 列 表 显 示 数 据 库 表 中 的 某 字 段 的 不 重 复 记 录 ？ SQL语 句 能 否 直 接 生 成 数 组 给 listbox用 ， 如 何 用 ？ 
<END>
39,如何更改Data控件的数据 
问 题 : 我 在 写 一 个 VB数 据 库 的 程 序 时 ， Form上 放 了 一 个 Command1, 一 个 Data1, 一 个 DBgrid1,一 个 Text1. 
    其 中 Data1已 经 设 置 为 DatabaseName: C:\Program Files\...\Nwind.mdb (VB6.0 自 带 数 据 库 )， 然 后 将 
    RecordSource设 置 为 Orders, 并 将 ReadOnly设 置 为 False. 
    我 程 序 的 原 代 码 是 ： 
    Private Sub Command1_Click() 
    Data1.RecordSource = Text1.Text 
    Data1.Refresh 
    End Sub 
    我 的 意 思 就 是 想 每 次 更 改 一 下 Data1的 RecordSource. 
    运 行 后 ， 在 Text1文 档 中 输 入 
    UPDATE Orders 
    SET [Freight]=[Freight]*2 
    我 就 是 想 更 新 数 据 库 ， 但 每 次 按 下 command 键 ， 都 告 诉 我 “ Run-time error '3219' Invalid Operation. " 
<END>
40,能否在一个记录集上重新构造另一个查询 
请 问 各 位 高 手 在 VB中 用 一 个 查 询 (SQL)得 到 一 个 记 录 集 (RecordSet)之 后 ， 是 否 可 以 知 道 这 个 记 录 集 真 实 的 名 字 (并 不 是 "RecordSet.Name")， 因 为 ， 我 要 在 这 个 新 的 记 录 集 上 重 新 构 造 另 一 个 查 询 。 (使 用 嵌 套 查 询 对 我 并 不 适 合 ) 
<END>
41,如何用B表中的数据去更新A表中的数据 
假 设 有 如 下 两 个 表 A和 B 
    A： XMDH YE B： XMDH YE 
     1000 100 1000 21 
     2000 200 2000 50 
     3000 300 
    现 在 我 想 用 B表 中 的 数 据 去 更 新 A表 中 的 数 据 ， 想 用 SQL语 言 这 样 写 
    UPDATE A SET A.YE=B.YE WHERE A.XMDH=B.XMDH 
    结 果 发 现 在 VB中 不 支 持 这 样 的 操 作 ！ 这 是 怎 么 回 事 ？ 如 果 确 实 是 不 支 持 的 话 ， 那 么 这 样 的 操 作 又 该 怎 么 样 用 其 他 的 SQL语 言 代 替 呢 ？ 要 知 道 数 据 量 实 在 是 太 大 了 ， 总 不 能 叫 我 一 条 条 去 FIND？ ？ 我 有 想 过 先 将 A表 数 据 全 部 删 除 ， 再 将 B表 数 据 SELECT INTO 表 A， 但 是 一 来 感 觉 挺 苯 的 ， 二 来 并 不 是 每 次 更 新 所 有 的 数 据 ， 因 此 这 样 的 操 作 实 在 是 不 妥 ， 不 知 你 有 没 有 更 好 的 方 法 ？ 
<END>
42,如何查询到字段值符合自定义函数的记录 
如 何 查 询 到 字 段 值 符 合 自 定 义 函 数 的 记 录 ? 
    例 如 ： 有 一 自 定 义 函 数 In和 一 字 段 Item,我 想 查 询 到 符 合 InArray(Item)="498"的 记 录 ， ("498"不 包 含 于 Item值 中 ),用 SQL语 句 怎 么 写 ？ 
<END>
43,如何进行分类统计 
我 碰 到 如 下 问 题 。 我 在 查 询 一 数 据 库 时 ， 需 要 统 计 信 息 。 应 如 何 做 ？ 哪 里 有 类 似 的 例 程 ？ 
    具 体 是 ： 
    数 据 库 tele.mdb 里 面 的 huadan表 
    用 tdbgrid通 过 sql查 询 。 列 出 需 要 查 询 的 数 据 
    比 如 ： 分 机 号 码 ： 101 开 始 日 期 ： 19990101 结 束 日 期 ： 19991212 
    用 Data1.RecordSource = "Select 分 机 号 码 ,地 名 ,电 话 号 码 ,日 期 ,时 间 ,时 长 ,单 价 ,价 格 From huadan Where(longd >= '" & Text2.Text & "')and (longd<= '" & Text3.Text & "') Order By 分 机 号 码 " 
    表 中 就 列 出 相 应 的 数 据 . 
    


    分 机  日 期       时 间       号 码       地 名          单 价    时 长         价 格 

    101 1999.1.1   12:31     1234567   市 话          0.18    4          0.36

    101 1999.1.2   12:32     021222222  上 海         1.00    3          3.00

    .....................................

    102...............................

    103.........................

    210........................

    210................................................................

    

    但 是 我 想 要 我 的 程 序 在 表 的 下 面 列 出 这 样 的 结 果 ： 
    
能 自 动 列 出 :

    101分 机    日 期 ：  1999010 19991212 其 中 ： 市 话 xxx次 ， xxxx元   国 内 ： xxx次 ， xxxx元 ， 国 际 ： xxx次 ， xxxx元 

    102分 机 ............................

    104...............................

    105分 机  无 话 单 

    106分 机 .........................................

    109................................

    .......................................

    210

    
其 中 ,多 少 次 是 数 据 的 数 目 , 多 少 钱 是 这 些 数 据 价 格 相 加 的 合 计 。 分 机 号 码 是 程 序 自 动 从 数 据 库 中 自 动 找 到 的 所 有 可 能 值 。 
    我 只 能 用 
    hangshu = TDBGrid1.ApproxCount 
     For i = 0 To hangshu - 1 
     zhi = CDbl(TDBGrid1.Columns(7).CellText(TDBGrid1.GetBookmark(i))) 
     totel = totel + zhi 
     Next i 
     Label7.Caption = "共 " & hangshu & "话 单 ， 合 计 是 ： " & totel & "元 " 
    这 只 能 显 示 表 中 的 数 据 个 数 和 金 额 合 计 ， 无 法 自 动 统 计 出 分 别 的 数 目 和 价 格 。 
    我 真 不 知 道 如 何 做 到 。 实 在 是 感 谢 ！ 
<END>
44,ADO对Access数据库的Like查询 
问 题 ： 我 有 一 个 客 户 档 案 数 据 库 ， 有 大 概 13000条 数 据 ， 用 ASP提 取 数 据 库 记 录 的 时 候 用 
    select name, address, lxr, tel from khda where Name Like '%江 华 %' 
    选 出 的 记 录 为 0条 ， 但 是 实 际 上 数 据 库 中 有 这 样 的 记 录 存 在 。 如 果 用 
    select name,address,lxr,tel from khda where Name Like '%江 华 %' And qy='武 汉 市 ' 
    则 可 以 找 出 正 确 的 记 录 。 如 果 按 Access 97帮 助 中 的 写 法 把 第 一 句 SQL中 的 %改 为 *则 报 告 内 存 溢 出 。 第 二 句 则 可 以 执 行 ,但 无 法 找 出 记 录 。 
<END>
45,如何在使用DATA控件时在SQL语句中表示表的名字 
我 使 用 VB 6.0编 写 一 个 数 据 库 程 序 ， 我 首 先 在 ACCESS中 建 立 了 所 需 的 一 系 列 表 ， 然 后 在 VB中 使 用 了 DATA控 件 来 实 现 和 外 部 数 据 库 的 连 接 。 接 下 来 我 遇 到 了 问 题 ， 在 写 SQL语 句 的 时 候 ， 我 不 知 道 如 何 在 语 句 中 表 示 表 的 名 字 ， 因 为 我 没 有 在 程 序 中 定 义 任 何 表 ， 而 是 使 用 了 DATA控 件 ， 所 以 向 您 请 教 ， 如 何 在 使 用 DATA控 件 时 在 SQL语 句 中 表 示 表 的 名 字 。 
<END>
46,如何把两个结构不一样的表合并 
请 问 如 何 把 两 个 结 构 不 一 样 的 表 合 并 ？ 
    例 如 有 两 个 表 ： 
    table1: T1 T2 T3 
     记 录 a1 a2 a3 
     b1 b2 b3 
    table2: T3 T4 T5 
     记 录 c3 c4 c5 
     d3 d4 d5 
    合 并 为 table3: 
    T1 T2 T3 T4 T5 
    a1 a2 a3 空 空 
    b1 b2 b3 空 空 
    空 空 c3 c4 c5 
    空 空 d3 d4 d5 
    请 各 位 高 手 不 吝 赐 教 ！
<END>
47,如何使用INSERT INTO追加记录 
希 望 在 mdb的 一 个 表 table1中 追 加 一 记 录 ： 
    a='100' b='八 ' c='笔 ' 
    用 SQL的 insert into语 句 该 如 何 写 ？ 如 何 希 望 追 加 的 记 录 ： a的 值 从 100到 200之 间 ， 其 它 两 项 不 变 。 用 for..next如 何 写 insert into语 句 ? 
<END>
48,VB中如何用SQL实现象求平均值、合计之类的运算 
数 据 库 教 材 中 说 嵌 入 式 SQL可 与 宿 主 语 言 中 的 主 变 量 通 信 ， 如 ： 
     SELECT AVG(FIELD1),SUM(FIELD1) INTO :AVG%,:SUM% FROM TABLE（ 至 少 PL/1中 是 这 样 ） ， 但 VB中 用 DB.Execute "SELECT AVG(FIELD1),SUM(FIELD1) INTO :AVG%,:SUM% FROM TABLE"根 本 不 识 别 ， 请 问 VB中 如 何 用 SQL实 现 象 求 平 均 值 、 合 计 之 类 的 运 算 及 VB能 否 与 其 嵌 入 式 SQL进 行 变 量 通 信 。 
<END>
49,如何在SQL语句中使用密码 
我使用两个带密码的ACCESS 数据库，想用INSERT INTO 实现两个数据库间表的拷贝，但不知应如何写SQL语句，请赐教！
<END>
50,怎么样去实现由用户来生成查询条件的过程 
我 想 问 的 是 ， 就 是 怎 么 样 去 实 现 由 用 户 来 生 成 查 询 条 件 的 过 程 。 我 知 道 可 以 用 一 个 combox 存 放 字 段 名 ， 另 一 个 combox存 放 操 作 符 ， 一 个 textbox用 于 用 户 输 入 ， 再 一 个 combox存 放 and 和 or。 然 后 自 己 编 写 代 码 生 成 查 询 语 句 ， 但 是 这 样 做 好 象 有 点 复 杂 ， 因 为 根 据 不 同 的 字 段 ， 还 要 判 断 不 同 的 数 据 类 型 ， 所 以 不 知 道 有 否 简 洁 的 方 法 或 控 件 ， 指 定 数 据 库 名 ， 自 动 生 成 可 以 产 生 SQL语 句 的 窗 体 ？ 
<END>
51,如何实现从一个表中拷贝一任意指定的记录至另一个表中 
请 问 如 何 实 现 从 一 个 表 中 拷 贝 一 任 意 指 定 的 记 录 至 另 一 个 表 中 。 我 曾 尝 试 过 用 SQL中 的 INSERT INTO 语 句 ： “ INSERT INTO target [(field1[, field2[, ...]])] VALUES (value1[, value2[, ...])” 但 此 语 句 虽 能 很 简 单 的 实 现 单 一 记 录 的 追 加 ， 但 好 象 参 数 value1， value2,value3却 必 须 是 欲 插 入 新 记 录 的 特 定 字 段 的 值 ， 而 不 能 是 一 个 被 赋 了 值 的 参 数 ， 请 间 真 是 这 样 吗 ？ 如 果 是 那 么 欲 实 现 以 上 操 作 还 有 何 良 策 ？ 望 多 多 指 教 并 不 胜 感 激 ！ 最 后 谢 谢 您 抽 出 宝 贵 的 时 间 来 阅 读 这 封 邮 件 ， 谢 谢 。 
<END>
52,怎样修改控件的Recordsource属性 
怎 样 修 改 datPrimaryRS控 件 的 Recordsource属 性 ? 
<END>
53,怎样在数据库中检索一个时间段 
请 问 ： 怎 样 在 数 据 库 中 检 索 一 个 时 间 段 ？ 如 ： 检 索 1997.03.12至 1998.12.12进 单 位 的 员 工 。 （ 注 ： 不 将 时 间 设 置 为 LONG型 数 据 ) 
<END>
54,找出相同结构两个table之间的不同的record 
各 位 SQL高 手 ,在 此 请 教 一 个 问 题 : 
    我 建 了 两 个 TABLE,TABLE的 内 容 如 下 : 
    表 1(TAB01) 
     T1 T2 T3 T4 
     A001 B001 C001 123.4 
     A002 B002 C002 981.5 
     A003 B003 C003 564.8 
    表 2(TAB02) 
     T5 T6 T7 T8 
     A001 B001 C001 123.4 
     A002 B002 C002 187.5 
     A003 B003 C003 584.8 
     A004 B001 C001 894.6 
     A003 B002 C001 265.7 
    我 想 在 表 2中 查 询 出 T8的 值 ,条 件 是 :表 2的 记 录 不 在 表 1中 , 即 :T5,T6,T7与 T1,T2,T3不 完 全 相 等 , 我 目 前 已 经 有 了 一 种 方 法 ,但 该 方 法 的 执 行 速 度 太 慢 ,请 教 各 位 高 手 一 种 更 快 的 方 法 ,谢 谢 。 
    我 用 的 方 法 是 : 
     SELECT T5,T6,T7,T8 FROM TAB02 WHERE 
     T5||T6||T7 NOT IN 
     (SELECT T1||T2||T3 FROM TAB01) 
    执 行 的 结 果 是 : 
     T5 T6 T7 T8 
     A004 B001 C001 894.6 
     A003 B002 C001 265.7 
    如 果 那 位 高 手 有 答 案 ,请 不 吝 赐 教 。 
<END>
55,如何得到数据库中数据的最大值、最小值、平均值 
请 问 ： 如 何 得 到 数 据 库 (.mdb)某 个 表 中 数 据 的 最 大 值 、 最 小 值 、 平 均 值 ， 这 个 表 的 所 有 数 据 结 构 都 是 文 本 的 ， 因 为 是 文 本 的 ， 所 以 查 询 结 果 9就 比 10 大 ， 由 于 数 据 量 很 大 ， 而 且 有 很 多 程 序 共 享 这 个 数 据 库 ， 所 以 数 据 结 构 无 法 改 变 ， 谢 谢 。 
<END>     
56,如何将二个结构一样的数据库合并起来 
请 问 各 位 在 vb中 如 何 将 二 个 结 构 一 样 的 数 据 库 合 并 起 来 。 
<END>
57,如何选出为空的数据 
我 在 程 序 中 使 用 DAO对 数 据 库 进 行 查 询 ， 其 中 "SELECT * FROM MAIN WHERE YEAR LIKE '" & TEXT1.Text & "*'"。 这 样 的 话 ， 当 TEXT1.TEXT=""时 ， 则 数 据 库 中 记 录 项 YEAR为 空 的 项 就 无 法 选 出 ， 请 教 如 何 解 决 这 个 问 题 。 
<END>
58,使用Like查询不符合要求 
Access 97数 据 库 ， 用 RDO数 据 控 件 查 询 记 录 ， SQL=select * from table_name where table_field like "%XX%",所 查 到 的 记 录 有 时 有 一 些 记 录 并 不 符 合 查 询 条 件 ， 请 问 为 什 么 ？ 
<END>
59,如何在VB中实现对数据库字段的组合查询(用一个文本框进行输入) 
我 想 询 问 如 何 在 VB中 实 现 对 数 据 库 字 段 的 组 合 查 询 （ 用 一 个 文 本 框 进 行 输 入 ， 就 象 YAHOO的 查 询 那 样 ） ? 
<END>