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

用字典可以轻松快捷地实现去重的 *** 作，代码如下：

Sub main()

Set dic = CreateObject("scripting.dictionary") '创建字典对象，并把字典对象赋给变量dic；这是最常用的一句代码，也就是所谓的“后期绑定”

For i = Range("B65536").End(3).Row To 1 Step -1 '从B列的最后一行到第一行依次递减，如果是从第一行到最后一行递增，则会因为删除行而跳过很多行，达不到去重效果

If dic.exists(Cells(i, "B").Value) Then '如果B列中的数据已经在字典中了（也就是重复了）

Rows(i).Delete '就删除这一行

Else

dic(Cells(i, "B").Value) = "" '否则就把B列的数据放入字典中

End If

Next i

End Sub

---