VB查询编程语言
运行VB后，如何编辑Command2查询和Command3复位的VB语言
Command2查询：假如根据查询条件为“岗位”，查询内容为“搬运工”，则点击Command2查询，会在DataGrid1中显示出符合添加的内容（也就是张三、周五、王九等等等的）
Command3复位：假如点击删除按钮，把李四的信息删除了，那么，点击Command3复位，再把李四的信息找回来重新恢复到原来的样子。
Private Sub Command1_Click()
Form11.Hide
Form2.Show
End Sub
Private Sub Command2_Click()
End Sub
Private Sub Command3_Click()
End Sub
Private Sub Command5_Click()
Form9.Show
End Sub
Private Sub Command6_Click()
Dim c As Integer
c = MsgBox("确认删除？", vbOKCancel, "提示")
If c = vbOK Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Adodc1.Refresh
End If
Adodc1.Refresh
End Sub
Private Sub Command7_Click()
Adodc1.Recordset.MoveNext
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText '设置记录源
Adodc1.RecordSource = "select * from 表1" '连接数据库的message表文件
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
假设查询内容的文本框为：Text1
使用Select语句如下：
"Select * From 数据表名 Where " & Combo1.text & " = '" & Text1.Text & '"
而对于删除后，再恢复，这个功能，在ACCESS里似乎不同于FoxBase，解决的思路：
在数据表，增加一个名为“删除标记”的字段，用来存放“删除”这样的信息，那么，通过Select语句的Where 字句，就可以来实现你要的功能。
这样，类似于FoxBase，删除分物理删除与逻辑删除，而执行物理删除，就是你用的Delete，而当执行逻辑删除时，并不是真正执行Delete，而是在“删除标记”的字段，填写“删除”，这样当进行恢复时，就是在“删除标记”的字段，去掉“删除”字样。
当然，还可以用其它方法，限于篇幅，不多罗嗦！追问
能麻烦你帮忙具体写出了吗？大学里面学的，都忘 的差不多了 谢谢
追答邮箱或者QQ联系。这里无法写这么字？
追问1205056769，谢谢啦，在线等