vb问题 高手在哪里？

来源：百度知道 编辑：UC知道 时间：2024/09/24 21:21:52
假如我有一数据库
学号 姓名 选课
123 张三 语文
133 李四 数学
123 张三 数学
123 张三 政治
点击Command1 在 TXETBOX中显示出 张三的学号及所有选课
在线等 跪求答案！！
DBF 表格

首先，引用数据库连接对象 工程 引用 找到
microsoft active data objects 6.0 libray
和
microsoft active data objects recordset 2.8 libray
勾选，确定

第二，定义数据库连接
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim txt As String
conn.Open "driver={microsfot access driver (*.mdb)};uid=;pwd=;dbq=" & App.Path & "\data.mdb"
rs.Open "select * from xxx where 姓名='张三'", conn, adOpenForwardOnly, adLockReadOnly
While Not rs.EOF
txt = txt & rs("学号") & " " & rs("选课") & Chr(10) & Chr(13)
rs.MoveNext
Wend
text1.Text = txt
End Sub

这样就是结果了

什么数据库啊