vb调用存储过程学习

 今天上班学习到许多以前没有用到的知识.

首先是把前几天vbalExpBar6.ocx调试成功了.需要引用一个SSubTmr6.dll文件.

还学会了用VB调用存储过程.实现增;删;改;查功能.下面是一段存储过程比较好的代码:

Option Explicit

Dim mConn As ADODB.Connection

Dim rs1 As ADODB.Recordset

Dim rs2 As ADODB.Recordset

Dim rs3 As ADODB.Recordset

Dim rs4 As ADODB.Recordset

Dim cmd As ADODB.Command

Dim param1 As ADODB.Parameter
Dim param2 As ADODB.Parameter
Dim param As ADODB.Parameter
Dim WithEvents rst As ADODB.Recordset

 

Private Sub Command1_Click()
Set cmd = New ADODB.Command

Set rs1 = New ADODB.Recordset

cmd.ActiveConnection = mConn

cmd.CommandText = "insert_users"

cmd.CommandType = adCmdStoredProc

Set param = cmd.CreateParameter("truename", adChar, adParamInput, 20, Trim(txttruename.Text))

cmd.Parameters.Append param

Set param = cmd.CreateParameter("regname", adC