VB access 查询语句

来源：百度知道 编辑：UC知道 时间：2024/05/25 08:12:23
数据库 用什么查询语句啊，就是在一个文本框输入一个数据库有的信息，点查询，然后就显示到datagrid上面去啊。只有5分了，请大虾们帮帮忙。

datagrid必须配合 ADOD

dbConnectStr = "Driver={Microsoft Access Driver (*.mdb)};Dbq=Any.MDB;DefaultDir=" & App.Path & "\" & ";"
dbStr = "SELECT * FROM 学生表 where 学号=" & Index
Set gridData.DataSource = Nothing
Adodc1.RecordSource = ""
Adodc1.ConnectionString = ""
Adodc1.ConnectionString = dbConnectStr
Adodc1.RecordSource = dbStr
Adodc1.Refresh
If Adodc1.Recordset.Fields.Count = 0 Then
gridData.ClearFields
Else
Set gridData.DataSource = Adodc1.Recordset
gridData.ClearFields
gridData.ReBind
End If

SQL语句啊,这个是通用的
SELECT 字段(如:学号,姓名) FROM 表名 WHERE 条件(如:学号=11111)

真接用里的查询就可以，是可视的。

这个是查询的代码-command1单击事件（即查询）
Private Sub Command1_Click()
Adodc1.Recordset.Filter = ""
Set DataGrid1.DataSource = Adodc1.Recordset
Dim condition As Stri