锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net捕获错误 vba 捕获异常

IT技术错误

vb.net制作的Excel文件 未捕获通过反射调用的方法而引发的异常在你机器上没问题那就是运行环境的问题了 你发布的时候是不是把检测到的依赖项全打包进去啦？
在VB.NET中怎么样判断一个数组是不是为空一： 利用错误捕获功能判断
Dim ArrayS() As String
Private Sub Command1_Click()
On Error GoTo z
ReDim ArrayS(10)
If UBound(ArrayS)-1 Then
MsgBox "数组不为空"
End If
Exit Sub
z:
MsgBox "数组空"
End Sub
二、 Join方法：
Dim ArrayS() As String
Private Sub Command1_Click()
If (CStr(Join(ArrayS, ""))) = "" Then
MsgBox "为空"
Else
MsgBox "不为空"
End If
End Sub
vb.net 如何捕获所有未处理的异常?...
'将Try...Catch放在Main中
Try
Begin()
Catch e As Exception
ProcessException(e)
End Try
'在Begin中开始你的程序，就像从Main开始执行程序一个道理
Sub Begin()
'
End Sub
'将ProcessException改成你的要处理所有异常的过程名
Sub ProcessException(e As Exception)
'
End Sub
...
在vb.net 中,记录系统错误日志这个功能怎么实现Public Sub ShowError(strModule As String, strProcedure As String, lngErrorNumber As Long, strErrorDescription As String, showMsg As String)
'
'错误处理中心过程,写数据库日志表或写日志文件
'
'strModule'模块名称
'strProcedure'过程名称
'lngErrorNumber'错误ID号
'strErrorDescription '错误描述
'showMsg'是否显示本过程内错误显示信息(值:"Y" or "N")
'Error表结构(f001 (Date)发生时间,f002 (nvarchar50)模块名称, f003 (nvarchar50)过程名称, f004 (nvarchar50)错误ID号, _
f005 (nvarchar300)错误描述,f006 (nvarchar50)版 本 号, f007 (nvarchar50)用户名称, f008 (nvarchar50)网卡地址
'ErrorCode表结构 f001 (nvarchar20)错误代码,f002 (nvarchar255)错误信息, f003 (numeric9)错误级别
'级别说明: '10'以下,一般错误,不影响操作
''11-20',严重错误,不能操作,程序执行退出
On Error GoTo ErrorHandle
Dim strMessage As String
Dim strCaption As String
Dim sVer As String
Dim intLogFile As Integer
Dim Res As New ADODB.Recordset
Dim ResErrorCode As New ADODB.Recordset
Dim strSQL As String
'对应错误号,从ErrorCode表中找到对应vb.net捕获错误的错误信息,0-1000 错误号保留给VB
DBOpen ResErrorCode, "select * from errorcode where f001='"lngErrorNumber"'"
If Not (ResErrorCode.EOF Or ResErrorCode.BOF) Then
strMessage = ResErrorCode.Fields("f002")
If ResErrorCode.Fields("f003")10 Then
MsgBox "产生一个严重错误,可能影响到系统vb.net捕获错误的可操作性,请立即联系本系统开发人员!", vbCritical, "严重错误"
End If
End If
'写错误入文件----------------------------
intLogFile = FreeFile
Open App.Path"\"strIni.LogFile For Append As #intLogFile
Print #intLogFile, "***错误"; VBA.Now"*** ""Version:"_
str$(App.Major)"."str$(App.Minor)"."Format(App.Revision, "0000")
Print #intLogFile, "Error: "lngErrorNumber
Print #intLogFile, "Description: "strErrorDescription
Print #intLogFile, "Module: "strModule
Print #intLogFile, "Procedure: "strProcedure
Print #intLogFile, ""
Close #intLogFile
If Len(strMessage)2 Then strErrorDescription = strMessage
strMessage = "错误: ""("lngErrorNumber")"strErrorDescriptionvbCrLfvbCrLf_
"模块:"strModule";过程:"strProcedure
sVer = Trim(str$(App.Major)"."str$(App.Minor)"."_
Format(App.Revision, "0000"))
strCaption = "错误 Version: "sVer
'写错误入数据库表--------------------------
strSQL = "insert into error(f001,f002,f003,f004,f005,f006,f007,f008) values(" _

推荐阅读


上一篇：js字符改asc码，js设置字符串编码

下一篇：linux防火墙命令设计，linux防火墙规则设置