VB怎么查询ACCESS表？

来源：百度知道 编辑：UC知道 时间：2024/07/04 19:09:28
1个text空间 1个DataGrid控件 1个Adodc控件 1个Command控件
我想在text中输入学号 按下Command控件 DataGrid就显示该学生的成绩
代码应该怎么打
Private Sub Command1_Click()
Dim findbook As New ADODB.Recordset
Dim sql As String
sql = "select * from 成绩表 where " & "学号='" & Trim(Text1.Text & " ") & "'"
findbook.CursorLocation = adUseClient
findbook.Open sql, conn, adOpenKeyset, adLockPessimistic
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Set DataGrid1.DataSource = findbook
End Sub

Private Sub Form_Load()

End If

End Sub
这个有什么问题？
表已建好 名为成绩表
本人菜鸟 希望能解释下每个语句的作用

建议使用adodb连接数据库，这样比较灵活，用adodc控件的方式不便修改。
----------------------
假设你的数据库名为database.mdb并与程序放在同个文件夹下，里面有个表名为成绩表. 首先要在vb的 工程--->引用... 这个菜单里引用 “Microsoft ActiveX Data Objects2.5 Library”(现在最高2.8)
dim Cn As New ADODB.Connection '连接的变量
Public Sub Conn()
'---------------------------------定义连接。cn
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\database.mdb;" & _
"Persist Security Info=False;" & _
"Mode=ReadWrite|Share Deny None;" & _
"Jet OLEDB:Database Password="
Cn.CommandTimeout = 30
Cn.CursorLocation = adUseClient
Cn.Open
End Sub
'---------------------------------定义连接。cn
'--------------------------------查询
Private Sub Command1_Click()
Call Conn '窗体加载时建立与数据库的连接。
Dim Findbook As New ADODB.Recordset '定义数据集