vb中如何快速檢索？-有解無憂

這個界面是教材查詢，我用的是adodc連接的資料庫，然后我想實作的是快速查詢，即:首先選擇一個查詢方式，后面關鍵字再根據的前面查詢方式輸入(比如查詢方式為教材名，輸入關鍵字就為教材名)，最后通過查詢在查詢結果里顯示。

uj5u.com熱心網友回復：

Adodc1.RecordSource = "Select * from 表名 where " & Combo1.Text & " like'%" & Text1.Text & "%'"

uj5u.com熱心網友回復：

這個問題不是一句就可以解決的，因為，你點擊Combo1后，實際上是查詢這個欄位的查詢條件，但一個資料表各欄位的資料型別不同，因此查詢的方式也是不同的，需要根據欄位的資料型別設定不同的查詢方式，例如字符型資料，可以使用 Leke 的關鍵字，但數字型別的資料、日期型別資料等就不能使用這個關鍵字，今天有點事，不能給你例子，晚上做一個給你吧。

uj5u.com熱心網友回復：

對不起！剛剛打錯了，Like打成Leke了。

uj5u.com熱心網友回復：

參考 2 樓 u013249970 的回復:

這個問題不是一句就可以解決的，因為，你點擊Combo1后，實際上是查詢這個欄位的查詢條件，但一個資料表各欄位的資料型別不同，因此查詢的方式也是不同的，需要根據欄位的資料型別設定不同的查詢方式，例如字符型資料，可以使用 Leke 的關鍵字，但數字型別的資料、日期型別資料等就不能使用這個關鍵字，今天有點事，不能給你例子，晚上做一個給你吧。

昨天自己看書做出來了，多謝

uj5u.com熱心網友回復：

參考 2 樓 u013249970 的回復:

這個問題不是一句就可以解決的，因為，你點擊Combo1后，實際上是查詢這個欄位的查詢條件，但一個資料表各欄位的資料型別不同，因此查詢的方式也是不同的，需要根據欄位的資料型別設定不同的查詢方式，例如字符型資料，可以使用 Leke 的關鍵字，但數字型別的資料、日期型別資料等就不能使用這個關鍵字，今天有點事，不能給你例子，晚上做一個給你吧。

但關鍵字還沒弄出來，就是輸入時，只能輸高等數學，輸高數查找不行

uj5u.com熱心網友回復：

參考 5 樓 Outdoorsy 的回復:

但關鍵字還沒弄出來，就是輸入時，只能輸高等數學，輸高數查找不行

如果你查詢的是字符型資料，可以使用關鍵字Like，給你一個例句：

strSQL = "select * from 資料表名 where " & Combo1.Text & " like  '%" & Text1.Text & "%'"

like '%" & Text1.Text & "% 是模糊查詢，例如你查詢的是“高等數學”，你只要輸入“高“ 或 “ 等“ 或 “ 數“ 或 “學“ 中的任何一個字，都可以查詢出來。

uj5u.com熱心網友回復：

如果你還沒有搞清楚，就你的代碼發上來，可以給你看看。

uj5u.com熱心網友回復：

參考 7 樓 u013249970 的回復:

如果你還沒有搞清楚，就你的代碼發上來，可以給你看看。

Private Sub Command1_Click()

 If Combo1.Text = "教材名" Then

    Adodc2.RecordSource = "select * from 教材資訊 where 教材名 like'%" & Text1.Text & "%'"

    Adodc2.Refresh

    DataGrid1.Refresh

    Set DataGrid1.DataSource = Adodc2

    DataGrid1.Visible = True

         If Adodc2.Recordset.RecordCount > 0 Then

         Else

         MsgBox "輸入錯誤，請重新輸入！！！"

         End If



Else: Combo1.Text = "出版社"

    Adodc2.RecordSource = "select * from 教材資訊 where 出版社 like'%" & Text1.Text & "%'"

    Adodc2.Refresh

    DataGrid1.Refresh

    Set DataGrid1.DataSource = Adodc2

    DataGrid1.Visible = True

         If Adodc2.Recordset.RecordCount > 0 Then

         Else

         MsgBox "輸入錯誤，請重新輸入！！！"

         End If

   End If



End Sub

現在問題就是我輸入高等數或高等都可以查到高等數學，但輸入高數就查詢不了，不知在沒解決

uj5u.com熱心網友回復：

參考 8 樓 Outdoorsy 的回復:

Quote: 參考 7 樓 u013249970 的回復:

如果你還沒有搞清楚，就你的代碼發上來，可以給你看看。

Private Sub Command1_Click()
If Combo1.Text = "教材名" Then
    Adodc2.RecordSource = "select * from 教材資訊 where 教材名 like'%" & Text1.Text & "%'"
    Adodc2.Refresh
    DataGrid1.Refresh
    Set DataGrid1.DataSource = Adodc2
    DataGrid1.Visible = True
         If Adodc2.Recordset.RecordCount > 0 Then
         Else
         MsgBox "輸入錯誤，請重新輸入！！！"
         End If

Else: Combo1.Text = "出版社"
    Adodc2.RecordSource = "select * from 教材資訊 where 出版社 like'%" & Text1.Text & "%'"
    Adodc2.Refresh
    DataGrid1.Refresh
    Set DataGrid1.DataSource = Adodc2
    DataGrid1.Visible = True
         If Adodc2.Recordset.RecordCount > 0 Then
         Else
         MsgBox "輸入錯誤，請重新輸入！！！"
         End If
   End If

End Sub

