Question

VB 调用mdb问题

Private Sub Form_Activate()Dim Cnn As New ADODB.Connection: Dim Rst As New ADODB.RecordsetCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Setting.mdb;Jet OLEDB:Database Password=000000"SQLs = "Select * From Form1_Command1 where No='1'"Rst.Open SQLs, Cnn, 1, 3If Not Rst.EOF Then MsgBox "有记录"End Sub

请教为什么运行之后不会显示“有记录”，哪里错了或者有什么地方没弄么？





Answer 1

你可以按照下面思路检查

1. sql语句修改成，SQLs = "Select * From Form1_Command1 " 看是否有记录

2. 引用那里Activex 选择2.5版本的试试
   

追问

改成SQLs = "Select * From Form1_Command1 "是有的~
所以估计是where No='1'"这里有问题，但是试过几次还是老样子……
换2.5依旧如此