|
可以在excel中编写vba,先查询要更改的数据,然后删除,在excel中录入数据,重新添加到数据库中。下面给楼主个程序,是写在excel表vba中的,用于执行删除指定数据库中符合条件的行。当然要在excel表中设置和数据库中要执行操作的表一样格式的sheet表格。具体的条件设定楼主可以自己将下面的程序补全试用一下。
Sub ()
Dim CNN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim pthStr As String
Dim SQL As String
pthStr = ThisWorkbook.Path & "\(数据库名).mdb"
CNN.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & pthStr
SQL = "select * from flb where (条件)
RS.Open SQL, CNN, adOpenKeyset, adLockOptimistic, adCmdText
RS.MoveLast
Icount = RS.RecordCount
Debug.Print Icount
RS.MoveFirst
For I = 1 To Icount
RS.Delete
RS.Update '保存更改
RS.MoveNext
Next I
Set RS = Nothing
CNN.Close
end sub
当然肯定还有别的办法,我只是对excel比较熟,acc也是菜鸟一个,所以举得这个方法。也希望能看到真正的高手的解答,我也顺便学习下。呵呵 |
|