正文
vb.net系统错误 vb error accessing the system registry
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
在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 ")" strErrorDescription vbCrLf vbCrLf _
"模块:" 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(" _
DateFmtB VBA.Now DateFmtE "," _
IIf(Len(Trim(strModule)) = 0, "null", "'" strModule "'") "," _
IIf(Len(Trim(strProcedure)) = 0, "null", "'" strProcedure "'") "," _
IIf(Len(Trim(lngErrorNumber)) = 0, "null", "'" lngErrorNumber "'") "," _
IIf(Len(Trim(strErrorDescription)) = 0, "null", "'" Replace(strErrorDescription, "'", "") "'") "," _
IIf(Len(Trim(sVer)) = 0, "null", "'" sVer "'") "," _
IIf(Len(Trim(sUserName)) = 0, "null", "'" sUserName "'") "," _
IIf(Len(Trim(sVer)) = 0, "null", "'" EthernetNO "'") ")"
Cn.Execute strSQL
'是否显示未知错误信息
If Trim(UCase(showMsg)) = "Y" Then MsgBox strMessage, vbCritical, strCaption
PROC_EXIT:
Set Res = Nothing
Set ResErrorCode = Nothing
Exit Sub
ErrorHandle:
Resume Next
相关问答
Q1: vb.net中出错：“没有可用的‘****.vb 的编辑器’”
朋友，这种情况我以前遇到过，正在写程序，然后突然断电，再次打开窗体的时候就会有这个错误提示，VS2008 打开"视图设计器" 和 "查看代码"提示没有可用的编辑器，VS2008安装时的确装了WEB Develop组件的，但仍旧无法打开aspx页面的视图编辑器，且原代码也都是黑色的没有青色字体显示关键字，打开视图编辑器时提示“没有可用于xxx.aspx’的编辑器，确保已安装文件类型（.aspx）的应用程序”，重装、修复啥的都没用，我觉得应该不是VS的问题。最后我通过以下步骤解决问题的，你可以试试：1. 首先找到vs2008的安装目录，比如X:\Program Files\Microsoft Visual Studio 9.0；2. 在系统环境变量path后面增加 ;X:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE；3. 此时就可以在命令提示符中运行命令devenv.exe了；4.打开命令提示，执行这个命令: devenv /resetskippkgs 重新加载组件即可。
Q2: vb.net错误 System.NullReferenceException
看vb.net系统错误你vb.net系统错误的样子报错那行是想根据类型创建一个obj实例吧，这样的话你应该用
Dim obj = Activator.CreateInstance(t) 来创建obj实例
vb.net系统错误的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb error accessing the system registry、vb.net系统错误的信息别忘了在本站进行查找喔。
