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