excel vba点击按钮查询数据显示到文本框中

好的，让我来帮你解答这个问题。

你可以使用 VBA 编写代码，在按钮单击事件中执行查询并将结果显示在文本框中。

以下是参考代码：

Private Sub CommandButton1_Click()
Dim conn As Object
Dim rs As Object
Dim sql As String

Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\example.accdb;"
conn.Open

sql = "SELECT * FROM example_table"

rs.Open sql, conn

If Not rs.EOF Then
Me.TextBox1.Value = rs.Fields("column_name").Value
End If

rs.Close
conn.Close
End Sub

请将 "C:\example.accdb" 和 "example_table" 分别替换为你的 Access 数据库文件路径和表名，"column_name" 是你要查询的字段名。

希望这能帮到你，有问题随时来问我哟！