VB 高手来帮忙

来源:百度知道 编辑:UC知道 时间:2024/05/28 18:54:16
如何读取Access数据库!如:
窗体上的Text1.text为Access数据库AAA表中的111值
窗体上的Text2.text为Access数据库AAA表中的222值
窗体上的Text3.text为Access数据库AAA表中的333值

当我在Text1.text中输入111的值,则让Text2.text自动读取对应的222值!如果Text3.text的值也等于333中的值则显示Form2!

本人初学VB,不是很懂,请写清代码,谢谢高手帮助!

Rs.Open "select * from exam where one='" & Text1.Text & "'", Con, adOpenStatic, adLockOptimistic
If Not Rs.EOF Then
Text2.Text = Rs.Fields(2)
Else
MsgBox "没有找到"
End If
Set Rs = Nothing