不知道VB中怎样写过存储过程和事务的代码,哪位给我一段小程序参考一下.

Question

同上.

Answer 1

创建存储过程
Sub CreateProcedure()   Dim cnn As New ADODB.Connection
   Dim cmd As New ADODB.Command
   Dim prm As ADODB.Parameter
   Dim cat As New ADOX.Catalog   ' Open the Connection
   cnn.Open _
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=c:\Program Files\Microsoft Office\" & _
      "Office\Samples\Northwind.mdb;"   ' Create the parameterized command (Jet specific)
   Set cmd.ActiveConnection = cnn
   cmd.CommandText = "PARAMETERS [CustId] Text;" & _
      "Select * From Customers Where CustomerId = [CustId]"   ' Open the Catalog
   Set cat.ActiveConnection = cnn   ' Create the new Procedure
   cat.Procedures.Append "CustomerById", cmdEnd Sub开始事务，提交及会滚的例子
Public Sub BeginTransX()   Dim cnn1 As ADODB.Connection
   Dim rstTitles As ADODB.Recordset
   Dim strCnn As String
   Dim strTitle As String
   Dim strMessage As String   ' Open connection.
      strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   Set cnn1 = New ADODB.Connection
   cnn1.Open strCnn   ' Open Titles table.
   Set rstTitles = New ADODB.Recordset
   rstTitles.CursorType = adOpenDynamic
   rstTitles.LockType = adLockPessimistic
   rstTitles.Open "titles", cnn1, , , adCmdTable
   
   rstTitles.MoveFirst
   cnn1.BeginTrans   ' Loop through recordset and ask user if she wants 
   ' to change the type for a specified title.
   Do Until rstTitles.EOF
      If Trim(rstTitles!Type) = "psychology" Then
         strTitle = rstTitles!Title
         strMessage = "Title: " & strTitle & vbCr & _
         "Change type to self help?"         ' Change the title for the specified
         ' employee.
         If MsgBox(strMessage, vbYesNo) = vbYes Then
            rstTitles!Type = "self_help"
            rstTitles.Update
         End If
      End If         rstTitles.MoveNext
   Loop   ' Ask if the user wants to commit to all the 
   ' changes made above.
   If MsgBox("Save all changes?", vbYesNo) = vbYes Then
      cnn1.CommitTrans
   Else
      cnn1.RollbackTrans
   End If   ' Print current data in recordset.
   rstTitles.Requery
   rstTitles.MoveFirst
   Do While Not rstTitles.EOF
      Debug.Print rstTitles!Title & " - " & rstTitles!Type
      rstTitles.MoveNext
   Loop   ' Restore original data because this
   ' is a demonstration.
   rstTitles.MoveFirst
   Do Until rstTitles.EOF
      If Trim(rstTitles!Type) = "self_help" Then
         rstTitles!Type = "psychology"
         rstTitles.Update
      End If
      rstTitles.MoveNext
   Loop   rstTitles.Close
   cnn1.CloseEnd Sub

Answer 2

创建
create proc Test(@id int ,@name varchar(20) output)
as
begin
  select @name=customername from customers where customerid= @id
End
    
调用：
    Dim cmd As ADODB.Command
    Dim par1 As ADODB.Parameter
    Dim par2 As ADODB.Parameter
    Set cmd = New ADODB.Command
    cmd.CommandText = "test"
    cmd.CommandType = adCmdStoredProc
    Set par1 = cmd.CreateParameter("a", adInteger, adParamInput, , 3)
    cmd.Parameters.Append par1
    Set par2 = cmd.CreateParameter("b", adVarChar, adParamOutput, 20)
    cmd.Parameters.Append par2
    Set cmd.ActiveConnection = cnDatabase
    cmd.Execute
    Debug.Print par2.Value
    Set cmd = Nothing