vb 连接Access出现问题,请指点

Question

连接数据库,提示找不到可安装的ISAM,我的代码问题出在那啊
Private Sub Command1_click()
Dim cnn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim varSource As String
varSource = "select * from TireData where TireManufacturer= Text1.text and DataNo=1"
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist   Security   Info=False;Data   Source=" & App.Path & "\yanshi.mdb"
cnn.Open
Set rs1.ActiveConnection = cnn
rs1.LockType = adLockOptimistic
rs1.CursorType = adOpenKeyset
rs1.Open varSource
Set DataGrid1.DataSource = cnn
      DataGrid1.Visible = True
rs1.Close
cnn.Close
End Sub

Answer 1

http://support.microsoft.com/kb/150494

Answer 2

Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim varSource As String
varSource = "select * from TireData where TireManufacturer= Text1.text and DataNo=1"
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\yanshi.mdb"
cnn.Open
rs1.CursorLocation = adUseClient
rs1.Open varSource, cnn, 3, 3
Set DataGrid1.DataSource = rs1
      DataGrid1.Visible = True
End Sub

Answer 3

varSource = "select * from TireData where TireManufacturer=  '"& Text1.text &"' and DataNo=1"

Answer 4

还是编译有错误,提示找不到可安装的ISAM,
亮点停在cnn.Open处,能不能是其他原因了呢,
各位大侠帮帮忙吧

Answer 5

试试以下代码,如有问题,请新建VB的数据工程,在数据工程的窗体添加Command1控件和DataGrid1控件,并执行以下代码.
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim varSource As String
varSource = "select * from TireData"
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\yanshi.mdb"
cnn.Open
rs1.CursorLocation = adUseClient
rs1.Open varSource, cnn, 3, 3
Set DataGrid1.DataSource = rs1
DataGrid1.Visible = True
End Sub

Answer 6

这个好用了,为什么把rs1.Close cnn.Close去掉就行了那?

Answer 7

你都关掉数据源了，datagrid连接不到了阿