|
samuel-he 发表于 2013-8-29 18:24
感谢赵老师:
不好意思我增加三个字段,修改时报错。
请求老师指点!
文本框有值时更新为该文本框有值,否则就更新为Null:- Private Sub 修改记录_Click()
- If TextBox23.Text = "" Then
- MsgBox " ID 不能为空!", vbInformation, "修改记录"
- Exit Sub '姓名或工作部门为空则退出
- End If
- Dim rst As New ADODB.Recordset
- Dim SQL$, temp$, i&, j&, s$
- SQL = "select * from B2A员工档案 where 员工档案ID=" & TextBox23.Text
- rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
- If rst.RecordCount = 0 Then
- MsgBox "B2A员工档案中不存在该记录!", vbInformation, "修改失败"
- Set rst = Nothing
- Exit Sub
- End If
- '开始修改数据
- With rst
- For i = 0 To rst.Fields.Count - 2 'ID号 在数据库中自动增加
- If Len(Me.Controls("TextBox" & i + 1).Text) Then .Fields(i) = Me.Controls("TextBox" & i + 1).Text Else .Fields(i) = Null
- Next i
- .Update '更新数据表
- End With
- Set rst = Nothing
- SQL = "select * from B2A员工档案"
- If 模糊查询.Text = "" Then Call 显示数据(SQL) Else 模糊查询.Text = "" '刷新ListView1数据
- Call 清空文本框
- MsgBox "已在B2A员工档案中将该记录修改!", vbInformation, "修改记录"
- End Sub
复制代码 |
|