UC知道vb查询代码急急急 ！！求VB高手指点，30全给了
来源：百度知道 编辑：UC知道 时间：2024/06/02 03:35:23
现有4个控件，其中控件 datagrid1与控件adodc1已经连接 可以显示数据 ，控件text2 ,为输入查询的；
command4 查询按钮
数据库名hpcl.mdb
表名 彩印
字段名 销售产品
添加按钮command7
我想在输入销售产品 比如输入画刊到text2 里 ；点击查询就可以把只有画刊的信息显示在 datagrid1 里面怎么写阿``还有在这个表里添加与删除该怎么写。我在网上查了好久都没查到，希望哪位能告诉我下。。谢谢，在下感激不尽````
删除按钮command5
command4 查询按钮
数据库名hpcl.mdb
表名 彩印
字段名 销售产品
添加按钮command7
我想在输入销售产品 比如输入画刊到text2 里 ；点击查询就可以把只有画刊的信息显示在 datagrid1 里面怎么写阿``还有在这个表里添加与删除该怎么写。我在网上查了好久都没查到，希望哪位能告诉我下。。谢谢，在下感激不尽````
删除按钮command5
Form1_Load()
ADODC1.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;Persist security info= False; Data source=" & App.Path & "\hpcl.mdb"
ADODC1.CommandType = adCmdText
ADODC1.RecordSource = “select * from 彩印 "
ADODC1.Refresh
Set DataGrid1.DataSource = ADODC1
DataGrid1.Refresh
End Sub
【查询功能源码】
Command4_Click()
ADODC1.RecordSource = “select * from 彩印 where 销售产品 like '%" & Trim(Text2.Text) & "%'"
ADODC1.Refresh
End Sub
【添加功能源码】
Command7_Click()
ADODC1.Recordset.AddNew
End Sub
【存取功能源码】
Command6_Click()
ADODC1.Recordset.Fields("字段1") = Text1.Text
ADODC1.Recordset.Fields("字段1") = Text2.Text
ADODC1.Recordset.Update
MsgBox "Successfully Save Data", vbInformation + vbOKOnly
ADODC1.Refresh
End Sub
【删除功能源码】
Command5_Click()
If ADODC1.Recordset.Re