正在阅读：VB.net中访问存储过程的几种办法VB.net中访问存储过程的几种办法

　　Private Sub Command2_Click()

　　Set rs2 = New ADODB.Recordset

　　Set cmd = New ADODB.Command

　　cmd.ActiveConnection = mConn

　　cmd.CommandText = "insert_users"

　　cmd.CommandType = adCmdStoredProc

　　cmd.Parameters("@truename") = Trim(txttruename.Text)

　　cmd.Parameters("@regname") = Trim(txtregname.Text)

　　cmd.Parameters("@pwd") = Trim(txtpwd.Text)

　　cmd.Parameters("@sex") = Trim(txtsex.Text)

　　cmd.Parameters("@email") = Trim(txtemail.Text)

　　cmd.Parameters("@jifen") = Val(txtjifen.Text)

　　Set rs2 = cmd.Execute

　　Set cmd = Nothing

　　Set rs1 = Nothing

　　End Sub

　　Private Sub Command4_Click()

　　Dim strsql As String

　　strsql = "insert_users  '" & Trim(txttruename.Text) & "','" & Trim(txtregname.Text) & "','" & Trim(txtpwd.Text) & "','" & Trim(txtsex.Text) & "','" & Trim(txtemail.Text) & "','" & Val(txtjifen.Text) & "'"

　　Set rs3 = New ADODB.Recordset