Dim cn As New ADODB.Connection cn.Open ConnectString Dim CC As New ADODB.Command Set CC.ActiveConnection = cn CC.CommandText = "test"'你的存储过程 CC.CommandType = adCmdStoredProc CC.Parameters.Refresh CC.Parameters("@begindate") = Trim(text1.text)'这里你自己加个时间转换的函数 CC.Parameters("@enddate") = Trim(text2.text) CC.Execute
cn.Open ConnectString
Dim CC As New ADODB.Command
Set CC.ActiveConnection = cn
CC.CommandText = "test"'你的存储过程
CC.CommandType = adCmdStoredProc
CC.Parameters.Refresh
CC.Parameters("@begindate") = Trim(text1.text)'这里你自己加个时间转换的函数
CC.Parameters("@enddate") = Trim(text2.text)
CC.Execute