为什么这个查询就出错呢？（已经解决）

kiko2006

我用已一个excel窗口来查询access里面的数据，但是就是不行，录入都没问题，为什么查询出问题了啊，求教老师了.

[ 本帖最后由 kiko2006 于 2010-4-29 13:33 编辑 ]

wudixin96

1. Sub chaxun()
   
2. Dim cnn As ADODB.Connection
   
3. Dim rs As ADODB.Recordset
   
4. Dim mydata As String, mytable As String
   
5. Dim SQL As String
   
6.     On Error GoTo 10
   
7.     mydata = ThisWorkbook.Path & "\1.mdb"
   
8.     mytable = "学生成绩"
   
9.     Set cnn = New ADODB.Connection
   
10.     With cnn
    
11.         .Provider = "microsoft.jet.oledb.4.0"
    
12.         .Open mydata
    
13.     End With
    
14. 
    
15.     SQL = "select * from " & mytable & " where 学生='" & UserForm1.TextBox1.Text & "'" '这里出问题了，要写全textbox1是哪的，因为你把这个代码是写在模块当中的
    
16. 
    
17.     Set rs = New ADODB.Recordset
    
18.     rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
19. UserForm1.TextBox2 = rs(2)
    
20. UserForm1.TextBox3 = rs(3)
    
21. UserForm1.TextBox4 = rs(4)
    
22. UserForm1.TextBox5 = rs(5)
    
23. 
    
24.     rs.Close
    
25.     cnn.Close
    
26.     Set rs = Nothing
    
27.     Set cnn = Nothing
    
28. 10 End Sub

复制代码