在vb.net 中,記錄系統(tǒng)錯(cuò)誤日志這個(gè)功能怎么實(shí)現(xiàn)

Public Sub ShowError(strModule As String, strProcedure As String, lngErrorNumber As Long, strErrorDescription As String, showMsg As String)

10年積累的網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站制作經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶對(duì)網(wǎng)站的新想法和需求。提供各種問(wèn)題對(duì)應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先網(wǎng)站制作后付款的網(wǎng)站建設(shè)流程，更有臨淄免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

'

'錯(cuò)誤處理中心過(guò)程,寫(xiě)數(shù)據(jù)庫(kù)日志表或?qū)懭罩疚募?/p>

'

'strModule '模塊名稱

'strProcedure '過(guò)程名稱

'lngErrorNumber '錯(cuò)誤ID號(hào)

'strErrorDescription '錯(cuò)誤描述

'showMsg '是否顯示本過(guò)程內(nèi)錯(cuò)誤顯示信息(值:"Y" or "N")

'Error表結(jié)構(gòu)(f001 (Date)發(fā)生時(shí)間, f002 (nvarchar50)模塊名稱, f003 (nvarchar50)過(guò)程名稱, f004 (nvarchar50)錯(cuò)誤ID號(hào), _

f005 (nvarchar300)錯(cuò)誤描述,f006 (nvarchar50)版 本 號(hào), f007 (nvarchar50)用戶名稱, f008 (nvarchar50)網(wǎng)卡地址

'ErrorCode表結(jié)構(gòu) f001 (nvarchar20)錯(cuò)誤代碼, f002 (nvarchar255)錯(cuò)誤信息, f003 (numeric9)錯(cuò)誤級(jí)別

' 級(jí)別說(shuō)明: '10'以下,一般錯(cuò)誤,不影響操作

' '11-20',嚴(yán)重錯(cuò)誤,不能操作,程序執(zhí)行退出

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

'對(duì)應(yīng)錯(cuò)誤號(hào),從ErrorCode表中找到對(duì)應(yīng)的錯(cuò)誤信息,0-1000 錯(cuò)誤號(hào)保留給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 "產(chǎn)生一個(gè)嚴(yán)重錯(cuò)誤,可能影響到系統(tǒng)的可操作性,請(qǐng)立即聯(lián)系本系統(tǒng)開(kāi)發(fā)人員!", vbCritical, "嚴(yán)重錯(cuò)誤"

End If

End If

'寫(xiě)錯(cuò)誤入文件----------------------------

intLogFile = FreeFile

Open App.Path "\" strIni.LogFile For Append As #intLogFile

Print #intLogFile, "***錯(cuò)誤"; 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 = "錯(cuò)誤: " "(" lngErrorNumber ")" strErrorDescription vbCrLf vbCrLf _

"模塊:" strModule "; 過(guò)程:" strProcedure

sVer = Trim(str$(App.Major) "." str$(App.Minor) "." _

Format(App.Revision, "0000"))

strCaption = "錯(cuò)誤 Version: " sVer

'寫(xiě)錯(cuò)誤入數(shù)據(jù)庫(kù)表--------------------------

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

'是否顯示未知錯(cuò)誤信息

If Trim(UCase(showMsg)) = "Y" Then MsgBox strMessage, vbCritical, strCaption

PROC_EXIT:

Set Res = Nothing

Set ResErrorCode = Nothing

Exit Sub

ErrorHandle:

Resume Next

請(qǐng)問(wèn)誰(shuí)知道怎么用vb.net 打印.log日志文件， 用代碼寫(xiě)的，謝謝了，急用

Dim sw As StreamWriter = New StreamWriter（“c:\xxxxx.log”， True） 'true是指以追加的方式打開(kāi)指定文件

For i = 0 To j

temp = i.ToString

sw.WriteLine（temp）

sw.Flush（）

Next

sw.Close（）

sw = Nothing

請(qǐng)教高手，如何用vb實(shí)現(xiàn)“使用日志”？

很多種方法，最常用的一是用文本文件或數(shù)據(jù)庫(kù)記錄，二是調(diào)用API函數(shù)直接寫(xiě)入系統(tǒng)日志或應(yīng)用程序日志

