双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

绑定修改不可自动保存，点击前后记录就报错,求救，求救，我急用，谢谢大家！

2004-08-23 10:02:12 126 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

febricity 墨衍会员 · AI 创作全网分发关注 + 加入社区

微信账号安全防护与异常处理全指南账号安全是数字身份保护的核心环节，其原理基于多因素认证与行为异常检测技术。在社交平台场景下，通过实时监控登录设备、消息记录和支付行为等维度，可以有效识别盗号风险。微信作为高频使用的通讯工具，其安全机制特别强调密码策略优化与二次验证的结合。工程实践中，采用大小写字母+数字+特殊符号的密码组合，配合设备管理功能，能显著降低撞库攻击成功率。当出现未发送消息、异常登录记录或可疑转账请求等危险信号时，立即执行密码修改与好友通知流程是关键应对措施。数据显示，开启全部安全功能的账号被暴力破解概率不足0.3%，而及时处置能阅读详情

我用ADODB这个控件通过ODBC和SQL SERVER相连，然后文本控件TEXTBOX和ADODB相连，连好后增加、删除都可以用，就是我在text控件中修改数据后不能保存，点前一个记录和后一个记录都报错说是操作被取消。我都绑定好了，为什么修改总是出错。
会不会是 Adodc1.Recordset.Bookmark 没设的过呢，请问 Bookmark方法如何用？

...全文

Sqribble文档自动化系统：模板驱动的PDF工业化生产流水线 PDF文档生成并非简单排版，而是一套融合结构化内容管理、语义化样式绑定与规则驱动渲染的工业化流程。其核心原理在于将排版逻辑、页面行为和导出策略固化为可复用模板，实现从原始内容到专业交付物的确定性转化。这种模板驱动型文档自动化系统显著提升内容生产者的交付效率与格式一致性，广泛应用于客户报告、产品手册、知识付费资料等需高频、批量、稳定输出的场景。本文深入解析Sqribble如何通过模板引擎、内容清洗、数控渲染与智能分发四大模块，构建面向非设计师的轻量级文档工厂。阅读详情

febricity

数据库(包含打印，安装，报表) 1,218 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

bjbs_vb 2004-08-24

打赏
举报

估计是你输入的字符串位数与数据库字段长度有冲突,或类型不对?你查一下

ryuginka 2004-08-24

打赏
举报

不要用绑定啊

febricity 2004-08-23

打赏
举报

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Index
Case 1 ''前进 '修改后点击此键出错，且不能保存，提示操作被取消
' On Error GoTo First_err
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF = True Then
Adodc1.Recordset.MoveFirst
End If
'First_err:
' MsgBox Err.Description, vbOKOnly + vbExclamation, "警告"

Case 2 ''后退 '修改后点击此键出错，且不能保存，提示操作被取消
' On Error GoTo second_err
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveLast
End If
'second_err:
'MsgBox Err.Description, vbOKOnly + vbExclamation, "警告"

Case 4 ''增加
On Error GoTo add_error
Adodc1.Recordset.AddNew

add_error:
If Err.Number = 3426 Then
MsgBox "已经使用过添加记录！错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
Toolbar1.Buttons(1).Visible = False
Toolbar1.Buttons(2).Visible = False
Toolbar1.Buttons(4).Visible = False
Toolbar1.Buttons(5).Visible = True
Toolbar1.Buttons(6).Visible = True
Toolbar1.Buttons(7).Visible = False
Case 5 ''确定 ‘修改后不能保存为什么？？？？？？
On Error GoTo update_error
If Text1.Text = "" Then
MsgBox "必须填写元器件名称！", 0, "提示"
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "必须填写元器件型号！", 0, "提示"
Exit Sub
End If
‘ Adodc1.Recordset.Bookmark = Varbookmark1 ’不知如何用，在哪给Varbookmark1值

’ Adodc1.Recordset.Fields(1) = Text1
‘ Adodc1.Recordset.Fields(2) = Text2
’ Adodc1.Recordset.Update

update_error:
If Err.Number = 3020 Then
MsgBox "请先添加记录！错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
Toolbar1.Buttons(1).Visible = True
Toolbar1.Buttons(2).Visible = True
Toolbar1.Buttons(4).Visible = True
Toolbar1.Buttons(5).Visible = True
Toolbar1.Buttons(6).Visible = True
Toolbar1.Buttons(7).Visible = True
Case 6 ''取消
On Error GoTo CanceErr

' Adodc1.Recordset.Edit
Adodc1.Recordset.CancelUpdate
Toolbar1.Buttons(1).Visible = True
Toolbar1.Buttons(2).Visible = True
Toolbar1.Buttons(4).Visible = True
Toolbar1.Buttons(5).Visible = True
Toolbar1.Buttons(6).Visible = True
Toolbar1.Buttons(7).Visible = True
CanceErr:
If Err.Number = 3021 Then
MsgBox "没有记录！错误：" & Err & "，" & Err.Description, 0, "提示"
End If
Case 7 ''删除
On Error GoTo del_error
a = MsgBox("真的删除吗？", vbExclamation + vbOKCancel + vbApplicationModal, "删除记录")
If a = 1 Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveLast
End If
If a = 2 Then Exit Sub
del_error:
If Err.Number = 3426 Then
MsgBox "已经全部删除！错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
End Select
End Sub

sssss342072 2004-08-23

打赏
举报

代码搞出来，

✦双11狂欢大促✦

绑定修改不可自动保存，点击前后记录就报错,求救，求救，我急用，谢谢大家！

相关推荐

双11狂欢大促