Sub Test()
'工具->引用->Microsoft ActiveX DataObjects 2.0
'定义连接对象
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'连接字符串
strcn = "Driver=sql server;Server=服务器;database=数据库;uid=sa;pwd=密码"
cnn.Open strcn
Dim D1 As Date '开始日期
Dim D2 As Date '结束日期
D1 = Range("B2").Text
D2 = Range("B3").Text
If IsDate(D1) And IsDate(D2) Then
rs.Open "sp_djcount '" & D1 & "','" & D2 & "'", strcn, 3, 1 '存储过程
rs.Open "Select * From 表 ", strcn, 3, 1 'sql语句
Range("A5").CopyFromRecordset rs
MsgBox "成功!!!", vbInformation + vbOKOnly, "温馨提示"
Else
MsgBox "请输入开始日期和截止日期", vbQuestion + vbOKOnly, "温馨提示"
End If
'关闭连接
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub
‘贰’ sql中的日期如何输入
使用''号来写，如'2005-12-06'
带时间输入 '2005-12-16 23:32:48'
带AM和PM你使用24小时制就可以了
‘叁’ SQL2000在EXEC执行存储过程时能否在后面加日期条件
不可以直接在EXEC Z_UPDATE_esult 后面加条件，其实想加条件很简单，可以修改存储过程里的查询语句，更好的方法是修改存储过程为带参数的存储过程，执行的时候输入条件参数就好了，如：EXEC Z_UPDATE_esult @日期条件