Mysql
 sql >> база данни >  >> RDS >> Mysql

Извикване на MySQL Съхранена процедура с помощта на VB6 с OUT параметър

Изглежда неразрешена грешка от 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

Ще получите очакваната стойност.




  1. Database
  2.   
  3. Mysql
  4.   
  5. Oracle
  6.   
  7. Sqlserver
  8.   
  9. PostgreSQL
  10.   
  11. Access
  12.   
  13. SQLite
  14.   
  15. MariaDB
  1. SQL изявление - SQL матрица

  2. Как да оптимизираме MySQL заявки въз основа на план EXPLAIN

  3. Изчислете разликата във времето между две времеви марки в mysql

  4. Решаване на повреда на комуникационната връзка с JDBC и MySQL

  5. Проверете дали редът съществува в базата данни, преди да го вмъкнете