在 VB 中按文本內容進行數據庫查詢，你可以使用 SQL 查詢語句來實現。以下是一個簡單的示例，演示如何使用文本框的內容進行查詢：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
' 連接到數據庫
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\your_database.mdb;"
' 獲取文本框的內容
Dim searchText As String
searchText = TextBox1.Text
' 構建查詢語句
Dim sql As String
sql = "SELECT * FROM your_table WHERE column_name = '" & searchText & "'"
' 執行查詢
rs.Open sql, conn
' 處理查詢結果
If Not rs.EOF Then
' 循環遍歷記錄
Do While Not rs.EOF
' 在這里處理每條記錄
' 例如，輸出記錄中的某個字段的值
MsgBox rs.Fields("column_name").Value
' 移動到下一條記錄
rs.MoveNext
Loop
End If
' 關閉記錄集和連接
rs.Close
conn.Close
請注意，上述代碼使用的是 ADO（ActiveX Data Objects）庫進行數據庫連接和查詢。你需要根據你實際使用的數據庫類型和連接方式做出相應的修改。同時，還需要將代碼中的 your_database.mdb 和 your_table 替換為你的實際數據庫文件和表名。
