求一段详细的“添加记录”和“删除记录”按钮实现功能的代码，拜谢！！

Question

如题 谢谢！！！
我的意思是：
点击“添加记录”按钮后可以在数据库(access)中添加一条新的记录
点击“删除记录”按钮后可以在数据库(access)中删除指定的一条记录

Answer 1

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset'增加
Private Sub Command1_Click()
  rs.Close
  rs.Open "insert into AA(name,sex) values('书剑狂生','男') "
End Sub'删除
Private Sub Command2_Click()
  rs.Close
  rs.Open "delete from AA where name='书剑狂生'"
End SubPrivate Sub Form_Load()
  Set cnn = New ADODB.Connection
  Set rs = New ADODB.Recordset
  Set cmd = New ADODB.Command
  cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=False"
  cnn.Open
  rs.Open "select * from AA", cnn, adOpenKeyset, adLockOptimistic
End Sub

Answer 2

请问 pcwak(书剑狂生[MS MVP]) 这句：
rs.Open "delete from AA where name='书剑狂生'"
我如果想删除别的纪录的话这句应该怎么改？？

Answer 3

string strsql
strsql= "delete from AA where " & trim("字段名") & "='" & "某一个值" & "'"
rs.Open strsql

Answer 4

rs.Open "delete from AA where name='别的记录'"

Answer 5

rs.Open "insert into AA(name,sex) values('书剑狂生','男') "cnn.execute "delete from AA where name='书剑狂生'"

Answer 6

用data控间应该很简单
1。路径和帮定 
 data.databasename=app.path &"\数据库.mdb"
 data.recordsource="select * from 表"
 data.refresh
2.插入一条记录
 data.recordset.addnew
 data.recordset.feilds("字段1"=变量
 或者data.recordset.feilds(0)=变量

 data.recordset.update
3。删除
 data.recordset.delete
想删除哪一条，先查询，再删除
比如data.recordsourse="select * from 表 where 字段='" & 变量 &"'"
data.refresh
data.recordset.delete
4.修改
 data.recordset.edit
 data.recordset.feilds("字段")=变量
 。。
 data.recordset.update