我怎样才能改变dtpicker.value格式“MMMM DD，YYYY”？

Question

下面的代码会在我的MS Access表中的数据，并将其出口到MS Excel。

该qazxsw POI字段包含通过在MS Access中的数据类型设置为短文本格式qazxsw POI日期。

我的问题是，该代码会在我的数据库Date_today，我需要帮助来改变它，所以它会寻找"mmmm dd, yyyy"。

谢谢！

"mm/dd/yyyy"

Answer 1

由于在MS Access您的日期数据存储，而不是一个日期/时间字段文本字段，你将不能够直接在您的选择标准与日期的文本数据进行比较 - 你首先需要将文本数据转换为日期值。

这可以通过使用"mmmm dd, yyyy"功能，e.g来实现：

Dim SSql As String
Dim DateFrom As String
Dim DateTo As String

DateFrom = Format(DTPicker1.Value, "\#mm\/dd\/yyyy\#")
DateTo = Format(DTPicker2.Value, "\#mm\/dd\/yyyy\#")

SSql = "SELECT * INTO [Sheet1] In 
'C:\Users\MORALES.JANNELYN\Documents\Text1.xls' 'EXCEL 8.0;' FROM 
Jannelyn_Morales "
SSql = SSql & " Where Date_today Between " & DateFrom & " And " & DateTo & 
""

con1.Execute SSql

因此，您的SQL应该成为：

DateValue