vb dtpicker连接sql查询日期的问题
发布网友
发布时间：2024-10-21 10:43
我来回答
共2个回答
热心网友
时间：2024-11-21 15:22
打开控制面板---区域语言---区域选项(自定义),将你的日期和时间格式都改成长日期格式,.
这是因为SQL里面的里面格式都是长日期的,如:2009-02-01,月和日不足两位补"0",刚好SQL也对日期的判断也和字符串差不多,都用"'"单引号.我以前也出现类似的错误,但并不是所有机子都是这样的,有的比较敏感,有些又可以长短日期一起处理.
你也可以在VB程序内设定长短日期格式,这样就不用每装一台机又要改一下日期格式了,给我写的代码
Public Sub setdateformat()
Dim dwLCID As Long
Dim i As Long
Dim lpLCData As String * 255
Dim cchData As Long
cchData = Len(lpLCData)
dwLCID = GetSystemDefaultLCID()
i = SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, "yyyy-MM-dd") '设置短日期格式
PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
i = SetLocaleInfo(dwLCID, 32, "yyyy-MM-dd") '设置长日期格式
PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
i = SetLocaleInfo(dwLCID, LOCALE_STIMEFORMAT, "HH:mm:ss") '设置时间格式
PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
End Sub
热心网友
时间：2024-11-21 15:22
将">="改成"="看可以吗？
If Option4 Then
adodc1.RecordSource = "select * from bx where bx_date =#" & DTPicker2.Value & "#"
Adodc1.Refresh
End If
还有第二中学法如下
须设置两个DTPicker控件。
If Option4 Then
adodc1.RecordSource = "select * from bx where bx_date between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "#"
Adodc1.Refresh
End If
