vb access输入某字段内容查询其他信息
来源:百度知道 编辑:UC知道 时间:2024/09/12 16:35:17
有几个文本框和一个按钮 我想在一个文本框中输入姓名 之后按
那个按钮 其他文本框就能显示出其他字段的信息
我的使用ado连接的数据库
请问 那个按钮的代码该怎么写啊 ??
ballsky 正解,呵呵。
我都是引用microsoft activex data objects 2.5 library
连接数据库,其他的方法不太懂。
'引用microsoft activex data objects 2.x library
'添加三个TEXT,一个COMMAND
方法一:
Private Sub Command1_Click()
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim s As String
s = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\Ballsky\桌面\进货单.accdb" '换成你自己的AC接连字符串
Cnn.Open s
Rs.CursorLocation = adUseClient
Rs.Open "这里换成你的数据库表名称", Cnn, 3, 3
Do While Not Rs.EOF
If Text1.Text = Rs.Fields(0) Then
Text2.Text = Rs.Fields(1)
Text3.Text = Rs.Fields(2)
End If
Rs.MoveNext
Loop
Rs.Close
Cnn.Close
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
方法二:
Private Sub Command1_Click()
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Re