Very Computer

Function RunSP1()
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = CurrentProject.Connection
.CommandText = "EXEC SP1"
.CommandType = adCmdText
.Execute
End With
End Function

use pubs
go

Alter procedure sp1
as
 select * from authors

go

.

.CommandText = "SP1"
.CommandType = adCmdStoredProc

Does it work now?

Stephen Howe

Perhaps this will help someone,
CJ

as
set nocount ON

If (select  count(*) from authors

return 0
Else
return 1

Function CountRecordsFunction(variable1 As Long)
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim Prm As ADODB.Parameter
Dim countvariable As Long

Set cnn = New ADODB.Connection
Set cmd = New ADODB.Command

cnn.Open "Provider =SQLOLEDB; Data Source = DATASERVER;" &
"Database=Pubs;Trusted_COnnection=yes;"

Set cmd.ActiveConnection = cnn
cmd.CommandText = "AuthorsIDCount"
cmd.CommandType = adCmdStoredProc

Set Prm = cmd.CreateParameter("Return", adInteger, adParamReturnValue)
cmd.Parameters.Append Prm

Set Prm = cmd.CreateParameter("id", adInteger, adParamInput, , variable1)
cmd.Parameters.Append Prm

cmd.Execute

If cmd.Parameters("RETURN") = 0 Then
MsgBox "test1"
Else
MsgBox "test2"
End If
Set Prm = Nothing
Set cmd = Nothing
cnn.Close
Set cnn = Nothing
End Function