中國(guó)有哪幾種編程語(yǔ)言?

目前比較流行的編程語(yǔ)言：

1、Ruby

Ruby于1993年2月24日開(kāi)始編寫(xiě)至1995年12月才正式公開(kāi)發(fā)布，一種為簡(jiǎn)單快捷面向?qū)ο缶幊潭鴦?chuàng)的腳本語(yǔ)言，Ruby是一個(gè)語(yǔ)法像Smalltalk一樣完全面向?qū)ο蟆⒛_本執(zhí)行、又有Perl強(qiáng)大的文字處理功能的編程語(yǔ)言。

2、Perl

Perl ，一般被稱為“實(shí)用報(bào)表提取語(yǔ)言”（Practical Extraction and Report Language）。他于1987年12月18日發(fā)表。Perl借取了C、sed、awk、shell ing以及很多其他程序語(yǔ)言的特性。其中最重要的特性是它內(nèi)部集成了正則表達(dá)式的功能，以及巨大的第三方代碼庫(kù)CPAN。簡(jiǎn)而言之，Perl像C一樣強(qiáng)大，象awk、sed等腳本描述語(yǔ)言一樣方便。

3、SWIFT

SWIFT，蘋(píng)果于2014年WWDC（蘋(píng)果開(kāi)發(fā)者大會(huì)）發(fā)布的新開(kāi)發(fā)語(yǔ)言，可與Object-C共同運(yùn)行于MAC OS和iOS平臺(tái)，用于搭建基于蘋(píng)果平臺(tái)的應(yīng)用程序。

4、php

PHP，是英文超文本預(yù)處理語(yǔ)言Hypertext Preprocessor的縮寫(xiě)。PHP 是一種 HTML 內(nèi)嵌式的語(yǔ)言，是一種在服務(wù)器端執(zhí)行的嵌入HTML文檔的腳本語(yǔ)言，語(yǔ)言的風(fēng)格有類似于C語(yǔ)言，被廣泛地運(yùn)用，目前版本已經(jīng)更新到5.4.23，由于其學(xué)習(xí)成本低，開(kāi)發(fā)效率高，擴(kuò)展函數(shù)豐富，成為了最流行的服務(wù)器端腳本語(yǔ)言。

5、Python

Python（KK 英語(yǔ)發(fā)音：/?pa?θ?n/）是一種面向?qū)ο?、直譯式計(jì)算機(jī)程序設(shè)計(jì)語(yǔ)言。也是一種功能強(qiáng)大而完善的通用型語(yǔ)言，已經(jīng)具有十多年的發(fā)展歷史，成熟且穩(wěn)定。Python 具有腳本語(yǔ)言中最豐富和強(qiáng)大的類庫(kù)，足以支持絕大多數(shù)日常應(yīng)用。 Python語(yǔ)法簡(jiǎn)捷而清晰，具有豐富和強(qiáng)大的類庫(kù)。它常被昵稱為膠水語(yǔ)言，它能夠很輕松的把用其他語(yǔ)言制作的各種模塊（尤其是C/C++）輕松地聯(lián)結(jié)在一起。Python的名字來(lái)源于一個(gè)喜劇。也許最初設(shè)計(jì)Python這種語(yǔ)言的人并沒(méi)有想到Python會(huì)在工業(yè)和科研上獲得如此廣泛的使用。

6、c#

C#是微軟公司發(fā)布的一種面向?qū)ο蟮摹⑦\(yùn)行于.NET Framework之上的高級(jí)程序設(shè)計(jì)語(yǔ)言。并定于在微軟職業(yè)開(kāi)發(fā)者論壇(PDC)上登臺(tái)亮相。C#是微軟公司研究員Anders Hejlsberg的最新成果。C#看起來(lái)與Java有著驚人的相似；它包括了諸如單一繼承、接口、與Java幾乎同樣的語(yǔ)法和編譯成中間代碼再運(yùn)行的過(guò)程。但是C#與Java有著明顯的不同，它借鑒了Delphi的一個(gè)特點(diǎn)，與COM（組件對(duì)象模型）是直接集成的，而且它是微軟公司 .NET windows網(wǎng)絡(luò)框架的主角。

