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

删除行一般使用rows(18).delete就可以，删除多行可以使用range("1:100").delete

注意：如果按条件筛选删除一些行，循环的时候要从大到小，不能从小到大，因为删除了行之后后面的行号就变化了。

例如删除1~100行中的部分，应该循环为：

for

i=100

to

1

step

-1

不能写成：

for

i=1

to

100

这样就会删除不干净。

删除行的时候你要从下往上删除。

不然会串行，删不干净的。

Sub pp()

Dim l

Sheet3.Activate

l = Range("A65536").End(xlUp).Row

For m = i To 2 step -1

If Cells(m, 1) = "" Then

Rows(m + i).Delete

End If

Next

End Sub

---