我的代码哪里错了？

Question

str = str & "维护时间>=#" & dtp1 & "# or 维护时间<=#" & dtp2 & "#"
是不是少了一个& 代码太少了,如果不对再发多一点代码

Answer 1

ACCESS:
str = str & "维护时间>= #" & dtp1 "# or 维护时间<= #" & dtp2 & "#"
SQL:
str = str & "维护时间>= '" & dtp1 "' or 维护时间<= '" & dtp2 & "'"多打几个空格没有坏处的。

Answer 2

str = str & "维护时间>=#" & dtp1 & "# or 维护时间<=#" & dtp2 & "#"
少个&一定错

Answer 3

ACCESS:
str = str & "维护时间 >= #" & dtp1 & "# or 维护时间 <= #" & dtp2 & "#"
SQL:
str = str & "维护时间 >= '" & dtp1 & "' or 维护时间 <= '" & dtp2 & "'"

Answer 4

我的是access数据库阿，那么应该说我的代码应该是对的阿？可是实际上它还是说我代码错误阿

Answer 5

Access:楼主,是不是少了"&"呀!
str = str & "维护时间>=#" & DTPicker1.Value & "# or 维护时间<=#" & DTPicker2.Value & "#"SQL Server Test：
Private Sub Form_Load()
Dim str As Stringstr = str & "维护时间>=#" & DTPicker1.Value & "# or 维护时间<=#" & DTPicker2.Value & "#"
str = str & "维护时间 Between " & ConvertTimeToSQLServerSQL(DTPicker1.Value) & " And " & ConvertTimeToSQLServerSQL(DTPicker2.Value)Debug.Print DTPicker1.Value
Debug.Print DTPicker2.Value
End Sub
'将时间转化成SQLServer认可的形式
Public Function ConvertTimeToSQLServerSQL(ByVal OriginalTime As Date) As String
    
    ConvertTimeToSQLServerSQL = "'" & Format(OriginalTime, "yyyy-mm-dd hh:nn:ss") & "'"
    
End Function

Answer 6

ACCESS:
strTemp = strTemp & "维护时间 >= #" & dtp1 & "# or 维护时间 <= #" & dtp2 & "#"
SQL:
strTemp = strTemp & "维护时间 >= '" & dtp1 & "' or 维护时间 <= '" & dtp2 & "'"这回行了吧？