为什么我这条代码写入ACCESS数据库时不能覆盖原有数据。谢谢

qinhuan66

1、为什么我这条代码写入ACCESS数据库时不能覆盖原有数据。谢谢
2、为什么提取姓名时出错全部为“个人缴费记录系统”字样。
3、缴费年限的提取能否改为这种格式      A:如：    1995年9月至2003年6月，共94个月。B:如中途有不缴费的分两次记录：1995年9月至2000年3月；2001年2月至2003年6月，共84个月。

测试.rar (735.78 KB, 下载次数: 10)

2014-1-17 20:00 上传

点击文件名下载附件

代码如下：

1. Private Sub CommandButton1_Click()
   
2. 'On Error Resume Next    '// 发生错误，自动执行下一句，就是忽略错误
   
3. Application.ScreenUpdating = False '//关闭屏幕刷新
   
4. Application.DisplayAlerts = False '//关闭系统提示
   
5. Application.EnableEvents = False  '//禁止触发其他事件
   
6. T = Timer
   
7. 
   
8.     ARR = FileAllArr(ThisWorkbook.Path, "*.xls", ThisWorkbook.Name, False)
   
9.     For i = 0 To UBound(ARR)
   
10.         Set WB = Workbooks.Open(ARR(i))  '//打开工作簿
    
11.         Set sh = WB.Sheets("个人缴费卡片")
    
12.         sh.Protect ("695360052")
    
13.         Str_单位名称 = sh.Cells(2, 3).Value
    
14.         Str_姓名 = sh.Cells(3, 2).Value   '//这里姓名的提取不对，总是：个人缴费记录系统
    
15.         Str_性别 = sh.Cells(3, 5).Value
    
16.         Str_身份证号 = sh.Cells(3, 8).Value
    
17.         Str_出生年月 = Format(sh.Cells(3, 13).Value, "YYYY-MM")
    
18.         Str_参加工作时间 = Format(sh.Cells(3, 17).Value, "YYYY-MM")
    
19.         Str_备注 = sh.Cells(5, 17).Value
    
20.         Str_缴费年限 = 0
    
21.             For X = 0 To 4
    
22.                 For IROW = 1 To 12
    
23.                     For ICOL = 4 To 20 Step 4
    
24.                         If IsNumeric(sh.Cells(13 + X * 17 + IROW, ICOL).Value) = True Then
    
25.                             If Abs(sh.Cells(13 + X * 17 + IROW, ICOL).Value) > 0 Then
    
26.                                 Str_缴费年限 = Str_缴费年限 + 1
    
27.                             End If
    
28.                         End If
    
29.    
    
30.                     Next ICOL
    
31.                 Next IROW
    
32.             Next X
    
33.         
    
34.         WB.Close False  '//保存
    
35.         Str_coon = "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\data.mdb;Jet OLEDB:Database Password=695360052"   '//连接Access
    
36.         StrSQL = "INSERT INTO 个人缴费记录 (单位名称,姓名,性别,身份证号,出生年月,参加工作时间,缴费年限,备注) VALUES "
    
37.         StrSQL = StrSQL & "('" & Str_单位名称 & "','" & Str_姓名 & "','" & Str_性别 & "','" & Str_身份证号 & "','" & Str_出生年月 & "','" & Str_参加工作时间 & "'," & Str_缴费年限 & ",'" & Str_备注 & "')"
    
38.         
    
39.         If AddDelMove(StrSQL, Str_coon) = False Then MsgBox Str_姓名 & " 添加失败！！"
    
40.     Next
    
41. 
    
42. Application.EnableEvents = True  '//  '//恢复触发其他事件
    
43. Application.ScreenUpdating = True '//恢复屏幕刷新
    
44. Application.DisplayAlerts = True '//恢复系统提示
    
45. MsgBox "一共用时：" & Format(Timer - T, "#0.0000") & " 秒", , "友情提示!!"  '//提示所用时间
    
46. End Sub
    
47. 
    
48. Private Sub CommandButton2_Click()
    
49. Set Sh2 = Sheets("个人缴费记录")
    
50.         Str_coon = "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\data.mdb;Jet OLEDB:Database Password=695360052"   '//连接Access
    
51.         StrSQL = "SELECT * FROM 个人缴费记录"
    
52. ARR = GET_SQLCoon(StrSQL, Str_coon, False)
    
53. Sh2.Range("A3").Resize(UBound(ARR, 1) + 1, UBound(ARR, 2) + 1) = ARR
    
54. End Sub

复制代码

qinhuan66

期待各位高手路过时抽空看看，在此先谢谢了。