[已解决]老师如何修改复盖当前Access数据库的数据表记录的内容

qinhuan66

老师如何修改复盖当前Access数据库的数据表记录的内容

本人有一个工作薄，里面有三个工作表。1、是录入到Access数据库的表（已完成）；2、是查询Access数据库信息的表；3、是现在需要老师处理的表（已经做到输入姓名后即从Access数据库的表获取相应数据）；主要是修改后如何替换后台Access数据库的数据表当前报名序号的当条记录。报名序号不能重复，只能修改本条记录。
公开招聘报名系统.rar (166.43 KB, 下载次数: 18)

2013-6-6 11:01 上传

点击文件名下载附件


在此非常感谢hwc2ycy老师的大力帮助。谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-7 07:04

获取数据按钮的代码

1. Private Sub CommandButton2_Click()
   
2. 
   
3.     Dim cnn As Object, rs As Object, sql$, i&, m&, c As Range
   
4.     If Len(Range("b3").Value) = 0 Then MsgBox " 请在 B3 单元可输入要查询的姓名", vbCritical + vbOKOnly: Exit Sub
   
5.     Application.ScreenUpdating = False
   
6.     Application.DisplayAlerts = False
   
7.     Application.EnableEvents = False
   
8.     Set cnn = CreateObject("adodb.connection")
   
9.     Set rs = CreateObject("adodb.recordset")
   
10. 
    
11.     cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\gkzp.mdb;Jet OLEDB:Database Password=695360052"
    
12. 
    
13.     sql = "select 性别,出生日期,报名序号,籍贯,民族,政治面貌,报名时间,健康状况,参加工作时间,最高学历毕业时间,报考类别,移动电话,固定电话,操作员,身份证号,电子邮箱,现工作单位及职务（或家庭住址）,报考职位,全日制教育,全日制教育毕业院校及专业,在职教育,在职教育毕业院校及专业,学习工作简历,提供材料,资格审查情况 from gkzp where 姓名='" & [b3] & "'"
    
14.     rs.Open sql, cnn, 1, 3
    
15.     If rs.RecordCount > 0 Then
    
16.         If rs.RecordCount > 1 Then
    
17.             '            MsgBox Target.Value & "共有" & rs.RecordCount & "条记录", vbInformation
    
18.             For i = 1 To rs.RecordCount
    
19.                 m = 0
    
20.                 For Each c In Range("F3,J3,L3,B4,F4,J4,L4,B5,F5,J5,L5,C6,J6,L6,C7,J7,E8,E9,D10,I10,D11,I11,B12,B17,B22")
    
21.                     c.Value = rs.Fields(m).Value
    
22.                     m = m + 1
    
23.                 Next
    
24.                 Call 取消控件选择
    
25.                 Call 数据值到控件([b17] & "," & [b22]): [b17] = "": [b22] = ""
    
26. 
    
27.                 If i < rs.RecordCount Then
    
28.                     If MsgBox("共有" & rs.RecordCount & "条记录，这是第" & i & "条记录，单击“是”显示下一条，单击“否”退出程序。", vbInformation + vbYesNo, [b3] & "共有" & rs.RecordCount & "条记录") = vbNo Then Exit For
    
29.                 End If
    
30.                 rs.MoveNext
    
31.             Next
    
32.         Else
    
33. 
    
34.             For Each c In Range("F3,J3,L3,B4,F4,J4,L4,B5,F5,J5,L5,C6,J6,L6,C7,J7,E8,E9,D10,I10,D11,I11,B12,B17,B22")
    
35.                 c.Value = rs.Fields(m).Value
    
36.                 m = m + 1
    
37.             Next
    
38.             Call 数据值到控件([b17] & "," & [b22]): [b17] = "": [b22] = ""
    
39.             MsgBox "呵呵！获取成功！"  '提示可要可不要
    
40.         End If
    
41.     Else
    
42.         Range("F3,J3,L3,B4,F4,J4,L4,B5,F5,J5,L5,C6,J6,L6,C7,J7,E8,E9,D10,I10,D11,I11,B12") = ""
    
43.     End If
    
44.     Application.ScreenUpdating = True
    
45.     Application.DisplayAlerts = True
    
46.     Application.EnableEvents = True
    
47.     rs.Close
    
48.     Set rs = Nothing
    
49.     cnn.Close
    
50.     Set cnn = Nothing
    
51. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

用sql 的update或者查询到记录集直接修改，再用rst.update

