把数据表中对应工作表的数据首先删除,然后向数据表中导入工作表的数据
大家好,我们今日继续讲解VBA资料库解决方案的第28讲内容：利用VBA，把数据表中对应工作表的数据首先删除,然后向数据表中导入工作表数据。资料库的讲解已经持续一段时间了，从对简单资料库的认识到利用VBA对资料库的操作，我们一步步的走来，估计大家已经学到了很多知识。最近的内容主要是操作，我把我可能想到的各种情况给大家介绍讲解，这些都是我们在实际的工作中会遇到的情况，只要大家掌握了代码，并结合一下自己的工作实际，很快就会写出自己的代码。当然要想改代码必须对代码有全面的理解。
今日给大家讲的情况是：资料库录入错了，但关键的栏位没有错误，这时我们怎么处理呢？这时的处理方案是：首先要删除之前录入的数据，然后修改数据并再次录入。
实例：我们在录入员工信息时，不小心把民族给录入错误，如下面的工作表：
第2行到第5行，人员的民族应该为汉，不小心录入了回族，这时改怎么处理呢？这就是我这节要面对的解决方案：先删除，再导入正确的。怎么做到呢：看下面的代码：
Sub mynzCreateDataTable_6() 第28讲利用VBA,根据工作表的数据，在数据表中先删除已有的数据，然后添加记录
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
打开数据表中存在的员工编号相同的记录
strSQL = "DELETE FROM " & strTable & " A WHERE EXISTS(" _
& "SELECT * FROM [Excel 12.0;Database=" & _
ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" _
& Range("a1").CurrentRegion.Address(0, 0) & "] " _
& "WHERE 员工编号=A.员工编号)"
cnADO.Execute strSQL 把这些记录删除
下面将添加记录
strSQL = "INSERT INTO " & strTable & " SELECT * FROM [Excel 12.0;Database=" _
& ThisWorkbook.FullName & ";].[" & ActiveSheet.Name & "$" _
& Range("A1").CurrentRegion.Address(0, 0) & "]"
cnADO.Execute strSQL
MsgBox "纪录添加成功。", vbInformation, "添加纪录"
汇报给用户记录数
strSQL = "SELECT * FROM " & strTable
rsADO.Open strSQL, cnADO, 1, 3
MsgBox "最后的记录数为：" & rsADO.RecordCount
释放内存
rsADO.Close
cnADO.Close
Set rsADO = Nothing
Set cnADO = Nothing
End Sub
代码截图：
代码解读：代码共分三部分，第一部分仍是建立连接记录集一直到MsgBox "当前记录数为：" & rsADO.RecordCount 后关闭了记录集的连接，这部分和前几讲的内容是一致的，不再过多的讲解，
第二部分：
打开数据表中存在的员工编号相同的记录
strSQL = "DELETE FROM " & strTable & " A WHERE EXISTS(" _
& "SELECT * FROM [Excel 12.0;Database=" & _
ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" _
& Range("a1").CurrentRegion.Address(0, 0) & "] " _
& "WHERE 员工编号=A.员工编号)"
cnADO.Execute strSQL 把这些记录删除
下面将添加记录
strSQL = "INSERT INTO " & strTable & " SELECT * FROM [Excel 12.0;Database=" _
& ThisWorkbook.FullName & ";].[" & ActiveSheet.Name & "$" _
& Range("A1").CurrentRegion.Address(0, 0) & "]"
cnADO.Execute strSQL
MsgBox "纪录添加成功。", vbInformation, "添加纪录"
这部分中，先要打开已经有的记录，然后删除，接著，在此导入正确的记录。我们要理解的是：strSQL = "DELETE FROM " & strTable & " A WHERE EXISTS(" _
& "SELECT * FROM [Excel 12.0;Database=" & _
ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" _
& Range("a1").CurrentRegion.Address(0, 0) & "] " _
& "WHERE 员工编号=A.员工编号)"
这条SQL语句的意思是删除一些记录，什么记录呢？就是在数据表strTable中两者员工编号相同的记录。然后，ADO 执行SQL命令：cnADO.Execute strSQL 。
在此导入记录就相对简单了：同样
strSQL = "INSERT INTO " & strTable & " SELECT * FROM [Excel 12.0;Database=" _
& ThisWorkbook.FullName & ";].[" & ActiveSheet.Name & "$" _
& Range("A1").CurrentRegion.Address(0, 0) & "]"
然后执行。
这里我们介绍一下Execute命令和INSERT INTO 命令的意义：
1.Execute 方法可以执行指定SQL 语句.
2 INSERT INTO 语句用于向表格中插入新的行。
第三部分的代码是从汇报给用户记录数，同时要释放内存。这部分就不再多说了。
下面看看我们程序的运行情况：
我们首先修正EXCEL工作表中的记录为正确的值：
然后运行，首先会提示当前的记录数：
然后,后台删除记录，添加记录，提示给我们：
最后反馈处理完成的记录：
我们这时可以再看看资料库中的记录,点击：
可以看到我们修改完成。
今日内容回向：
1 如何修改已经存在的记录？
2 除了上述方案，完成本讲的内容，你是否还有其他的方案？
《VBA代码解决方案》系列电子书，是我将一些非常实用的VBA内容结集成册，PDF格式文件，朋友们可以从中查找到你想要解决问题的思路和方法，可以复制文中的VBA代码直接使用。有需要的朋友微信联络我NZ9668。
推荐阅读：
