VBA 删除access数据库记录

删除/插入 (delete/insert) 利用的是CurrentDb.Execute(stSql)。

代码如下：

[plain] view plaincopy

'拼写删除指定PR Number的SQL文

stSql = "DELETE FROM [000_BASTS] WHERE [PR NR] = '" &pr_nr &"'"

'执行SQL文

CurrentDb.Execute (stSql)

因为你说的太笼统了，所以只能这样了

Sub ss()

'access

'Db = "d:\zcgl.mdb"

' connstr = "DBQ=" + Db + "DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"

' Set conn = CreateObject("ADODB.Connection")

' conn.Open connstr

'删除sql对应的行

'conn.Execute "delete from grjbxx00 where 订单编号=" &Cells(1, 1) &"and 产品编号=" &Cells(2, 1)

'sql2000,你需要修改 数据库名，用户名，密码，数据表名

ConnectionString = "Driver={SQL Server}Server=(local)Datebase=dbefanUid=efanPwd=123456"

Set cnn = server.CreateObject("ADODB.Connection")

cnn.Open ConnectionString

'删除sql对应的行,grjbxx00要修改

cnn.Execute "delete from grjbxx00 where 订单编号=" &Cells(1, 1) &"and 产品编号=" &Cells(2, 1)

End Sub

访问ACCESS一般有DAO ,ADO 和SQL方法，

以DAO为例，先定义并实例化DAO对象。

（引用“Microsoft DAO 3.6 Object Library”项，一般默认不用设置）

代码如下：

Dim db As Database

Dim rs As RecordSet

Set db = OpenDatabase ("地址\数据库名称.mdb" )

Set rs = db.OpenRecordset("表名", dbOpenDynaset)

rs.Move n '移动到第n 条记录

rs.Edit '设置为修改状态

rs.Delete '删除当前记录

rs.Updata '把删除动作反映到数据库中

end sub

如果是删除整个字段用：rs. Fields.Delete("字段名")

替换掉"rs.Delete"

如果是只删除该纪录的某一字段的内容用: rs. Fields(n).value=""

替换掉"rs.Delete"

如果是删除整个表用：DoCmd.DeleteObject acTable, "表名"

（不是DAO方法，单独使用，其它代码都不用）

---