Question

我有以下代码，它返回错误：

应用程序定义或对象定义错误。

Public Sub TestConnection()
    Dim conn
    Set conn = New ADODB.connection
    CONSTRING = "Provider=NZOLEDB;Data Source=location;Initial Catalog=database;User ID=username; Password=password;"
    conn.Open CONSTRING

End Sub

知道为什么会这样吗？我没有替换变量等，只是直接在字符串中输入它们。

Answer 1

我认为您只需添加对Microsoft ActiveX Data Objects (ADO)的引用。

for more information about using ADODB in Visual Basic。

作为微软的例子，我建议你使用这种声明：

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

ADODB.connection打开返回应用程序定义或对象定义的错误

1 个答案: