在 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 替换为你的实际数据库文件和表名。
