UC知道VB查询数据ACCESS（DAO）
来源：百度知道 编辑：UC知道 时间：2024/07/05 22:07:06
引用 Microsoft ActiveX Date Objcts 2.6 Library
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\aaa.mdb;", "admin"
Dim ban0, pc0 As String
ban0 = "一年级5班"
pc0 = "D201"
Sql = "select ban,pc from stu where ban＝'" & ban0 & "' and pc=＝'" & pc0 & "'"
label1.caption=rs(?) '显示搜索到的录的其它字段内容
label2.caption=rs(?) '显示搜索到的录的其它字段内容
label3.caption=rs(?) '显示搜索到的录的其它字段内容
End Sub
不行哦！ 不知道怎么搞。 VB朋友帮修改一下， 谢谢！！！
谢谢您的回答，不过VB的东西我没学过。还望再复！！
rs.open sql,conn,1,1 这句出现对像或变量 WITH块 未定义？？
其它字段有 name pass munber
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\aaa.mdb;", "admin"
Dim ban0, pc0 As String
ban0 = "一年级5班"
pc0 = "D201"
Sql = "select ban,pc from stu where ban＝'" & ban0 & "' and pc=＝'" & pc0 & "'"
label1.caption=rs(?) '显示搜索到的录的其它字段内容
label2.caption=rs(?) '显示搜索到的录的其它字段内容
label3.caption=rs(?) '显示搜索到的录的其它字段内容
End Sub
不行哦！ 不知道怎么搞。 VB朋友帮修改一下， 谢谢！！！
谢谢您的回答，不过VB的东西我没学过。还望再复！！
rs.open sql,conn,1,1 这句出现对像或变量 WITH块 未定义？？
其它字段有 name pass munber
你的这个只能显示ban和pc字段的数据，因为你只是读出了这两个字段的数据
如果你要其他字段的也一起读出来，那么你就去掉ban和pc吧sql写成
Sql = "select * from stu where ban＝'" & ban0 & "' and pc='" & pc0 & "'"
rs.open sql,conn,1,1
这样就可以读出来了，不过看起来你并不知道数据库里面有哪些字段，如果你知道的话，那么可以用rs("字段名称")来得到你要的值，如果你不知道数据库有什么字段，那么谁也不能帮助你了