Question

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

更新 添加 删除怎么弄啊





Answer 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

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