Question

我尝试创建ODBC连接，以便能够在我的SQL DB中的一个表上执行简单的SQL查询。

以下是我的代码，我不确定我做错了什么，但我一直收到ActiveX can't create an object错误，并突出显示以下行：Set con = CreateObject("ODBC.Connection")。

Private Sub findBtn_Click()

    Dim s
    Dim con As Object 'OdbcConnection
    Dim strCon
    Dim rsSearch
    Dim strSql
    Dim mystring As String
    Dim cmd 'As OdbcCommand

    s = Me.findTxt

    mystring = "Select * from CUSTOMER where CUSTOMER.FORENAME1 like '%" & s &   "%';"

    Set con = CreateObject("ODBC.Connection")

    con.Open "ODBC;Driver={SQL Server};" & _
    "Server=localhost;" & _
    "Database=Customers23;" & _
    "UID=admin;" & _
    "PWD=admin;"

    Set cmd = CreateObject("ODBC.Command")
    cmd = mystring
    Me.resTxt = "Connected!"
    MsgBox ("Connected")

End Sub

Answer 1

尝试用ADODB.Connection替换ODBC.Connection。

与ODBC.Command相同

您可以在How do I setup an ADODB connection to SQL Server 2008 in Microsoft Access 2010?

找到示例

另请参阅有关如何使用Command对象的链接。

vba ActiveX无法创建odbc.connection对象

1 个答案: