Question

vb access输入某字段内容查询其他信息

数据库的表中有编号，姓名，性别，年龄等几个字段
有几个文本框和一个按钮 我想在一个文本框中输入姓名 之后按
那个按钮 其他文本框就能显示出其他字段的信息
我的使用ado连接的数据库
请问 那个按钮的代码该怎么写啊 ？？

Answer 1

'引用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.Recordset
Dim S As String, Sing As String
S = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\Ballsky\桌面\进货单.accdb" '换成你自己的AC接连字符串
Cnn.Open S
Rs.CursorLocation = adUseClient
Sing = "select * from 你的表名称 where UName ='" & Text1.Text & "'"
Rs.Open Sing, Cnn, 3, 3
On Error Resume Next
Text1.Text = Rs.Fields(0)
Text2.Text = Rs.Fields(1)
Text3.Text = Rs.Fields(2)
Rs.Close
Cnn.Close
End Sub

Answer 2

我都是引用microsoft activex data objects 2.5 library
连接源亮数据库，其他的肆拦方法不太懂。裂裂胡

Answer 3

ballsky 正解，呵呵。