現在問題就是我輸入高等數或高等都可以查到高等數學，但輸入高數就查詢不了，不知在沒解決

一定要這樣的話：

Dim strWhere As String

Dim i As Integer



For i = 1 To Len(Text1)

    strWhere = strWhere &  " 出版社 like'%" & Mid(Text1, i, 1)  & "%'"

    If i < Len(Text1) Then strWhere = strWhere & " AND"

Next i

Adodc2.RecordSource = "select * from 教材資訊 where" & strWhere

例如輸入“高教”時得到的是



Adodc2.RecordSource = "select * from 教材資訊 where 出版社 like'%高%' AND 出版社 like'%教%'"

可查詢到“高等教育出版社”。

uj5u.com熱心網友回復：

參考 9 樓 of123 的回復:

Quote: 參考 8 樓 Outdoorsy 的回復:

Quote: 參考 7 樓 u013249970 的回復:

如果你還沒有搞清楚，就你的代碼發上來，可以給你看看。

Private Sub Command1_Click()
If Combo1.Text = "教材名" Then
    Adodc2.RecordSource = "select * from 教材資訊 where 教材名 like'%" & Text1.Text & "%'"
    Adodc2.Refresh
    DataGrid1.Refresh
    Set DataGrid1.DataSource = Adodc2
    DataGrid1.Visible = True
         If Adodc2.Recordset.RecordCount > 0 Then
         Else
         MsgBox "輸入錯誤，請重新輸入！！！"
         End If

Else: Combo1.Text = "出版社"
    Adodc2.RecordSource = "select * from 教材資訊 where 出版社 like'%" & Text1.Text & "%'"
    Adodc2.Refresh
    DataGrid1.Refresh
    Set DataGrid1.DataSource = Adodc2
    DataGrid1.Visible = True
         If Adodc2.Recordset.RecordCount > 0 Then
         Else
         MsgBox "輸入錯誤，請重新輸入！！！"
         End If
   End If

End Sub

現在問題就是我輸入高等數或高等都可以查到高等數學，但輸入高數就查詢不了，不知在沒解決

一定要這樣的話：
Dim strWhere As String

Dim i As Integer



For i = 1 To Len(Text1)

    strWhere = strWhere &  " 出版社 like'%" & Mid(Text1, i, 1)  & "%'"

    If i < Len(Text1) Then strWhere = strWhere & " AND"

Next i

Adodc2.RecordSource = "select * from 教材資訊 where" & strWhere
例如輸入“高教”時得到的是
Adodc2.RecordSource = "select * from 教材資訊 where 出版社 like'%高%' AND 出版社 like'%教%'"
可查詢到“高等教育出版社”。

但這樣我只能輸入高教啊，其他的都輸入不了

uj5u.com熱心網友回復：

參考 9 樓 of123 的回復:

Quote: 參考 8 樓 Outdoorsy 的回復:

Quote: 參考 7 樓 u013249970 的回復:

如果你還沒有搞清楚，就你的代碼發上來，可以給你看看。

Private Sub Command1_Click()
If Combo1.Text = "教材名" Then
    Adodc2.RecordSource = "select * from 教材資訊 where 教材名 like'%" & Text1.Text & "%'"
    Adodc2.Refresh
    DataGrid1.Refresh
    Set DataGrid1.DataSource = Adodc2
    DataGrid1.Visible = True
         If Adodc2.Recordset.RecordCount > 0 Then
         Else
         MsgBox "輸入錯誤，請重新輸入！！！"
         End If

Else: Combo1.Text = "出版社"
    Adodc2.RecordSource = "select * from 教材資訊 where 出版社 like'%" & Text1.Text & "%'"
    Adodc2.Refresh
    DataGrid1.Refresh
    Set DataGrid1.DataSource = Adodc2
    DataGrid1.Visible = True
         If Adodc2.Recordset.RecordCount > 0 Then
         Else
         MsgBox "輸入錯誤，請重新輸入！！！"
         End If
   End If

End Sub

現在問題就是我輸入高等數或高等都可以查到高等數學，但輸入高數就查詢不了，不知在沒解決

一定要這樣的話：
Dim strWhere As String

Dim i As Integer



For i = 1 To Len(Text1)

    strWhere = strWhere &  " 出版社 like'%" & Mid(Text1, i, 1)  & "%'"

    If i < Len(Text1) Then strWhere = strWhere & " AND"

Next i

Adodc2.RecordSource = "select * from 教材資訊 where" & strWhere
例如輸入“高教”時得到的是
Adodc2.RecordSource = "select * from 教材資訊 where 出版社 like'%高%' AND 出版社 like'%教%'"
可查詢到“高等教育出版社”。

不好意思，看錯了。恩可以解決

uj5u.com熱心網友回復：

參考 8 樓 Outdoorsy 的回復:

現在問題就是我輸入高等數或高等都可以查到高等數學，但輸入高數就查詢不了，不知在沒解決

SQL陳述句的Like關鍵字的模糊查詢，只能查詢記錄中連續的字串，不能查詢不連續的字符，由于你的記錄是高等數學，連續的二個字串有：高等、等數、數學，連續的三個字串有高等數、等數學，這些都能夠查詢到，但不連續的字串，例如：高數、等學，肯定查詢不到的，對于單字符根本沒有問題，可以查詢到。
如果你必須這樣查詢，只能拆散字符，然后分別查詢。

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/76770.html

標籤：VB基礎類

上一篇：隨機生成字母加數字

下一篇：求高手幫忙解答。為什么不運行呀。。