hwc2ycy

晚上再来帮你看。

qinhuan66

hwc2ycy 发表于 2013-6-6 13:08
晚上再来帮你看。

好的谢谢您hwc2ycy老师

hwc2ycy

因为字段实在过多，你更新可以这样，先删除原有的纪录，再添加新记录。

qinhuan66

hwc2ycy 发表于 2013-6-6 21:41
因为字段实在过多，你更新可以这样，先删除原有的纪录，再添加新记录。

老师上次弄的这个是可以修改但换到这个表有合并单元格的请不行，我就是这个才头疼。
下面这个可以获取和修改的。怎么样才能换到现在这个表呢？谢谢
麻烦hwc2ycy帮忙看一下谢谢
求助.rar (45.94 KB, 下载次数: 20)

2013-6-6 21:49 上传

点击文件名下载附件

hwc2ycy

直接选先删除再添加的。
字段比较多，要写对应的就很多了。

1. Sub 修改数据库()
   
2.     Dim AccessFile As String, Database As String, sql As String
   
3.     Dim StrConn$, strSql$
   
4.     Dim lLastRow&
   
5.     Dim arr, i&, j As Byte
   
6. 
   
7.     Dim AdoxCat As Object
   
8.     Dim AdoCmd As Object
   
9.     Dim AdoConn As Object
   
10.     Dim AdoRst As Object
    
11. 
    
12.     On Error GoTo Errcheck
    
13.     AccessFile = ThisWorkbook.Path & "\gkzp.mdb"
    
14.     Database = "gkzp"
    
15.     If Dir(AccessFile) = "" Then
    
16. 
    
17.         '检测文件是否存在，不存在则创建数据库
    
18.         Set AdoxCat = CreateObject("adox.catalog")
    
19.         AdoxCat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AccessFile & ";Jet OLEDB:Database Password=695360052;"
    
20.         Set AdoConn = AdoxCat.ActiveConnection
    
21.         Set AdoCmd = CreateObject("ADODB.Command")
    
22.         Set AdoCmd.ActiveConnection = AdoConn
    
23.         AdoCmd.CommandText = "CREATE TABLE " & Database & _
    
24.                              " (报名序号 text(3),报名时间 datetime ,报考类别 text(30),操作员 text(6),姓名 text(8),性别 text(2),出生日期 datetime ,籍贯 text(30),民族 text(10)," & _
    
25.                              "政治面貌 text(20),健康状况 text(20),参加工作时间 datetime ,最高学历毕业时间 datetime ,移动电话 text(12),固定电话 text(11),身份证号 text(18),电子邮箱 text(20)," & _
    
26.                              "现工作单位及职务（或家庭住址） text(50),报考职位 text(50),全日制教育 text(50),全日制教育毕业院校及专业 text(50),在职教育 text(50),在职教育毕业院校及专业 text(50),学习工作简历 text(50),提供材料 text(120),资格审查情况 text(6))"
    
27. 
    
28.         AdoCmd.Execute
    
29.         Set AdoCmd = Nothing
    
30.         Set AdoxCat = Nothing
    
31.         Set AdoConn = Nothing
    
32. 
    
33.     End If
    
34.     If Len([B3]) = 0 Or Len([F3]) = 0 Or Len([J3]) = 0 Or Len([B4]) = 0 Or Len([F4]) = 0 Or Len([J4]) = 0 Or Len([B5]) = 0 Or Len([F5]) = 0 Or Len([J5]) = 0 Or Len([C6]) = 0 Or Len([J6]) = 0 Or Len([C7]) = 0 Or Len([J7]) = 0 Or Len([E8]) = 0 Or Len([E9]) = 0 Or Len([D10]) = 0 Or Len([I10]) = 0 Or Len([D11]) = 0 Or Len([I11]) = 0 Or Len([B12]) = 0 Then
    
35.         MsgBox "对不起！黄色区域数据输入不完整，请先填好数据再进行提交。"
    
36.         Exit Sub
    
37.     End If
    
38. 
    
39. 
    
40. 
    
41.     StrConn = "Provider= Microsoft.Jet.OLEDB.4.0;" & _
    
42.               "Data Source='" & AccessFile & "';jet oledb:Database Password=695360052"
    
43. 
    
44.     Set AdoConn = CreateObject("ADODB.Connection")
    
45. 
    
46.     AdoConn.CursorLocation = 3
    
47.     AdoConn.Mode = 3
    
