Question

vb+Access不用控件要编程怎么实现在textbox1输入信息，点击command之后，数据库中的信息就显示在textbox中

本人初学Vb，望好心人帮忙，最好一代码。如图所示

Answer 1

1.引用DAO或ADO类型，一般使用ADO
2.ADO连接Access
3.连接数据库后将需要的表信息关联到定义的记录集中
4.将记录集中需要的内容填写到textbox中
具体上网一搜“vb ado连接access”就有了

追问

能帮我看一下程序吧，谢谢！
Private Sub Command1_Click()
Dim ADOrs As New Recordset
ADOrs.ActiveConnection = ADOcn
ADOrs.Open "select * Form 信息表 Where 学生姓名='" + Text1.Text + "'"
If Not ADOrs.EOF Then
Text2.Text = ADOrs.Fields("姓名")
Else
MsgBox "该项目不存在，请重新选择！", vbCritical + vbOKOnly, "信息提示"
End If
End Sub

追答

恩？有什么问题 Dim ADOrs As New ADODB.Recordset ?
你要说出问题？不然我怎么找？

追问

我已经把Access数据库连接到VB中，现在要做的就是把Access中的信息通过textbox1查询，然后点击确定按钮，信息就显示显示在textbox中，但是不会编写程序。

追答

我发现你的select语句中是form，应该是from
Private Sub Command1_Click()
Dim ADOrs As New ADODB.Recordset
ADOrs.Open "select * From 信息表 Where 学生姓名='" + Text1.Text + "'",ADOcn,adOpenKeyset, adLockOptimistic
If Not ADOrs.EOF Then
Text2.Text = ADOrs.Fields("姓名")
Else
MsgBox "该项目不存在，请重新选择！", vbCritical + vbOKOnly, "信息提示"
End If
End Sub

追问

非常感谢，但是还得麻烦一下，如果在text1中输入的要查询的信息，怎么将数据库中的字段赋值给text2,text3呢啊？再次感谢，你比我们老师好多了。

追答

那你直接像text2.text=ADOrs.Fields("姓名")一样给text3赋值就行了，ADOrs.Fields("姓名")中的姓名替换为你需要的字段名
Private Sub Command1_Click()
Dim ADOrs As New ADODB.Recordset
ADOrs.Open "select * From 信息表 Where 学生姓名='" + Text1.Text + "'",ADOcn,adOpenKeyset, adLockOptimistic
If Not ADOrs.EOF Then
Text2.Text = ADOrs.Fields("姓名")
text3.text=adors("性别")
Else
MsgBox "该项目不存在，请重新选择！", vbCritical + vbOKOnly, "信息提示"
End If
End Sub