Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Create a stored procedure

Sub CreateStoredProc()     Dim cmd As ADODB.Command     Set cmd = New ADODB.Command     cmd.ActiveConnection = CurrentProject.Connection     cmd.CommandText = "CREATE PROCEDURE procClientGet " & _         "(CID long) " & _         "AS SELECT ClientID, CompanyName " & _         "FROM tblClients " & _         "WHERE ClientID = CID"     cmd.Execute End Sub