我在这里启动了一个线程，这是该帖子的延续：Calling a Module and a Class within a Form
我找不到成功查询数据库所需的信息。我需要做的是从Pervasive数据库中获取一个值。我找不到执行此操作的ODBC命令列表。
有人可以给我指出一些处理这些普及ODBC命令的文档吗？我正在使用ADO ODBC进行连接。
编辑：
我也试图连接到MySQL数据库，并遇到相同的错误。这是我创建的一个测试Sub，用来调用MySQL函数。对于MySQL和对于Pervasive，错误相同：“未设置对象变量或With块变量”
Public Sub testMe(id)
Dim MySqlConn As adodb.Connection 'Do I need this here or in the MySQL function?
Set MySqlConn = ConnectMySQL()
MySqlConn.Open "SELECT * FROM test",MySqlConn,adOpenDynamic,adLockOptimistic
End Function
首先，您需要连接到数据库。根据{{3}}，连接字符串将采用以下格式：
Driver = {普及型ODBC客户端 接口}; ServerName = myServerAddress; dbq = @ dbname;
从上一篇文章中的代码开始，可以像这样扩展它：
Option Explicit
Public Function getEmployee() As String
Dim MyConnection As ADODB.Connection
Dim CM As ADODB.Command
Dim RS As ADODB.Recordset
Set MyConnection = ConnectSQL()
'one way using command objects
Set CM = New ADODB.Command
Set CM.ActiveConnection = MyConnection
CM.CommandType = adCmdText
CM.CommandText = "select * from <table>"
Set RS = New ADODB.Recordset
RS.Open CM,adOpenStatic,adLockBatchOptimistic
'another way using just the connection
Set RS = MyConnection.Execute("select * from <table>")
'return the data
getEmployee = RS.Fields(0).Value
End Function
Public Function ConnectSQL() As ADODB.Connection
Set ConnectSQL = New ADODB.Connection
ConnectSQL.Open "Driver={MySQL ODBC Client Interface};ServerName=localhost;dbq=@testdb"
End Function