在 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 在代码中创建数据库名称。