vb查找access 有点疑问求好心人解惑

20cr

这个是我定义的简单的表access做的 表叫做主表

编号        项目        值
1        one        11
2        two        22
3        three        33



Private Sub Command1_Click()

Adodc1.RecordSource = "select * from 主表" ’连接数据库
Adodc1.CommandType = adCmdText
Adodc1.Refresh


Dim condition
condition = "项目"

fd = Trim("two")

'从主表的项目中 查找two
If Adodc1.Recordset.Fields(condition).Type = 202 Then
Adodc1.RecordSource = "select * from 主表 where " & condition & "= '" & fd & "'"
Else
Adodc1.RecordSource = "select * from 主表 where " & condition & "= " & fd
End If

MsgBox Adodc1.Recordset.Fields("项目") ’显示当前项目号
MsgBox Adodc1.Recordset.Fields("值")   ’显示当前数值

End Sub

上面的代码基本上是沿用的李老师的教程里面的代码，自己理解后稍微改一下 就是行不通
不知道为啥老是显示one 和11
按理说应该是显示 two 和22

Renco

end if

下面一行加一句

Adodc1.Refresh

20cr

谢谢你，为啥这句代码中 必须要这三个
Adodc1.RecordSource = "select * from 主表" ’连接数据库
Adodc1.CommandType = adCmdText
Adodc1.Refresh


If Adodc1.Recordset.Fields(condition).Type = 202 Then
Adodc1.RecordSource = "select * from 主表 where " & condition & "= '" & fd & "'"
Else
Adodc1.RecordSource = "select * from 主表 where " & condition & "= " & fd
End If
后面的这个不能实现与数据库的链接吗

Renco

你不用refresh，他不去重新刷新数据，也就是说不会用你新给定的SQL去重新抓取数据

20cr

还是有点小问题，总之谢谢你了，没有你的帮忙 估计我还要白忙活几天。