我用adodc 连接ACCESS,写了如下的代码但开始运行时总是提示〔ADODC〕:没有指定记录源  〔ADO〕:没有为命令对象设置命令,运行后点击 Command1 又提示:标准表达式中数据类型不匹配。我在ADODC属性-通用中使用了连接字符串,也能通过连接测试。请帮我改一下下面的代码,如果需要在ADODC或ACCESS中进行什么设置或写什么命令也请祥细写一下,不胜感激。Public Cn           As New ADODB.Connection
Public V_Conn       As String
    
Private Sub Command1_Click()
V_Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\新建文件夹 (2)\Interface.mdb;Persist Security Info=False"
Cn.Open V_Conn
Cn.CursorLocation = adUseClient
Dim Rs As New ADODB.Recordset
     Str1 = "Select * From CompareBase Where Xm_Code <> 0"
     Rs.Open Str1, Cn
     Set Adodc1.Recordset = Rs
     Adodc1.Refresh
End Sub

解决方案 »

  1.   

    Dim rs As New ADODB.Recordset '定义数据库连接变量
    Dim cnn As New ADODB.Connection
    Private Sub Form_Load()
    Set cnn = New ADODB.Connection '数据连接
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\新建文件夹 (2)\Interface.mdb;Persist Security Info=False "
    cnn.Open
    Set rs = New ADODB.Recordset
    rs.Open "Select * from CompareBase ", cnn, adOpenKeyset, adLockOptimisticEnd Sub
    这段应该是能正确连接数据库的.