VB调用mysql数据库存储过程SP的方法

zhgc

VB调用mysql数据库SP的方法
VB调用mysql数据库SP的方法
http://www.nagomes.com/disc/foru ... ad&tid=22&fromuid=6

VB对mysql的SQL增删改查
http://www.nagomes.com/disc/foru ... d&tid=109&fromuid=6

1. Public cn As ADODB.Connection
   
2. Dim spcmd As New Command
   
3. 
   
4. 
   
5.   c_ReturnMessage = "ERROR"
   
6.   spcmd.ActiveConnection = cn
   
7.   If spcmd.Parameters.Count = 0 Then
   
8.     spcmd.Parameters.Append spcmd.CreateParameter("@x", adVarChar, adParamOutput, 200, "")
   
9.   End If
   
10. 
    
11.   spcmd.CommandType = adCmdText
    
12.   spcmd.CommandText = "call SMT.G_SCADA_I1PORT_KB('" & data & "','" & gw28_list(c_gw28_index).station_no & "',@x)"
    
13.   spcmd.Ｅxecute
    
14.   Set rs = cn.Ｅxecute("select @x")
    
15.   If Not rs.EOF Then
    
16.     c_ReturnMessage = rs(0).Value
    
17.   End If
    
18.   rs.Close
    
19.   Set rs = Nothing
    

复制代码

zhgc

以上方法并不是真正在调用SP, 请参考以下方法：

1. Public Function callsp(Mydata As String, gw28index) As String
   
2. Dim strsql As String
   
3. Dim rs As Recordset
   
4. Dim sp As String
   
5. Dim call_sp As ADODB.Command
   
6. 
   
7. 
   
8. If gw_list(gwindex).sp = "" Then
   
9.     callsp = "SCADA CONFIG ERROR"
   
10.     Exit Function
    
11. End If
    
12. 
    
13. Set call_sp = New ADODB.Command
    
14. With call_sp
    
15.    .ActiveConnection = cn
    
16.    .CommandType = adCmdStoredProc
    
17.    .CommandText = gw_list(gwindex).sp
    
18.    .Parameters(0) = Mydata
    
19.    .Parameters(1) = gw_list(gwindex).line_name
    
20.    .Parameters(2) = gw_list(gwindex).station_name
    
21.    .Execute
    
22.    callsp = .Parameters(3)
    
23.    
    
24. End With
    
25. 
    
26. End Function

复制代码