Access XP : Memanggil stored procedure SQL Server

Dim com As New ADODB.Command
With com
     .ActiveConnection = CurrentProject.Connection
     .CommandTimeout = 0
     .CommandType = adCmdStoredProc
     .CommandText = "Update_trMemoRetur"
     .Parameters.Append .CreateParameter("@ID_trMemoRetur", adInteger, adParamInput, , Me.ID_trMemoRetur)
     .Parameters.Append .CreateParameter("@Operator", adInteger, adParamInput, , Forms!frmLogin!ID_Karyawan)
     .Execute
End With

Share: