在VBA中创建到Pervasive的DSNless连接

Question

我是连接数据库的新手，所以如果我不熟悉一些术语，我很抱歉。

我想使用VBA打开一个到普及数据库的DSNless连接，但我遇到了各种问题。我遇到的所有论坛都提供了各种代码，这些代码很有帮助，但我希望看到一个完整的子例程，看看它们是如何组合在一起的。通过尝试将不同的代码位应用到我的代码中，我最终遇到了各种错误代码。

因此，有人可以张贴一个完整的代码示例，打开一个连接并创建一个记录集。我将不胜感激

来自评论

Sub pervasiveExample() 
Dim adoConn As ADODB.Connection 
Set adoConn = New ADODB.Connection 
adoConn.Provider = "PervasiveOLEDB" 
adoConn.ConnectionString = "driver={Pervasive ODBC Client Interface};Data Source=C:\TestData" 
adoConn.Open 
If adoConn.State = adStateOpen Then 
    MsgBox "Welcome" 
Else MsgBox "Error connecting to Database." 
End If 
End Sub 

这是我随后得到的错误:运行时错误‘-2147217837(80040e53)’：在连接字符串中设置了模式、保护级别或未知参数(错误

Answer 1

不管怎样，我看到你的问题了：

Sub pervasiveExample()
Dim adoConn As ADODB.Connection
Set adoConn = New ADODB.Connection
adoConn.ConnectionString = "driver={Pervasive ODBC Client Interface};DBQ=DEMODATA"
adoConn.Open
If adoConn.State = adStateOpen Then
    MsgBox "Welcome"
Else
    MsgBox "Error connecting to Database."
End If
End Sub

如果在连接字符串中使用"driver=“，则不能使用路径。您必须在连接字符串中指定数据库名称(或使用ServerDSN=和ServerName=进行远程连接的引擎DSN )。在使用ODBC驱动程序时，也不要指定提供程序。

如果不创建至少一个普适数据库名称，则无法连接到PSQL数据库。您不需要ODBC DSN，但它很有帮助。不支持使用PSQL ODBC或OLEDB连接到路径。

您可以使用DTO在代码中创建数据库名称。