哪位vb高手帮我编写一下,下面这个界面的代码,当单击查询按钮时,运行运行程序,在右边datagird控件中显示

更新 添加 删除怎么弄啊
2025-03-10 08:52:58
推荐回答(1个)
回答1:

Private Sub Command1_Click()
Adodc1.RecordSource = "select * from etzlb where mqxm='" & Text1 & "'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\xt1.mdb;Persist Security Info=False"

End Sub

数据库,表名,字段名等改成你自己。