mysql - 在vb6中调用mysql查询

Question

我想调用我在 mysql 中创建的查询。它通过 navicat 界面工作。我试图通过 vb6 访问此查询，但出现“运行时错误 91 对象变量或未设置 block 变量”

我的代码 vb6:

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SqlCmd As ADODB.Command

con.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Database=databasename;Username=user;password=pw"

Set SqlCmd = New ADODB.Command
SqlCmd.ActiveConnection = con
SqlCmd.CommandType = adCmdStoredProc
SqlCmd.CommandText = "Stock Movement"

Set rs = sqlcms.Execute

我不确定 con.open 缺少什么？

提前谢谢

Answer 1

您正在调用 con.Open，但尚未实例化该对象。

将 Dim con As ADODB.Connection 更改为

Dim con As New ADODB.Connection