vb 在文本框中输入数值，点击查询，在下面几个文本框中查询出数据库中该信息。

Question

比如Access数据库，数据库名成绩，表名学生情况表，输入学号点查询，在下面几个文本框中显示学号，姓名，籍贯，等信息，用ado控件

Answer 1

Private Sub Command1_Click()
With Adodc1
.RecordSource = "select * from [你的表名] where [学号]='" & Text1.Text & "'"
.Refresh
Text2.Text = .Recordset("[学号]")
Text3.Text = IIf(IsNull(.Recordset(["姓名"])), "没有姓名", .Recordset(["姓名"]))
Text4.Text = IIf(IsNull(.Recordset(["籍贯"])), "没留籍贯", .Recordset(["籍贯"]))
End With
End Sub追问

出错，外部名未定义

追答

笔误了，(.Recordset(["姓名"]))这里，把中括号放在引号内，或者把中括号先取掉。以下同

Answer 2

用ADO控件，你不是说了嘛，绑定数据源追问

查询按钮的代码怎么写？