48.     AdoConn.CommandTimeout = 5
    
49.     AdoConn.connectionTimeout = 5
    
50.     AdoConn.Open StrConn
    
51. 
    
52.     If AdoConn.State <> 1 Then MsgBox "数据库连接失败", vbCritical + vbOKOnly: Exit Sub
    
53. 
    
54.     strSql = "delete * from " & Database & " where 报名时间=#" & [L4] & "# " & " and 姓名 like '" & [B3] & "' and 身份证号='" & [C7] & "'"
    
55. 
    
56. 
    
57. 
    
58.     Dim strTGCL$    '提供材料
    
59.     Dim strZGSCQK$  '资格审查情况
    
60.     Dim item1
    
61. 
    
62.     With Sheet1
    
63.         For Each item1 In .OLEObjects   '控件遍历
    
64.             With item1
    
65.                 If .Name Like "CheckBox*" Then  '过滤非CHECKBOX
    
66.                     Select Case True
    
67.                         Case .Object.Value And .TopLeftCell.Row = 17    '17行的数据
    
68.                             strTGCL = strTGCL & .Object.Caption & ","
    
69.                         Case .Object.Value And .TopLeftCell.Row = 22    '22行的数据
    
70.                             strZGSCQK = strZGSCQK & item1.Object.Caption & ","
    
71.                     End Select
    
72. 
    
73.                 End If
    
74.             End With
    
75.         Next
    
76.     End With
    
77. 
    
78.     If Len(strTGCL) Then
    
79.         strTGCL = Left(strTGCL, Len(strTGCL) - 1)  '过滤最后的","
    
80.     Else
    
81.         strTGCL = "无"
    
82.     End If
    
83. 
    
84.     If Len(strZGSCQK) Then
    
85.         strZGSCQK = Left(strZGSCQK, Len(strZGSCQK) - 1)  '过滤最后的","
    
86.     Else
    
87.         strZGSCQK = "无"
    
88.     End If
    
89. 
    
90. 
    
91. 
    
92.     'Set AdoRst =
    
93.     AdoConn.Execute (strSql)
    
94. 
    
95. 
    
96.     strSql = " insert into " & Database & " values('" & [L3] & "',#" & [L4] & "#,'" & [L5] & "','" & [L6] & "','" & [B3] & "','" & [F3] & "',#" & [J3] & "#,'" & [B4] & "','" & [F4] & "','" & _
    
97.              [J4] & "','" & [B5] & "',#" & [F5] & "#,'" & [J5] & "','" & [C6] & "','" & [J6] & "','" & [C7] & "','" & [J7] & "','" & _
    
98.              [E8] & "','" & [E9] & "','" & [D10] & "','" & [I10] & "','" & [D11] & "','" & [I11] & "','" & [B12] & "','" & strTGCL & "','" & strZGSCQK & "')"
    
99.     AdoConn.Execute strSql
    
100.     MsgBox "呵呵！本次数据已修改"
     
101.     [B3:C3,F3:G3,J3,L3,B4:C4,F4:G4,J4,L4,B5:C5,F5:G5,J5,L5,C6:G6,J6,L6,C7:G7,J7:L7,E8:L8,E9:L9,D10:F10,I10:L10,D11:F11,I11:L11,B12:L16] = ""
     
102.     [L3] = [L3] + 1
     
103. 
     
104.     '清除单选框
     
105.     With Sheet1
     
106.         For Each item1 In .OLEObjects   '控件遍历
     
107.             With item1
     
108.                 Select Case TypeName(.Object)
     
109.                     Case "CheckBox"
     
110.                         .Object.Value = False
     
111.                 End Select
     
112.             End With
     
113.         Next
     
114.     End With
     
115. 
     
116.     AdoConn.Close
     
117.     Set AdoConn = Nothing
     
118.     Exit Sub
     
119. 
     
120. Errcheck:
     
121. 
     
122.     MsgBox Err.Number & vbNewLine & _
     
123.            Err.Description
     
124. End Sub

复制代码

hwc2ycy

另外，你导入数据最好有个依据，是身份证号呢还是报考序号，你在查询时用了报考时间，这个不太好。

qinhuan66

hwc2ycy 发表于 2013-6-6 21:56
另外，你导入数据最好有个依据，是身份证号呢还是报考序号，你在查询时用了报考时间，这个不太好。

谢谢老师还是用身份证吧。谢谢

鱼鱼简澜

好长