Question

vb ado控件的使用，求高手指导

我想用ADO控件根据text框的内容自动搜索数据库的内容并显示
所以输入了Adodc1.RecordSource = "select 编号 from 表11 where 编号=" & text1.Text并放在了每100毫秒计时的timer里，但是datagrid一点反应都没有，为什么？

Answer 1

首先要将datagrid与ado控件绑定，你可以手工设置，也可以用代码设置。

假设datagrid名称为：datagrid1 ,下面举代码设置示例:
窗体加载事件过程
Private Sub Form_Load()
Set datagrid1.RecordSource=Adodc1 '将datagrid控件与ado控件绑定
End Sub

跟着在定时器（假设定时器名称为Timer1）添加下列Timers事件过程：
Private Sub Timer1_Timer()
Timer1.Interval=100 '设置定时器时间间隔为100毫秒
Timer1.Enabled=True '命令定时器执行事件过程
'每100毫秒更新ADO控件的记录源，以自动显示根据text框的内容查询出的最内容
Set Adodc1.RecordSource = "select 编号 from 表11 where 编号=" & text1.Text
End Sub
建议INTERVAL时间设置为300-500毫秒以节省系统开销，100毫秒偏小了一点。
请上机试一试效果吧，祝你成功。

追问

没用，谢谢

追答

请检查你之前是否正确设置了Adodc1的ConnectionString值。

追问

已经设置好了，现在所有问题里除了搜索这个问题始终解决不了以外，都解决了。
使用set会报错，但是如果只写Adodc1.RecordSource = "select 编号 from 表11 where 编号=" & text1.Text的话，神奇的事情就发生了，我用一个text框显示Adodc1.RecordSource的内容，竟然就是这么一句话，相当于只是显示了字符串，并没有把这句话当语句来执行，这是为什么

追答

或者改成如下写法：
Private Sub Form_Load()
Set datagrid1.RecordSource=Adodc1 '将datagrid控件与ado控件绑定
Timer1.Interval=100 '设置定时器时间间隔为100毫秒
Timer1.Enabled=True '命令定时器执行事件过程
Adodc1.ConnectionString="正确的连接字符串"
Set Adodc1.RecordSource = "select 编号 from 表11 where 编号=" & text1.Text
End Sub
Private Sub Timer1_Timer()
Adodc1.Refresh
End Sub

追问

没办法用set语句啊……一用就报错说是错误的参数号或无效的属性赋值

追答

我想问题应该发生在连接上，请仔细检查这方面的问题，我这里无法判断。

lzy888 我想起来了，如果你连接的数据库是MSSQLSERVER的话，你的那条SQL查询语句可以改为这样写："select 编号 from 表11 where 编号=N'" & text1.Text & "'"
以前我编写ACCESS项目访问SQLSERVER时碰过类似问题，后来按上述写法重写SQL语句，问题就解决了。
重新整理代码如下：
Private Sub Form_Load()
Timer1.Interval=300 '设置定时器时间间隔为300毫秒
Timer1.Enabled=True '命令定时器执行事件过程
With ADODC1
.ConnectionString = "driver={SQL Server};" & _
"server=bigsmile;uid=sa;pwd=pwd;database=pubs" '实际连接字符串根据实际调整
. RecordSource = "select 编号 from 表11 where 编号=N'" & text1.Text & "'"
End With
Set DataGrid1.DataSource = ADODC1
End Sub
Private Sub Timer1_Timer()
Adodc1.Refresh
End Sub

Answer 2

把adidc1刷新一下看看

Answer 3

Adodc1.RecordSource = "select 编号 from 表11 where 编号='" & Text1.Text & "'"

Adodc1.Refresh

还有，最好把编号改来biaohao，不要用中文的，datagrid要和adodc1连上，，如果不会的话，把表发来，我帮你写好，你再看吧。

Answer 4

编号=" & text1.Text
编号= text1.Text

放在TEXT的Cheng里

Answer 5

缺少单引号，而且使用了中文（易出错），改为：
Adodc1.RecordSource = "select Number from DBName where Number = '" & text1.Text & "'"
放在text的change事件中，可以有效节省资源