Private Sub Command14_Click()
Dialog.Show
Form3.Hide
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" + App.Path + "\起動機 db1.mdb;"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "Select * from 國家標準汽車蓄電池引數表 where 單格蓄電池數=" & xdcdgs & "And額定電壓（V）=" & xdceddy & "And啟動電流（A）>=" & xdcqddl & "And干荷型蓄電池='" & xdcghx & "'And免維護型蓄電池 ='" & xdcmwh & "'And低溫啟動性能好='" & xdcdwh & "'And高抗震型='" & xdcgkz & "'And低溫反裝='" & xdcdfz & "'And額定容量(Ah) >= " + Text31.Text + ""
Adodc2.Refresh
End Sub
為什么總是出現如下錯誤提示，大哥大姐幫忙看一下
語法錯誤（運算子丟失）在查詢陳述句 單格蓄電池數=" & xdcdgs & "And額定電壓（V）=" & xdceddy & "And啟動電流（A）>=" & xdcqddl & "And干荷型蓄電池='" & xdcghx & "'And免維護型蓄電池 ='" & xdcmwh & "'And低溫啟動性能好='" & xdcdwh & "'And高抗震型='" & xdcgkz & "'And低溫反裝='" & xdcdfz & "'And額定容量(Ah) >= " + Text31.Text + ""中
uj5u.com熱心網友回復：
And 前后要有空格。uj5u.com熱心網友回復：
不但邏輯運算子and前后要空格，而且字符型欄位要用引號括起來。uj5u.com熱心網友回復：
就是缺空格。Adodc2.RecordSource = "Select * from 國家標準汽車蓄電池引數表 where 單格蓄電池數=" & xdcdgs & " And 額定電壓（V）=" & xdceddy & " And 啟動電流（A）>=" & xdcqddl & " And 干荷型蓄電池='" & xdcghx & "' And 免維護型蓄電池 ='" & xdcmwh & "' And 低溫啟動性能好='" & xdcdwh & "' And 高抗震型='" & xdcgkz & "' And 低溫反裝='" & xdcdfz & "' And 額定容量(Ah) >= " & Text31.Text
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/122878.html
標籤：VBA
上一篇：inputman安裝之后