关于数据库即时查询的问题！！在线等待，！！！

Question

我想也许是"select * from table1 where kahao like ' " & kahao & " ' "有问题，在like后面加上一个“=“试一下，还有我想rc的参数为3，1为好！可以试一下！

Answer 1

select * from table1 where kahao like ' %" & kahao & "% '

Answer 2

通配符不对，应使用“%”。
打开后不用MoveFirst。

Answer 3

textsql = "select * from table1 where kahao like ' " & kahao & " ' "
应该写成：
textsql="select * from table1 where kahao like '" &kahao & "' & '" '%' " '"
这样就可以了~~~~~~~~~

Answer 4

大家好！我那句sql语句是没有什么问题的我就是想精确的查询kahao的！！！所以没加“%”在编译的时候是这里开始有问题的！ rc.MoveFirst          
 ’kahao在数据库中是唯一的，所以我用这种方法不知道可对？？？？？？？
 '就是这句一直在报错，可是注释掉依然没结果
If Not rc.EOF Then
 gk_xm.Text = rc.Fields("gk_xm")  ’显示结果 Else
  gk_xm.Text = "0"   ‘ 找不到时显示的，可是总显示0了
End If

Answer 5

你这样可不可以
dim gk_xmtxt as stringIf Not rc.EOF Then
 gk_xmtxt = rc.Fields("gk_xm")  ’显示结果
 gk_xm.text=gk_xmtxt
 Else
 gk_xm.Text = "0"   ‘ 找不到时显示的，可是总显示0了
End If加个变量进去看看如何，你原先的方式也许理论上可以，但是我也遇到过同样的问题，加了一个变量进去，虽然麻烦但是问题解决了，try it :)

Answer 6

怎么还是不行啊！！！！
Private Sub kahao_Change()Dim kahaotemp As String '临时存放卡号
Dim nametemp As String '临时存放姓名kahaotemp = kahao.TextDim conn1 As ADODB.Connection
 Dim rc1 As ADODB.Recordset
 Set conn1 = New ADODB.Connection
 Set rc1 = New ADODB.Recordsetconn1.Open "driver={SQL Server};server=ahbs\ahbs;uid=;pwd=;database=test"textsql = "select * from table1 where kahao like '% " & kahaotemp & "% ' "rc1.Open textsql, conn1, 1, 3  '连接If Not rc1.EOF Then nametemp = rc1.Fields("gk_xm")  '显示结果
 gk_xm.Text = nametemp
 Else
 gk_xm.Text = "0"   ' 找不到时显示的，可是总显示0了
 
 End If
Set rc1 = Nothing
Set conn1 = NothingEnd Sub

Answer 7

是kahao_Change事件的问题，在 gk_xm.Text = rc.Fields("gk_xm")时，kahao_Change又执行了一次，所以gk_xm.text总是0

Answer 8

付值后都没有refresh，当然不能显示。If Not rc.EOF Then
 gk_xm.Text = rc.Fields("gk_xm")  set gk_xm.DateSource=rc
 gk_xm.refresh Else
  gk_xm.Text = "0" 
End If

Answer 9

你应该先判断一下len(kahao)是不是达到你库中卡号的长度了，
够长了在执行查询，否则，“精确”查询结果为空，rc.MoveFirst自然出错

Answer 10

库中卡号的长度是不定的啊·！关键就是如何让显示的结果
跟这kahao后面变动啊！！不过可以放心的是kahao是唯一的
只要找到就会只显示一个结果的了！！！！！！！！
等~~~~~~~~`

Answer 11

还没搞定么！！！卡号的长度不定，那怎么等到 输入kahao结束，或是在输入的同时就在数据库中查找记录呢！！！诶~~~，不知道自动刷新可不可以了饿！！帮你UP！！
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 12

我不太清楚sqlserver不需要用户名也能登录？uid=""?
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 13

用这种写法试试:
If rc.RecordCount>0 Then
 gk_xm.Text = rc.Fields("gk_xm")  set gk_xm.DateSource=rc
 gk_xm.refresh Else
  gk_xm.Text = "0" 
End If
还有我想应该在键盘按键事件写代码比较合适，因为Change事件在你执行gk_xm.Text=rc.Fields("gk_xm")时好像又被执行了，所以好像应在KeyUp里写这些实现代码。