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 @日期條件