VB6 和 ODBC 命令

Question

我在这里开始了一个线程，这是该帖子的延续：Calling a Module and a Class within a Form

我找不到成功查询数据库所需的信息。我需要做的是从 Pervasive 数据库中获取单个值。我找不到要执行此操作的 ODBC 命令列表。

有人可以指点我一些处理这些 Pervasive ODBC 命令的文档吗？我正在使用 ADO ODBC 进行连接。

编辑：

我也尝试连接到 MySQL 数据库并遇到同样的错误。这是我为调用 MySQL 函数而创建的测试 Sub。 MySQL 的错误与 Pervasive 的错误相同：“Object variable or With Block variable not set”

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

Answer 1

首先，您需要连接到数据库。根据this website，连接字符串将采用以下格式：

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