Dim msg As String = "c<?xml version=" & """1.0""" & " encoding=" & """utf-8""" & "?>" & vbcrlf & "<ufinterface efdebug=" & """0""" & " efserverid=" & """321""" & " eftype=" & """EFSQL""" & " ddate=" & """2016-10-08""" & " sqlstr=" & """se lect * from Rdrecord32 where cDefine14 like %SOURCE=BDORDER% and dnmaketime >='" & Today.value & "'""" & " proc=" & """Query""" & " succeed=" & """1""" & " dsc=" & """EFSQL处理成功""" & ">" & vbcrlf & "</ufinterface>"
红色的部分怎么改，老提示语法错误。
想得到where cDefine14 like %SOURCE=BDORDER% and dnmaketime >='" & Today.value & "'
where后面是2个条件，是不是用()，怎么加（）老提示语法错误。
where & “(cDefine14 like %SOURCE=BDORDER% and dnmaketime >='" & Today.value & "' & ")"
加好友 
发短信
Post By：2017/10/24 16:24:00 [只看该作者]
