Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset Set cmd.ActiveConnection = cn //cn是连接 cmd.CommandText = "存储过程名" cmd.CommandType = adCmdStoredProc cmd.Parameters("@CapitalType") = 值 '@CapitalType存储过程中的参数 cmd.Parameters("@CountyName") = 值 Set rs = cmd.Execute
Dim cmdReports As New ADODB.Command cmdReports.ActiveConnection = Pub_Connection cmdReports.CommandText = "proc_report" cmdReports.CommandType = adCmdStoredProc
Dim rs As New ADODB.Recordset
Set cmd.ActiveConnection = cn //cn是连接
cmd.CommandText = "存储过程名"
cmd.CommandType = adCmdStoredProc
cmd.Parameters("@CapitalType") = 值 '@CapitalType存储过程中的参数
cmd.Parameters("@CountyName") = 值
Set rs = cmd.Execute
cmdReports.ActiveConnection = Pub_Connection
cmdReports.CommandText = "proc_report"
cmdReports.CommandType = adCmdStoredProc
cmdReports.Parameters.Append cmdReports.CreateParameter(, adInteger, adParamInput, 4, 1)
cmdReports.Parameters.Append cmdReports.CreateParameter(, adVarChar, adParamInput, 4000, Pub_ItemID)
cmdReports.Parameters.Append cmdReports.CreateParameter(, adDate, adParamInput, 20, RepartDate)
cmdReports.Parameters.Append cmdReports.CreateParameter(, adVarChar, adParamInput, 20, Pub_CountyName) cmdReports.Parameters.Append cmdReports.CreateParameter(, adVarChar, adParamInput, 1000, Trim(txtNotifyGroupIdea.Text))
cmdReports.Parameters.Append cmdReports.CreateParameter(, adVarChar, adParamInput, 20, Pub_BatchType)
cmdReports.Execute
conn.excute "excute 存储过程名 参数1 参数2"