Question

在vb中怎样查询Access数据库中的数据？我是新手，请大家帮帮忙啊

下面的代码有什么问题啊？
Private Sub cmd_Search_Click()

strSql = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;Data Source=" & App.Path & "\温度.mdb"

Set Db = New ADODB.Connection '创建新的连接对象

Db.Open strSql '打开连接

Set Rs = New ADODB.Recordset

Rs.CursorLocation = adUseClient

Rs.CursorType = adOpenKeyset

Rs.LockType = adLockReadOnly

Rs.Open "select*from wendu"

If Rs.RecordCount < 1 Then

MsgBox ("数据库中没有数据！")

Exit Sub
End If

Set DataGrid1.DataSource = Rs

DataGrid1.Refresh '刷新

End Sub

Answer 1

1、你必须在【工程】菜单【引用】里面添加对【Microsoft ActiveX Data Objects 2.0 Library】的引用！这样才可以识别你定义的ADODB类型。
2、你的 Rs.Open "select*from wendu" 这一行代码有误！
1）select*from 之间应该有空格，即select * from
2）你的Rs记录集来自哪里？也许你会说当然是wendu表了！可是，你的表又来自哪里呢！？这是必须要标明的，否则无法读取。
所以，这行代码应改成下面这样：
Rs.Open "select * from wendu", Db