CREATE procedure Count_Test@Count_out int OutputasSELECT @Count_out = COUNT(*) FROM Table_Dsl GO
Dim cmd As New ADODB.Command Dim par As New ADODB.Parameter cmd.ActiveConnection = cnDatabase cmd.CommandText = "count_test" cmd.CommandType = adCmdStoredProc Set par = cmd.CreateParameter("aa", adInteger, adParamOutput) cmd.Parameters.Append par cmd.Execute Debug.Print par.Value
其实如果仅仅是获得记录数没有必要用存储过程,这样即可 rs.open "select count(*) as exp1 from table1",cn debug.print rs!exp1
GO
Dim par As New ADODB.Parameter
cmd.ActiveConnection = cnDatabase
cmd.CommandText = "count_test"
cmd.CommandType = adCmdStoredProc
Set par = cmd.CreateParameter("aa", adInteger, adParamOutput)
cmd.Parameters.Append par
cmd.Execute
Debug.Print par.Value
rs.open "select count(*) as exp1 from table1",cn
debug.print rs!exp1