vb.net日志管理 vba 日志

请问谁知道怎么用vb.net 打印.log日志文件， 用代码写的，谢谢了，急用

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

For i = 0 To j

temp = i.ToString

sw.WriteLine（temp）

sw.Flush（）

Next

sw.Close（）

sw = Nothing

相关问答

Q1: 个人信息管理系统。 要求用VB.NET做

vb2010.net + SQL2005 简单搞定。

就是数据库的最基本操作，增加修改删除！

Q2: 在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表中找到对应的错误信息,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 "产生一个严重错误,可能影响到系统的可操作性,请立即联系本系统开发人员!", 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

Q3: vb.net编译时生成log文件夹

在程序目录下生成log目录，用于保存日志文件。

自动在log目录中，生成日志文件，文件命名用年月日定义，如20100119_log.log。

在日志文件中，每行记录一个时间点的运行内容，时间点的精度应该达到毫秒。

Q4: .net是什么

.NET现在可以看成微软的一个品牌。微软有两个非常成功的品牌，那就是Windows(操作系统)和Office(办公系统)。.NET(开发系统)会成为微软的另一个品牌。它不仅仅是一组技术，产品，或服务（微软的服务包括MSN, Passport， MSDN订阅，等等）。一个品牌具有一些特征。比如，Rolex是一个手表品牌，它代表了高质量，时尚，昂贵，成功，等等。那么.NET代表了什么呢？

.NET代表着联通性，敏捷性，和成功。让我分别对这几点来解释一下。

1。联通性。.NET的远景是让所有的事物都连接起来。不管是人，信息，系统，还是设备；不管是一个企业的内部员工，外部合作伙伴，还是客户；不管是Unix, Windows, 还是 Mainframe；不管是SAP, Siebel, 还是 Oracle ERP套件；不管是桌面PC，手机，还是手表。在一个异构的IT环境里，.NET技术能够将不同的系统连接起来。

2。 敏捷性。商务敏捷性和IT敏捷性。面向服务的商务体系结构跟面向服务的IT体系结构很好的配合在一起。SOA (Service-Oriented Architecture)能够给一个企业带来IT敏捷性和商务敏捷性。.NET技术是基于SOA思想和原则设计的，并且采用了像XML和Web Services这些支持应用整合和系统互操作的开放标准。这样，采用.NET技术开发应用，能够带来灵活性和敏捷性。.NET是一个非常合适的技术平台来创建支持SOA体系结构的IT系统并通过这些系统的开发和部署运行达到IT和商务的敏捷性。

3。成功。GE的前主席Jack Welch曾经说过一句话，“在GE，我们只有两个竞争优势：第一，比竞争对手更快的洞悉更多有关客户的信息的能力；第二，比竞争对手更快的将这种理解转化为行动的能力。”最终，IT都是为业务服务的。敏捷带来商务上的成功。.NET可以帮您创建一个敏捷的系统，既容易去洞悉市场，作出战略上的调整，也容易将新的计划付之实行。

这些听上去像是在做市场宣传。但事实确是如此。其它的IT厂商也在谈论这些东西：XML, Web Services, SOA, 敏捷性，联通性，等等。他们可能会使用不同名词，但这些名词后面的含意应该都是非常相似的。

所以你可以发现一个有趣的现象，所有IT厂商都支持同样一组开放标准，即XML和Web Services，我们都认可企业应该做SOA，我们都认为敏捷性非常重要。那这些IT厂商之间有什么不同呢？不同之处就在各自的技术实现上。XML, Web Services, 和SOA只是技术规范和技术理念，需要采用一种技术平台才在应用系统中实现这些技术规范和技术理念。各个IT厂商的技术平台有很大的不同。

.NET就是微软的用来实现XML，Web Services, SOA和敏捷性的技术。

对技术人员，想真正了解什么是.NET，必须先了解.NET技术出现的原因和它想解决的问题，必须先了解为什么他们需要XML, Web Services 和 SOA。

技术人员一般将微软看成一个平台厂商。微软通过技术平台，而技术人员在这个技术平台之上创建应用系统。从这个角度，.NET也可以如下来定义：

.NET是微软的新一代技术平台，为敏捷商务构建互联互通的应用系统，这些系统是基于标准的，联通的，适应变化的，稳定的和高性能的。

从技术的角度，一个.NET应用是一个运行于.NET Framework之上的应用程序。（更精确的说，一个.NET应用是一个使用.NET Framework类库来编写，并运行于公共语言运行时 Common Language Runtime之上的应用程序。）如果一个应用程序跟.NET Framework无关，它就不能叫做.NET程序。比如，仅仅使用了XML并不就是.NET应用，仅仅使用SOAP SDK调用一个Web Service也不是.NET应用。

微软.NET技术包括哪些东西？核心的东西当然是.NET Framework。 Visual Studio.NET 2002和Visual Studio.NET 2003是创建.NET应用的集成开发环境。Visual Studio For Office (VSTO)可以用来创建基于Word和Excel等文档的.NET解决方案。Web Service Extensions (WSE)是一组支持高级Web Services 标准的.NET类，这些标准包括WS-Security, WS-Policy, WS-ReliableMessaging 和 WS-Attachments，等等。Enterprise Library是一组支持企业级.NET应用程序开发的可重用的应用程序模块，它提供了应用程序开发中需要解决的共性的问题，比如配置管理，数据访问，异常处理，日志管理，等等。

.NET仅仅是跟Web Services相关吗？当然不是。它是微软的新一代技术平台，你可以在这个平台上面创建任何类型的应用系统：传统的Windows桌面应用,Web应用,Office 应用，移动应用，智能设备应用，等等。在一个Pocket PC (Phone Edition)上面，你可以使用.NET Compact Framework （.NET Framework在设备上的一个简化版）创建一个.NET客户端应用程序。或者你可以开发一个.NET移动Web应用，部署在一个IIS Web 服务器上面，然后用户就可以使用Pocket PC (Phone Edition)上面的Internet Explorer 浏览器去访问这个网站，这个网站的页面都是专门为这种设备的小屏幕设计的。

最后总结以下.NET是微软打造的另外的一个品派,或是开发工具平台,在这个平台有3个特点,在这个平台上有优化或则说升级后的工具,如vb.net 是vb 的升级,c#.NET 是前一个版本C#的升级版本.单位招聘.NET,就是说,你会使用.NET里面的任何一种工具就可以了,既然是一个平台,就可以将不同的开发工具融合成一个公司需要的大软件.

Q5: 请教高手，如何用vb实现“使用日志”？

很多种方法vb.net日志管理，最常用vb.net日志管理的一是用文本文件或数据库记录vb.net日志管理，二是调用API函数直接写入系统日志或应用程序日志

关于vb.net日志管理和vba 日志的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。