index1.txt

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

1,如何用程序建立索引 
问题: 请问用select into生成的表如何用程序建立索引？ 
<END>    
2,SQL的Select语句中可否使用VB变量 
在 vb6.0中 SQL语 句 "SELECT * FROM TABLE"的 TABLE可 否 被 一 变 量 代 替 ！ 如 
     DIM BL AS STRING 
     BL="XXXXXXX" 
     ADODC1.RECORDSOURCE="SELECT * FROM BL" 
     ADODC1.REFRESH 
<END>     
3,如何从一个表中删除与另一个表相同的记录 
问题：如何从一个表中删除与另一个表相同的记录： 
    1、两个表的结构一样，必须以两个字段做关键字 
    如下： 
    a表 
    字段： d c e 
     1 2 2.3 
     2 2 2.4 
     1 4 2.5 
     2 2 2.5 
     
    b表： 
    字段： d c e 
     1 2 2.3 
     2 2 2.4 
     1 4 2.5 
    问题：能否用一个sql语句子，从a表中删除与b表相同的记录！ 
    得到如下结果： 
    a表 
    字段： d c e 
     2 2 2.5 
    最好不要用扫描的办法，因为实际上记录数非常大！
<END>
4,用VB ADO进行对MSSQL的查询进行嵌套查询 
问题：请问我用VB ＆ ADO进行对MSSQL的查询 
    SELECT FlowNumber From Detail WHERE Detail.BatchID = (SELECT ID FROM Batchs WHERE YYYYMMDD = '20010904'） 
    语句非常简单，但是符合条件的有3个，但是查出来的只有一个。 
    但是我到MSSQL的调试器里面去看结果就是正确的，VB的SQL调试器结果也是正确的。是不是要用数组接受查询的结果，我现在使用变量。 
<END>    
5,this 指针是怎么一回事 
问题: this 指针是怎么一回事？能否举例解释一下？
<END>
6,如何在存储过程中使用变量代替表名 
我想在存储过程中使用变量代替表名，以便对相同格式的不同的表进行数据更改，但我不知道该怎么做。 
     create procedure proc1 
     as 
     declare @tbname varchar(11),@cs int 
     update @tbname set zd1=zd1+@cs 
    结果显示：第4行有错误，必须声明变量 @tbname 
     请问应该怎样写？ 
<END>
7,用VB+ADO查询日期条件则无法返回正常结果 
问题：我有一SQL数据库，其中有一表中有一字段：进货时间 为短日期型，在SQL下对该字段进行查询无任何问题，但用VB+ADO查询则无法返回正常结果。比如我在VB中用SQL语句 Select * From 表1 Where 进货时间>='2000-10-12' ，则返回所有记录，而不论条件日期为那一天，如果用<'2000-10-12'则无任何记录返回，不知何故？ 
<END>    
8,SQL语句中如何使用单引号 
I got an error with following sql statement: 
    "update Group set name = 'q's' where ID =2", 
    it seems i can't use " ' " within value update command, right?? 
    wish get your great help! 
<END>
9,如果数据库中的记录中某项为空（NULL），则即使满足查询条件，该记录也不能显示 
问题：我使用的ACCESS2000数据库，当使用VB6设计的界面对其进行查询时（程序如下）如果数据库中的记录中某项为空（NULL）如：没有地号，则即使满足查询条件，该记录也不能显示。我感觉这样从文本框中取值进行查询有问题，有没有其他方法，怎样解决。谢谢 
     
    Private Sub Command1_Click() 
     
     frmmain.gxmain.RecordSource = "select * from 初始登记 where [土地证号] like '%" & Trim(Text1.Text) & "%' and " & "[使用者名称] like '%" & Trim(Text2.Text) & "%' and " & "[地号] like '%" & Trim(Text3.Text) & "%'and " & "[土地座落] like '%" & Trim(Text4.Text) & "%'and " & "[用途] like '%" & Trim(Text5.Text) & "%'and " & "[面积] like '%" & Trim(Text6.Text) & "%'and " & "[备注] like '%" & Trim(Text7.Text) & "%'" 
     frmmain.gxmain.ReBind 
     Unload Me 
     
    End Sub 
<END>
10,如何从三个库中按条件选择出记录 
问题：我现在在编一个程序，需要从销售库（里面定义两个字段xsk(bh,sl））、购进库（里面定义两个字段gsk(bh,sl））、库存库（里面定义两个字段kck(bh,sl））选择出kck.bh,xsk.sl,gjk.sl,kck.sl。为何用select kc.bh,gjk.sl,kc.xssl,kc.kcsl from [select kck.bh as bh,xsk.sl as xssl,kck.sl as kcsl from kck LEFT OUTER JOIN 
     xsk ON kck.bh = xsk.bh] as kcLEFT OUTER JOIN 
     gjk ON kc.bh = gjk.bh 不能够实现，望赐教。这个问题要求不能用视图之类实现，且只能用一条sql语句实现。 
<END>    
11,用ADO 访问ACCESS，可以实现两张表合为一张表吗 
本问题涉及的编程工具 VISUAL BASIC 6.0 
    遇到的问题 
    用ADO 访问ACCESS，可以实现两张表合为一张表吗？如果可以的话，怎么实现呢！
<END>
12,如何在VB中调用SQL语句 
问题: 请问：如何在VB中调用SQL语句？请高手赐教，谢谢
<END>
13,使用SELECT从多个表中读数据，得到的是所有记录排列组合 
问 题 : 一 个 数 据 库 有 三 个 表 啊 a,b,c， 当 执 行 建 表 查 询 " db.Execute "select a.ww,b.ee,c.rr into d from a,b,c,时 
     新 建 的 表 d内 的 记 录 数 为 表 a,b,c,的 记 录 数 的 乘 积 。 请 问 这 个 问 题 如 何 解 决 ?
<END>
14,建立数据库时同时建立constraint 
我 用 以 下 代 码 想 在 建 立 数 据 库 时 同 时 建 立 但 运 行 时 却 提 示 出 错 ， 请 问 我 该 怎 样 写 该 SQL语 句 ？ ,同 时 请 说 明 constraint 
    的 primary key 及 foreign key 的 用 法 及 两 者 的 区 别 ， 外 码 是 指 什 么 ？ 
    db.Execute ("create table table1 (fiel1 integer constraint primary key 
    fiel1,fiel2 text(6) constraint primary k十 万 火 急 ! 
<END>   
15,VB删除SQL纪录时，为什么没有删除掉选择的纪录  
请 教 专 家 ， 我 在 使 用 VB删 除 SQL纪 录 时 ， 程 序 运 行 没 有 错 误 提 示 ， 但 SQL却 没 有 删 除 掉 选 择 的 纪 录 ， 错 误 出 现 在 哪 里 ？ （ 下 面 是 程 序 中 的 一 段 源 代 码 。 ） 
    如 果 在 SQL中 建 立 了 不 能 重 复 的 一 条 索 引 号 字 段 ， 怎 样 才 能 在 其 中 删 除 一 条 记 录 号 后 ， 保 持 索 引 号 顺 序 连 贯 ？ 
     Dim db As New adodb.Connection 
     Dim rs As New adodb.Recordset 
     Set db = New adodb.Connection 
     db.Open "dsn=jsjpb;uid=xw;pwd=xwsetup" 
     rs.Open "select dw,mc,jqlx,zyyt from jsjtj", db, 3, 3 
     
     dw1 = Trim(Text6.Text) 
     qyrq1 = CDate(Text2.Text) 
     jqlx1 = Trim(Text3.Text) 
     tjrq1 = CDate(Text4.Text) 
     zyyt1 = Trim(Text5.Text) 
     mc1 = Trim(Text1.Text) 
     
    db.Execute "delect * from jsjtj where dw=dw1,mc=mc1,jqlx=jqlx1,zyyt=zyyt1" 
<END>    
16,如何查询某个月的记录 
问 题 ： 请 问 在 VB6.0 + ACCESS (DAO) 中 对 Customer中 的 Birthday进 行 范 围 的 查 询 ， 要 求 列 出 在 #01/01# 到 #01/31#日 之 间 过 生 日 的 客 户 列 表 ， 该 SQL语 句 应 如 何 写 ？ 谢 谢 ！ 
<END>
17,如何使用SQL根据记录号查询记录 
问 题 : 如 何 使 用 SQL根 据 记 录 号 查 询 记 录 ？ 
    如 ： 
    SELECT AA INTO BB FROM CC WHERE 记 录 号 保 留 字 BETWEEN (1 AND 35); 
    SQL中 代 表 记 录 号 的 保 留 字 是 什 么 ？ 
    我 急 着 用 ， 麻 烦 专 家 了 。 
<END>    
18,对满足多个条件的字段值进行操作和多个数据库的链接 
我 在 学 习 用 vb6.0编 写 数 据 库 的 过 程 中 ， 不 知 该 用 什 么 方 法 对 数 据 库 中 满 足 多 个 条 件 的 字 段 值 进 行 操 作 （ 如 ： 在 1月 1日 到 2月 15日 期 间 某 种 物 品 销 售 金 额 的 小 计 等 等 ） ？ 另 外 ， 我 能 用 什 么 方 法 来 控 制 某 些 字 段 是 否 在 网 格 中 显 示 （ 而 这 些 字 段 本 身 又 参 与 了 数 据 库 的 操 作 ） ？ 最 后 ， 我 怎 样 才 能 象 FOXBASE或 FOXPRO等 数 据 库 语 言 那 样 实 现 多 个 数 据 库 的 链 接 ？ 请 指 教 。
<END>
19,使用SQL语句时，为什么说“缺少语句结束”和“缺少case ” 
问 题 : 有 一 *.dbm库 ,其 中 有 表 
     资 料 向 导 日 报 
    报 刊 名 数 量 单 位 订 阅 数 单 位 订 阅 数 
    向 导 mb1 4 mb1 5 
    日 报 mb2 3 mb2 6 
    把 "向 导 "表 中 的 (订 阅 数 )合 计 付 给 "资 料 "表 中 的 向 导 记 录 中 (数 量 )字 段 ,"日 报 "也 是 ,付 给 日 报 记 录 的 (数 量 )字 段 .我 用 : 
    insert into 资 料 ("数 量 ") select sum(订 阅 数 ) from 向 导 
    提 示 错 误 :缺 少 语 句 结 束 
    另 外 ,把 字 段 付 给 变 量 
    select 字 段 名 as 变 量 名 from 表 名 
    提 示 错 误 :缺 少 case 
    把 变 量 付 给 字 段 对 不 对 ? 
    update 表 名 set 字 段 名 =变 量 名 
<END>    
20,如何用SQL语句把多行文本框的内容写入数据库中 
问 题 ： 想 把 多 行 文 本 框 的 内 容 写 入 数 据 库 中 。 不 用 update方 法 ， 而 是 直 接 用 sql语 句 。 （ 如 果 是 单 行 文 本 ， 可 用 单 引 号 引 起 来 ， 但 多 行 文 本 不 行 ） 
<END>
21,执行SQL命令时出错： 至少有一个参数没有被指定值 
问 题 ： 我 在 编 程 中 用 到 SQL命 令 ： 
     connection1.Execute "UPDATE 工 资 发 放 表 SET 扣 款 合 计 =浮 动 工 资 +水 费 +电 费 +会 费 +有 线 电 视 +公 积 金 +医 疗 保 险 金 +个 人 所 得 税 +空 5+空 6" 当 执 行 时 出 错 ， 为 实 时 错 误 ： -2147217904(80040e10) 至 少 有 一 个 参 数 没 有 被 指 定 值 。 在 运 行 中 主 要 是 个 别 字 段 导 致 了 这 个 错 误 ， 请 问 如 何 解 决 。 
    还 有 一 个 问 题 ： 如 何 在 关 闭 Mdiform窗 口 前 关 闭 其 所 有 的 子 窗 口 ？ 
<END>    
22,SQL Server中可否进行多库中的表查询 
问题: SQL中可否进行多库中的表查询？ (ADO或者DAO是否支持？） 
<END>    
23,如何将表中数据一次性清除 
问 题 : 窗 体 Form1中 建 立 一 Data1、 DBGrid1， 分 别 绑 定 到 一 Acess数 据 库 、 表 。 
    请 问 ： 1、 在 运 行 中 ， 如 何 对 某 字 段 的 记 录 求 和 （ 有 条 件 或 无 条 件 ） ， 并 将 结 果 赋 于 变 量 。 如 ， 当 DBGrid1中 某 单 元 格 数 据 改 变 时 ， 重 新 求 和 。 
    2、 在 运 行 中 ， 如 何 将 表 中 数 据 一 次 性 清 除 ? 
<END>    
24,用SQL在多张表查到符合条件的数据如何将修改的内容保存在源数据库中 
问 题 ： 用 SQL在 多 张 表 查 到 符 合 条 件 的 数 据 ,而 后 我 想 在 查 得 的 临 时 表 中 想 修 改 记 录 ,并 且 能 够 将 我 修 改 的 内 容 保 存 在 源 数 据 库 中 。 
<END>    
25,如何在SQL语句中进行日期比较 
问 题 ： (1) 如 何 用 类 似 Set rs = dl.OpenRecordset("SELECT DISTINCT RECDate FROM Condate Where Recdate>=" & DateValue(Format(D, "yy-mm-dd")) & " ORDER BY RECDate asc; ")的 SQL语 句 打 开 一 个 数 据 库 。 WHERE条 件 是 日 期 字 段 Recdate与 日 期 变 量 D比 较 要 大 的 记 录 ？ 在 SQL语 句 中 能 不 能 转 换 字 段 类 型 ， 如 问 题 是 的 Recdate日 期 字 段 ？ 
    (2)为 何 在 上 面 的 查 询 结 果 中 比 当 前 日 期 大 的 日 期 不 正 确 ， 如 00-01-02和 01-02-03都 大 于 00-08-30？ 
<END>
26,SQL查询加排序功能后为什么错了 
问 题 : 大 师 ： 
    加 排 序 功 能 如 下 ： 错 在 哪 里 ？ 
    strSql = "select * from 设 备 档 案 order by 设 备 编 号 where " & Combo1.List(Combo1.ListIndex) & " like " & Chr(39) & Text3.Text & "*" & Chr(39) 
<END>    
27,怎样可以用SQL语句存入半角的双引号 
问 题 ： 我 怎 样 可 以 用 SQL语 句 存 入 半 角 的 双 引 号 ？ 
<END>
28,调用SQL进行模糊查询总是得不到预期得记录集 
问 题 : 在 VB6数 据 库 编 程 过 程 中 我 想 利 用 ADO调 用 SQL的 LIKE */？ 等 进 行 模 糊 查 询 总 是 得 不 到 预 期 得 记 录 集 ， 而 且 是 空 的 记 录 集 ， 而 在 ASCEE数 据 库 中 或 在 VB自 带 的 数 据 访 问 中 测 试 我 的 SQL语 句 正 确 ， 不 知 何 故 ？ 请 赐 教 ！ 
     如 ： "SQL * FROM 人 事 表 where 籍 贯 ='安 徽 *'" 
<END>    
29,如何查询字段中第0、1 bit为1的记录 
问 题 : 我 用 vb做 的 程 序 以 Access库 为 基 础 。 其 中 有 一 个 表 中 一 个 Byte字 段 以 bit为 单 位 ， 作 为 标 志 位 ， 如 果 ， 我 想 查 询 该 Byte字 段 中 第 0、 1 bit为 1的 记 录 ， 如 何 组 织 select语 句 ？ 请 赐 教 ！ 
<END>
30,怎样用SQL语句实现只列出符合条件记录的前（N）条 
请 问 怎 样 用 SQL语 句 实 现 只 列 出 符 合 条 件 记 录 的 前 （ N） 条 呢 ？
<END>
31,SQL进行数据合计的时候，精度不对 
问 题 ： 为 什 么 我 用 vb的 SQL进 行 数 据 库 中 数 据 合 计 的 时 候 ， 将 本 来 只 有 2位 小 数 为 数 的 数 字 相 加 ， 结 果 中 出 现 了 10个 左 右 的 小 数 位 数 ， vb怎 么 会 有 这 样 的 错 误 ， vb的 数 据 库 运 算 怎 么 会 这 样 的 。 该 如 何 处 理 这 个 错 误 ， 如 何 控 制 运 算 结 果 的 小 数 位 数 。 
    前 几 天 我 用 vb的 字 段 运 算 ： .feilds("实 发 工 资 ")=.feilds("应 发 工 资 ")-feilds("养 老 金 ")-.feilds("待 业 金 ")-.feilds("公 积 金 ")时 候 ， 也 出 现 了 将 本 来 只 有 1位 小 数 位 数 的 数 字 相 减 出 了 4位 小 数 位 数 的 问 题 。 将 字 段 运 算 转 换 位 变 量 运 算 之 后 错 误 消 失 。 但 对 SQL运 算 中 的 错 误 我 很 难 解 决 ， 特 向 你 请 教 了 。 
<END>
32,如何使用SQL语句提供的统计函数处理考试数据 
我 在 学 习 VB6， 试 着 编 数 据 库 ， 是 关 于 学 习 成 绩 统 计 的 ， 在 某 班 级 成 绩 表 窗 口 中 （ ADODC1 AND DATAGRID1） ， 希 望 在 旁 边 列 一 个 二 维 表 ， 反 映 出 各 学 科 的 考 试 人 数 、 及 格 人 数 、 优 秀 人 数 、 及 格 率 、 优 秀 率 、 平 均 分 、 最 高 分 
    和 最 低 分 （ 如 下 表 ） ， 用 SQL语 句 提 供 的 统 计 函 数 够 用 吗 ？ 可 以 组 合 吗 ？ 有 怎 样 的 规 则 ？ 
     学 科 考 试 人 数 及 格 人 数 优 秀 人 数 及 格 率 % 优 秀 率 % 平 均 分 最 高 分 最 低 分 
     语 文 X X X X X X X X 
     数 学 X X X X X X X X 
     英 语 
     政 治 
     物 理 
     化 学 
     总 分 
<END>
33,SQL server query analyzer为什么执行不了select into 
编 程 工 具 : sql server 7.0 vb6.0 
    在 sql server query analyzer 执 行 语 句 ： 
    select * into t_1 in 'd:\' 'dbase IV;' from t_1 （ t_1 是 一 个 表 名 ） ,出 现 错 误 。 
    但 通 过 ODBC 和 VB 的 DAO 用 类 似 语 句 却 没 有 错 误 ， 且 生 成 T_1.dbf文 件 。 为 什 么 ？ 
<END>    
34,FindFirst中数字型怎么可以和String类型相加呢 
问 题 : 一 个 有 关 数 据 类 型 的 问 题 ， 在 某 个 Access数 据 库 的 表 中 ,H 的 数 据 类 型 为 INTEGER,在 VB6中 ,有 以 下 语 句 : 
    RS.FindFirst “ H=” &Text1.Text,VB6却 没 有 提 示 错 误 。 Text应 为 String类 型 ， 怎 能 与 H匹 配 相 加 ? 
<END>