hive 删除表数据 hdfs没有删除_把数据表中对应工作表的数据首先删除，然后导入数据...

大家好,我们今日继续讲解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 "纪录添加成功。