Dim comm As New ADODB.Command
comm.ActiveConnection = cn
comm.CommandText = "存储过程名"
comm.CommandType = adCmdStoredProc
comm.Parameters.Append comm.CreateParameter("@stdate", adDate, adParamInput, , 参数1)
comm.Parameters.Append comm.CreateParameter("@endate", adDate, adParamInput, , 参数2)
comm.Parameters.Append comm.CreateParameter("@sunit", adChar, adParamInput, 4, 参数3)
comm.Execute
来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/11411056/viewspace-733998/
,如需转载,请注明出处,否则将追究法律责任。