UC知道VB如何使用ADO方法查询数据表里的一段数据？
来源：百度知道 编辑：UC知道 时间：2024/06/17 01:58:26
在一个窗体里建两个text，一个里面输入姓名，一个里面输入专业，建一个查询按钮，要求查出符合条件的数据，ACCESS数据表中的信息有学号、姓名、年级、专业、学期、考试时间、考试科目、考试地点、课程性质、科目分数，在建一个DataGrid控件将查询结果显示在里面，采用ADO方法连。数据库有Adodc控件！要有详细代码，最好有一些注释，是菜鸟级别的，谢谢！
要求查出的是符合前面输入姓名和专业人员的全部数据。
要求查出的是符合前面输入姓名和专业人员的全部数据。
用控件简单.
前提条件要把adodc控件正常连接的数据库上
datagrid控件绑定到adodc控件上
Private Sub Command1_Click()
'连接数据库
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb"
'查询
Adodc1.RecordSource = "select * from 表 where 姓名 like '" & Text1.Text & "' and 专业 like '" & Text2.Text & "'"
Adodc1.Refresh
End Sub
记得在部件中引用 Microsoft active data object2.8
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1111.mdb"
conn.Open
Dim sSQL As String
sSQL = "SELECT * FROM 表 where "
rs.Open sSQL, conn, adOpenDynamic, adLockOptimistic
Do Until rs.EOF
有数据的话记录都在 rs里
学号 = rs.Fields("xuehao")
rs.MoveNext 移动到下一条记录
Loop