我用了赵刚老师的：电话簿管理系统(以access为数据库) 套用了一人事档案：请求修改

zhaogang1960

lhsh36183 发表于 2013-8-30 08:54
版主，能转换成2003版本的就好了。

2003.rar (142.66 KB, 下载次数: 56)

2013-8-30 09:07 上传

点击文件名下载附件

zhaogang1960

samuel-he 发表于 2013-8-29 18:24
感谢赵老师：
不好意思我增加三个字段，修改时报错。
请求老师指点!

文本框有值时更新为该文本框有值，否则就更新为Null：

1. Private Sub 修改记录_Click()
   
2. 
   
3.     If TextBox23.Text = "" Then
   
4.         MsgBox " ID 不能为空！", vbInformation, "修改记录"
   
5.         Exit Sub '姓名或工作部门为空则退出
   
6.     End If
   
7.     Dim rst As New ADODB.Recordset
   
8.     Dim SQL$, temp$, i&, j&, s$
   
9.     SQL = "select * from B2A员工档案 where 员工档案ID=" & TextBox23.Text
   
10.     rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
11.     If rst.RecordCount = 0 Then
    
12.         MsgBox "B2A员工档案中不存在该记录！", vbInformation, "修改失败"
    
13.         Set rst = Nothing
    
14.         Exit Sub
    
15.     End If
    
16.     '开始修改数据
    
17.     With rst
    
18.         For i = 0 To rst.Fields.Count - 2 'ID号  在数据库中自动增加
    
19.             If Len(Me.Controls("TextBox" & i + 1).Text) Then .Fields(i) = Me.Controls("TextBox" & i + 1).Text Else .Fields(i) = Null
    
20.         Next i
    
21.         .Update    '更新数据表
    
22.     End With
    
23.     Set rst = Nothing
    
24.     SQL = "select * from B2A员工档案"
    
25.     If 模糊查询.Text = "" Then Call 显示数据(SQL) Else 模糊查询.Text = "" '刷新ListView1数据
    
26.     Call 清空文本框
    
27.     MsgBox "已在B2A员工档案中将该记录修改！", vbInformation, "修改记录"
    
28. End Sub
    

复制代码

samuel-he

zhaogang1960 发表于 2013-8-29 18:32
文本框有值时更新为该文本框有值，否则就更新为Null：

感 谢赵老师无私的奉献！可以了！

zhaogang1960

请看附件
test-082902.rar (529.4 KB, 下载次数: 95)

2013-8-29 18:33 上传

点击文件名下载附件

samuel-he

zhaogang1960 发表于 2013-8-29 16:39
请看附件

感谢赵老师：
不好意思我增加三个字段，修改时报错。
请求老师指点!

zhaogang1960

请看附件
test-082901.rar (523.68 KB, 下载次数: 139)

2013-8-29 16:39 上传

点击文件名下载附件

zhaogang1960

1. Private Sub 修改记录_Click()
   
2. 
   
3. 
   
4. '请求根据 ID 修改：
   
5. 
   
6. 
   
7. 
   
8. 
   
9.     If TextBox20.Text = "" Then
   
10.         MsgBox " ID 不能为空！", vbInformation, "修改记录"
    
11.         Exit Sub '姓名或工作部门为空则退出
    
12.     End If
    
13.     Dim rst As New ADODB.Recordset
    
14.     Dim SQL$, temp$, i&, j&, s$
    
15.     SQL = "select * from B2A员工档案 where 员工档案ID=" & TextBox20.Text
    
16.     rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
17.     If rst.RecordCount = 0 Then
    
18.         MsgBox "B2A员工档案中不存在该记录！", vbInformation, "修改失败"
    
19.         Set rst = Nothing
    
20.         Exit Sub
    
21.     End If
    
22.     '开始修改数据
    
23.     With rst
    
24.         For i = 0 To rst.Fields.Count - 2 'ID号  在数据库中自动增加
    
25.             .Fields(i) = Me.Controls("TextBox" & i + 1).Text
    
26.         Next i
    
27.         .Update    '更新数据表
    
28.     End With
    
29.     Set rst = Nothing
    
30.     SQL = "select * from B2A员工档案"
    
31.     If 模糊查询.Text = "" Then Call 显示数据(SQL) Else 模糊查询.Text = "" '刷新ListView1数据
    
32.     Call 清空文本框
    
33.     MsgBox "已在B2A员工档案中将该记录修改！", vbInformation, "修改记录"
    
34. End Sub
    

复制代码

ljx63426

很好，慢慢学习