iT邦幫忙

0

使用 EXCEL VBA 內 SQL指令時,找不到日期資料

ltc 2009-08-01 16:43:419510 瀏覽

Dim 起日期 As Date
起日期 = "2009/08/08"
With MYRS
.Source = "SELECT * FROM 進貨總表 WHERE 日期 = " & 起日期
.ActiveConnection = MYCON '指定所使用的Connection物件
.Open
End With

Sheets("TEMP").Range("I11").CopyFromRecordset MYRS

請問各位大大,我哪邊寫錯了

1 個回答

12
外獅佬
iT邦大師 1 級 ‧ 2009-08-03 00:11:10
最佳解答

少了單引號吧....

<pre class="c" name="code">.Source = "SELECT * FROM 進貨總表 WHERE 日期 = '" & 起日期 & "'"

我要發表回答

立即登入回答