1000字范文,内容丰富有趣,学习的好帮手!
1000字范文 > vb获取html中的inout 使用带有OUT参数的VB6调用MySQL存储过程

vb获取html中的inout 使用带有OUT参数的VB6调用MySQL存储过程

时间:2022-05-23 19:46:39

相关推荐

vb获取html中的inout 使用带有OUT参数的VB6调用MySQL存储过程

我在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 Query Browser调用此过程时,它会按预期返回

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

Select @result;

- >它成功返回表中id的计数

我在VB6中编写了以下代码

Dim res As Integer

On Error GoTo chkErr

Set cmd = New mand

cmd.ActiveConnection = cn

mandType = adCmdStoredProc

mandText = "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驱动程序] [mysqld-5.5.34]例程dbtest.InsertList的OUT或INOUT参数4不是BEFORE触发器中的变量或NEW伪变量

我见过用于SQL的代码,那么MySQL本身是否存在使用带有OUT参数的存储过程的问题?

本内容不代表本网观点和政治立场,如有侵犯你的权益请联系我们处理。
网友评论
网友评论仅供其表达个人看法,并不表明网站立场。