请教datagrid和text绑定数据库后，如何进行错误处理？请给个好的思路。

2002-05-10 11:44:23 101 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

LLM编译时内联控制流：Orchestration Layer蒸发原理与零层Agent实战大语言模型推理中的Orchestration Layer（编排层）本质上是运行时动态调度的中间胶合逻辑，长期面临语义失真、状态管理黑洞和错误传播不可逆三大结构性缺陷。随着稀疏专家门控、结构化tokenization和可验证control token机制等技术成熟，业界正将工具调用、状态流转等控制逻辑直接编译进模型权重空间，实现从‘解释执行’到‘向量指令’的范式跃迁。这种编译时内联显著降低P99延迟、消除GPU显存抖动，并使control token具备attention mask动态编织、position 阅读详情

用ado数据控件adodc连接数据库
绑定了一个datagrid和多个textbox。来维护一个库表，增加，删除，修改
用Datagrid来移动，选择记录，不允许add,delete,update
用textbox显示记录的详情，每个字段对应一个textbox
ado增加的时候ado.recordset.addNew，通过textbox来输入内容。
问题是对错误如何处理？？？
比如没有关键字，关键字字段输入的值与已有的值重复。这些错误，该如何控制和处理？在什么地方处理。
我现在是在Ado_WillChangeRecord里调用数据检查:
Private Sub Ado_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If CancelUpdate_Flag = True Then '已经取消过，则退出，check里设为false
Exit Sub
End If
Call Check_Txt
'Ado.Recordset.Filter = adFilterAffectedRecords
If ErrFlag = True Then
MsgBox ErrMsg
ErrFlag = False
CancelUpdate_Flag = True
' adStatus = adStatusCancel
adStatus = adStatusUnwantedEvent
txtXiangmuName.DataChanged = False
' Ado.Recordset.CancelUpdate

End If
End Sub

但是老是datagrid出现error事件，并且出错。
对ado和datagrid不熟悉，请指点该如何处理错误。

...全文

模板驱动型文档自动化：零代码实现结构化内容生成文档自动化是企业提升知识生产效率的关键技术路径，其核心在于将非结构化写作转化为结构化装配过程。基于模板驱动原理，系统通过布局层、字段层与逻辑层三层解耦设计，实现数据源到成品文档的确定性映射，显著优于AI生成在合规性、品牌一致性与执行成本上的不确定性。该技术具备强工程可控性，支持PDF、PPTX、Web页等多模态输出，广泛应用于销售周报、HR评语、技术手册等需高准确率与批量交付的场景。本文聚焦Sqribble平台实践，深入解析模板配置、数据绑定、条件逻辑与松耦合集成等落地要点。阅读详情

maplewind

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

+ 关注 + 加入社区

切换为时间正序

jdsbjcailei 2002-05-10

打赏
举报

这样，你的文本框如果没有数据则就不会保存了。也就不会触发datagrid的error了。

jdsbjcailei 2002-05-10

打赏
举报

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text = "" Then
MsgBox "对不起，不能为空！"
Exit Sub
Else
'保存
End If
End If
End Sub

Jameszht 2002-05-10

打赏
举报

validate是當跳出textbox時進行校驗，程序要自己寫。如果檢驗不成功則令
cancel=true，用戶不能跳離textbox，也就是說一定要輸入正確才能跳離。
如你上所說，如果用戶不輸入關鍵字，則用
Private Sub Text1_Validate(Cancel As Boolean)
　　　　If Text1.Text = "" Then Cancel = True
End Sub
關鍵字重復的問題比較複雜，一般的作法是由存盤時由sql產生一個錯誤，程序捕捉之。也有的是在程序中用代碼實現。如果你希望能在前台完成校驗，我推薦使用存儲過程的output參數來完成。

maplewind 2002-05-10

打赏
举报

说具体点好吗？
偶刚用，什么都不懂

maplewind 2002-05-10

打赏
举报

好多个textbox
对textbox的validate怎么做校验？？？？

bitsoft 2002-05-10

打赏
举报

在textbox的Validate事件中加校验吧

acptvb 2002-05-10

打赏
举报

感谢您使用微软产品。

对于诸如关键字重复的等问题，您还可以在ADODB.Connection 的ExecuteComplete事件发生时判断SQL语句是否执行成功，并获取错误信息。如果此时不对错误进行处理，将发生Rum-time Error，您可以使用On Error Statement来处理错误，防止程序的崩溃。

如果SQL语句的执行没有错误，ADO.connection对象的execute方法的第二个参数是存储返回值的变量，反映了受影响的记录个数，您可以通过这个参数变量获得SQL语句执行结果的信息。如下例：

Private WithEvents cases As ADODB.Connection ‘为了获取对象的事件，需在声明对象时加WithEvents关键字。

Private Sub cases_ExecuteComplete(ByVal RecordsAffected As Long, _
ByVal pError As ADODB.Error, _
adStatus As ADODB.EventStatusEnum, _
ByVal pCommand As ADODB.Command, _
ByVal pRecordset As ADODB.Recordset, _
ByVal pConnection As ADODB.Connection)
If adStatus = adStatusErrorsOccurred Then
MsgBox pError.Description
Else
MsgBox "exec success"
End If
End Sub

Private Sub Command2_Click()
Set cases = CreateObject("ADODB.Connection")
cases.Open ("testdb1")
Dim num As Integer
exsql = "delete from Table1 where ID>0"
On Error GoTo errl
cases.Execute exsql, num
Text2.Text = num
Exit Sub

errl:
MsgBox Err.Description
Exit Sub

End Sub

每次执行与ADO有关的操作时，所有provider errors都被加入connection的Errors属性，您也可以由此获得错误信息。修改on error的处理代码如下：
errl:
For Each Err In cases.Errors

strError = "Error #" & Err.Number & vbCr & _
" " & Err.Description & vbCr & _
" (Source: " & Err.Source & ")" & vbCr & _
" (SQL State: " & Err.SQLState & ")" & vbCr & _
" (NativeError: " & Err.NativeError & ")" & vbCr
If Err.HelpFile = "" Then
strError = strError & " No Help file available"
Else
strError = strError & _
" (HelpFile: " & Err.HelpFile & ")" & vbCr & _
" (HelpContext: " & Err.HelpContext & ")" & _
vbCr & vbCr
End If

Debug.Print strError
Next
Exit Sub

详细信息请参考：
Execute Method (ADO Connection)
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmthcnnexecute.asp
ExecuteComplete Event
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdevtexecutecomplete.asp
On Error Statement
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vblr7/html/vastmonerror.asp
Errors Collection
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdcolerrors.asp
Description, HelpContext, HelpFile, NativeError, Number, Source, and SQLState Properties Example (VB)
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdprodescriptionx.asp

- 微软全球技术中心 VB技术支持
本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境，请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。

maplewind 2002-05-10

打赏
举报

我想利用validate是个好主义，但是对诸如关键字重复的问题该怎么办？
我觉得利用往ado里转入时的错误信息是个好主意，但是该怎么扑捉和处理呢？
能利用ado的WillChangeRecord和cancelUpdate吗？

请教datagrid和text绑定数据库后，如何进行错误处理？请给个好的思路。

相关推荐