vba 删除数据库

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

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

这种情况被网友戏称为碰到了僵尸自定义样式(所谓的僵尸样式即用不了也删除不了)。解决方法(文件后缀若是2003版的后缀，则要先另存为2007版及以上的文件后缀)：先把文件复制一份（以防待会改动错误，造成数据丢失）。然后把Excel文件后缀修改成为.zip，解压压缩文件中的xl文件夹里的styles.xml文件到桌面，使用记事本打开styles.xml文件，文件中除了xfId为0的这段字符<cellStyle name="常规" xfId="0" builtinId="0"/>不可删，其余的以<cellStyle name=*******>开头结尾的都删除(可用查找功能定位)，再保存。再把压缩文件中的xl文件夹里的styles.xml用修改后的这个文件替换到里面。最后再把Excel文件后缀修改成为原来的后缀即可。（若用以上方法怕删除不必要的字符，那么可把僵尸样式的名称先复制粘贴到Word中。然后查找到刚才粘贴出来的僵尸样式的名称，把包含这个名称的括号<>里面的内容都删掉即可）

访问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方法，单独使用，其它代码都不用）

---