使用SQL出现的问题

xgy0214dxy

直接上附件， 例.rar (22.1 KB, 下载次数: 11)

2015-6-24 15:41 上传

点击文件名下载附件

，请SQL老师看看，哪里出现了问题，使用了WHERE条件，但出现的问题部份不受WHERE约束

xgy0214dxy

不能沉呀，在线等哟

2019032

单引号去掉即可，

xgy0214dxy

2019032 发表于 2015-6-24 15:58
单引号去掉即可，

谢谢，是什么原因呢

魂断蓝桥

涉及到日期的适合用日历控件实现，你这个控件会出现13月14月的情况。


例.rar (22 KB, 下载次数: 5)

2015-6-24 16:21 上传

点击文件名下载附件

xgy0214dxy

谢谢蓝版！

魂断蓝桥

xgy0214dxy 发表于 2015-6-24 16:23
谢谢蓝版！

呵呵，我不是蓝版，用日历控件，sql语句比较容易理解，你维护也简单。

Private Sub CommandButton1_Click()
Dim cnn As Object
Dim Sql As String, s As String
Set cnn = CreateObject("ADODB.CONNECTION")
Application.ScreenUpdating = False
s = "where time between '" & Format(DTP1, "yyyymm") & "' and '" & Format(DTP2, "yyyymm") & "'"
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Sql = "select * from [data$a1:b] " & s
[f:g] = ""
[f1] = "time": [g1] = "name"
[f2].CopyFromRecordset cnn.Execute(Sql)
cnn.Close: Set cnn = Nothing
Application.ScreenUpdating = True
Unload Me
End Sub

2019032

xgy0214dxy 发表于 2015-6-24 16:13
谢谢，是什么原因呢

因为数值比较啊  数值不需要  ''。然后你的控件可以设置大小范围的。

lcjy11185

学习并作记号

xgy0214dxy

感谢老师指导，很用帮助呀{:soso_e163:}