使用带有 OUT 参数的 VB6 调用 MySQL 存储过程答案

【问题标题】：Calling MySQL Stored Procedure using VB6 with OUT Parameter使用带有 OUT 参数的 VB6 调用 MySQL 存储过程
【发布时间】：2017-09-18 01:01:38
【问题描述】：

我已经在 MySQL (Server 5.5) 中编写了这个程序

DELIMITER $$

DROP PROCEDURE IF EXISTS `InsertList` $$

CREATE DEFINER=`root`@`localhost` PROCEDURE `InsertList`(IN fName VARCHAR(20), IN fType VARCHAR(3), IN fFood varchar(20), Out fResult int)

BEGIN

  insert into tblguest (firstname, confirm, food) values (fName, fType, fFood);

  select count(id) from tblguest into fResult;

END $$

DELIMITER ;

当我从 MySQL 查询浏览器调用此过程时，它会按预期返回

Call InsertList ('V1', 'No', 'F1', @result);

Select @result;

--> 成功返回表中id的个数

我在VB6中编写了以下代码

Dim res As Integer
On Error GoTo chkErr

Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "InsertList"

cmd.Parameters.Append cmd.CreateParameter("fName", adVarChar, adParamInput, 20, Text3.Text)
cmd.Parameters.Append cmd.CreateParameter("fType", adVarChar, adParamInput, 3, Text2.Text)
cmd.Parameters.Append cmd.CreateParameter("fFood", adVarChar, adParamInput, 20, Text1.Text)
cmd.Parameters.Append cmd.CreateParameter("fResult", adInteger,adParamOutput)

cmd.Execute

res = cmd("fResult")
MsgBox res
Exit Sub

chkErr:

    Select Case Err.Number
        Case Else
            Text4.Text = Err.Number & " - " & Err.Description
    End Select

但是当它尝试运行语句 cmd.execute 时，它会抛出以下错误：

-2147467259 - [MySQL][ODBC 5.1 Driver][mysqld-5.5.34]例程 dbtest.InsertList 的 OUT 或 INOUT 参数 4 不是变量或 NEW BEFORE 触发器中的伪变量

我已经看到了适用于 SQL 的代码，那么 MySQL 本身在使用带有 OUT 参数的存储过程时是否存在问题？

【问题讨论】：

另外，请注意，如果我修改过程并删除“OUT”参数，它运行正常并且数据被插入到表中..所以它必须与“OUT”做一些事情参数

标签： mysql stored-procedures vb6

【解决方案1】：

这似乎是 MySQL ODBC 和 C/API 未解决的错误

一种解决方案是使用带有准备变量的 SQL 命令执行该操作：

Dim rs As ADODB.Recordset 

Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdText
cmd.CommandText = "call InsertList(?,?,?,@fResult)"

cmd.Parameters.Append cmd.CreateParameter("fName", adVarChar, adParamInput, 20, Text3.Text)
cmd.Parameters.Append cmd.CreateParameter("fType", adVarChar, adParamInput, 3, Text2.Text)
cmd.Parameters.Append cmd.CreateParameter("fFood", adVarChar, adParamInput, 20, Text1.Text)

cmd.Execute

'And after that, using the same connection, get the value of 
'@fResult from a single query:

Set rs = cn.Execute("select @fResult as fResult")
MsgBox rs!fResult

你会得到预期的值。

【讨论】：