vb adodc控件sql查询中日期变量引用错误

DimcK1AsString,cK2AsStringPrivateSubCheck1_Click()IfCheck1=1ThencK1="and销售日期between#"... Dim cK1 As String, cK2 As String
Private Sub Check1_Click()
If Check1 = 1 Then
cK1 = " and 销售日期 between #" & DTPicker2 & "# and #" & DTPicker3 & "#"
Else: cK1 = ""
End If
End Sub
Private Sub Check2_Click()
If Check2 = 1 Then
cK2 = " and 票据编号='" & Text5.Text & "'"
Else: cK2 = ""
End If
End Sub
Private Sub Command1_Click()
SPDATA.RecordSource = "select * from dp_xsjl where id>0" & cK1 & "" & cK2 & ""
SPDATA.Refresh
End Sub

运行报错 : # 附近有语法错误
展开
 我来答
szqaly
推荐于2016-07-04 · TA获得超过1745个赞
知道大有可为答主
回答量:2107
采纳率:77%
帮助的人:1493万
展开全部
什么库?如果sql server, 日期值用单引号界定的,
另外用msgbox 显示一下"select * from dp_xsjl where id>0" & cK1 & "" & cK2 & "" 串有没有其它问题。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式