sqlserver delete from 和 delete 表 from的区别_用DELETE+ADDNEW的方法，编辑数据库中记录...

大家好，今日我们继续VBA数据库解决方案的第31讲：用DELETE+ADDNEW的方法实现类似于UPDATA的方法实例。在最近的讲解中，我总在强调，实现目的方法有很多种，我们要灵活的对应。今日我们的内容同上一讲的目的一样，但我们要用其他的方法来实现。内容是用DELETE+ADDNEW的方法实现类似UPDATA的方法。

实例：下面的工作表为数据库中员工信息表的记录，

我们要把其中部门是"一厂""二厂"的记录修正为"三厂"，用DELETE+ADDNEW如何做到呢？

好的，我们仍是先看看程序代码：

Sub mynzUpdateRecords_3()

'第31讲 用DELETE+ADDNEW的方法实现UPDATA的方法

Dim cnADO, rsADO As Object

Dim strPath, strTable, strWhere, strSQL, strMsg As String

Set cnADO = CreateObject("ADODB.Connection")

Set rsADO = CreateObject("ADODB.Recordset")

strPath = ThisWorkbook.Path & "mydata2.accdb"

strTable = "员工信息"

cnADO.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & strPath

strSQL = "SELECT * FROM " & strTable

rsADO.Open strSQL, cnADO, 1, 3

'汇报给用户记录数

MsgBox "删除前记录数为：" & rsADO.RecordCount

rsADO.Close

strWhere = " WHERE EXISTS(" _

& "SELECT * FROM [Excel 12.0;Database=" _

& ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" _

& Range("a1").CurrentRegion.Address(0, 0) & "] " _

& "WHERE 员工编号=" & strTable & ".员工编号)"

strSQL = "SELECT 员工编号 FROM " & strTable & strWhere

rsADO.Open strSQL, cnADO, 1, 3

If rsADO.RecordCount > 0 Then

strSQL = "DELETE FROM " & strTable & strWhere

cnADO.Execute strSQL

MsgBox rsADO.RecordCount & "条记录被删除。