Private Sub cmdQurey_Click()
Dim strQuery As String
strQuery = "Select * from Taoziyuan where 1=1"
If txtzhuose.Text <> "" Then
strQuery = strQuery & "and" & txtzhuose.Text & "is not full"
End If
Adodc1.RecordSource = strQuery
Adodc1.Refresh
Exit Sub
Errhandler:
MsgBox "錯誤號:" & Err.Number & "錯誤資訊：" & Err.Description, vbExclamatio
End Sub
uj5u.com熱心網友回復：
資料重繪的時候出錯了！uj5u.com熱心網友回復：
什么錯誤都不說
我猜、我猜、我猜猜猜：
假如 txtzhuose 輸入地字串是 地址
那么拼好的SQL陳述句是
Select * from Taoziyuan where 1=1and地址is not full
1.and前后沒空格
2.地址(txtzhuose.Text)前后沒空格
3.full你確定不是null？
uj5u.com熱心網友回復：
strQuery=strQuery & 這句是不是錯了？我想要多條件查詢，怎么撰寫陳述句好？uj5u.com熱心網友回復：
strQuery=strQuery & 這句是不是錯了？我想要多條件查詢，怎么撰寫陳述句好？uj5u.com熱心網友回復：
Private Sub cmdQurey_Click()Dim strQuery As String
If Checkpinzhong.Value = 1 Then
If strQuery = "" Then
strQuery = " pinzhong like '% " + txtpinzhong.Text + "%'"
Else
strQuery = strQuery & "and pinzhong like '% " + txtpinzhong.Text + "%'"
End If
End If
If Checkfengchan.Value = 1 Then
If strQuery = "" Then
strQuery = " fengchanxing like '%" + txtfengchan.Text + "%'"
Else
strQuery = strQuery & "and fengchanxing like '%" + txtfengchan.Text + "%'"
End If
End If
Adodc1.RecordSource = "select * from Taoziyuan where" & strQuery
Adodc1.Refresh
Exit Sub
Errhandler:
MsgBox "錯誤號:" & Err.Number & "錯誤資訊：" & Err.Description, vbExclamatio
End Sub
第一個 if里哪錯了。為什么搜索的時候出來的空白。第二個能用
uj5u.com熱心網友回復：
你把整條SQL用Debug.Print輸出，復制到查詢分析器中執行，根據錯誤修改吧。其它的不多說了，仔細點就能改正的。
uj5u.com熱心網友回復：
菜鳥不會DEBUG。。。怎么辦uj5u.com熱心網友回復：
要么學會debug、要么就此放棄，沒有第三個選擇。uj5u.com熱心網友回復：
debug沒錯啊uj5u.com熱心網友回復：
復制到查詢分析器中執行
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/84120.html
標籤：VB基礎類
上一篇：高手給看一下