7、java

ava是一ava是一種由Netscape的Live發(fā)展而來(lái)的原型化繼承的面向?qū)ο蟮膭?dòng)態(tài)類型的區(qū)分大小寫(xiě)的客戶端腳本語(yǔ)言，主要目的是為了解決服務(wù)器終端語(yǔ)言，比如Perl，遺留的速度問(wèn)題。當(dāng)時(shí)服務(wù)端需要對(duì)數(shù)據(jù)進(jìn)行驗(yàn)證，由于網(wǎng)絡(luò)速度相當(dāng)緩慢，只有28.8kbps，驗(yàn)證步驟浪費(fèi)的時(shí)間太多。于是Netscape的瀏覽器Navigator加入了Java，提供了數(shù)據(jù)驗(yàn)證的基本功能。所以，Java 被數(shù)百萬(wàn)計(jì)的網(wǎng)頁(yè)用來(lái)改進(jìn)設(shè)計(jì)、驗(yàn)證表單、檢測(cè)瀏覽器、創(chuàng)建cookies，以及更多的應(yīng)用。

推薦下我的前端群：524262608，不管你是小白還是大牛，小編我都挺歡迎，不定期分享干貨，包括我自己整理的一份2017最新的前端資料和零基礎(chǔ)入門教程，歡迎初學(xué)和進(jìn)階中的小伙伴。

8、C++

C++是一種面向?qū)ο蟮挠?jì)算機(jī)程序設(shè)計(jì)語(yǔ)言。C++這個(gè)詞在中國(guó)大陸的程序員圈子中通常被讀做“C加加”，而西方的程序員通常讀做“C plus plus”，“CPP”。 它是一種使用非常廣泛的計(jì)算機(jī)編程語(yǔ)言。C++是一種靜態(tài)數(shù)據(jù)類型檢查的、支持多重編程范式的通用程序設(shè)計(jì)語(yǔ)言。它支持過(guò)程化程序設(shè)計(jì)、數(shù)據(jù)抽象、面向?qū)ο蟪绦蛟O(shè)計(jì)、泛型程序設(shè)計(jì)等多種程序設(shè)計(jì)風(fēng)格。

9、C

C語(yǔ)言是一種計(jì)算機(jī)程序設(shè)計(jì)語(yǔ)言，它既具有高級(jí)語(yǔ)言的特點(diǎn)，又具有匯編語(yǔ)言的特點(diǎn)。它由美國(guó)貝爾研究所的D.M.Ritchie于1972年推出，1978年后，C語(yǔ)言已先后被移植到大、中、小及微型機(jī)上，它可以作為工作系統(tǒng)設(shè)計(jì)語(yǔ)言，編寫(xiě)系統(tǒng)應(yīng)用程序，也可以作為應(yīng)用程序設(shè)計(jì)語(yǔ)言，編寫(xiě)不依賴計(jì)算機(jī)硬件的應(yīng)用程序。它的應(yīng)用范圍廣泛，具備很強(qiáng)的數(shù)據(jù)處理能力，不僅僅是在軟件開(kāi)發(fā)上，而且各類科研都需要用到C語(yǔ)言，適于編寫(xiě)系統(tǒng)軟件，三維，二維圖形和動(dòng)畫(huà)，具體應(yīng)用比如單片機(jī)以及嵌入式系統(tǒng)開(kāi)發(fā)。

10、java

Java是一種可以撰寫(xiě)跨平臺(tái)應(yīng)用程序的面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言。Java 技術(shù)具有卓越的通用性、高效性、平臺(tái)移植性和安全性，廣泛應(yīng)用于PC、數(shù)據(jù)中心、游戲控制臺(tái)、科學(xué)超級(jí)計(jì)算機(jī)、移動(dòng)電話和互聯(lián)網(wǎng)，同時(shí)擁有全球最大的開(kāi)發(fā)者專業(yè)社群。

網(wǎng)頁(yè)標(biāo)題：vb.net日志,VBSE日志
當(dāng)前地址：http://chinadenli.net/article4/hegcoe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、關(guān)鍵詞優(yōu)化、靜態(tài)網(wǎng)站、網(wǎng)站改版、電子商務(wù)、品牌網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)