13518219792
用C#写的。日志文件可保存在数据库中也可保存为.TXT文件，只要能实现就行。请各位灌水的大哥就不要浪费时间了，谢谢。补充：比如我在软件中新加了一条记录，日志文件就应该记录下这些信息：操作员、插入记录编号（名称）、操作时间请帮忙来段对日志写、读、删的操作代码。满意答案 热心问友 2009-09-17做一个记录日志事件的类EventLogHelper 定义一个对外的接口SaveLog(string 日志标题,string 日志内容,int 操作人ID）如何保存.txt文本就很简单了 用File.WriteAllText 在你希望保存日志的地方 调用这个事件就行了 补充： 或者使用触发器 在表变化时保存日志 也不难 追问： 那样只能记录出对表的操作，不能记录用户对软件的操作 回答： 那就做一个日志类 我公司就是采用这方法 类里封装好以后 使用界面只管调用 追问： 能把代码借我看一下吗，每一次做日志，好多都好陌生。 回答： 给你看也没意义 业务需求不一样 日志需要保存的也不一样思路很简单啊 我用语言描述下日志类的写法嘛 public static LogHelper{ public static SaveLog(操作员,插入记录编号（名称）,操作内容) { System.IO.File.WriteAllText("日志文件的路径","["+DateTime.Now.ToShortDateString()+"]"+操作员+操作内容+.....写上你所有想记录的内容) }}然后在你希望保存日志的地方插上这个函数的调用，如保存时：LogHelper.SaveLog("小张","。。。记录号","新增记录"); 追问： 这个文件是保存在数据库中的吗？ 回答： 保存到本地文件，如果想保存到数据库 就把System.IO.File.WriteAllText这地方替换成保存数据库里的语句噻 追问： 谢谢了哈，我先试下 其他回答(1)零Q币 10级2009-09-17示例代码就难说了要记录软件的操作日志，必须在每个实现功能的方法里面都加上相应的记录代码比如登陆验证那里，在登录成功之后，可以把用户名，登陆时间，登陆IP之类的信息保存起来，这个就是作为登陆的操作日志
创新互联公司长期为成百上千客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为冠县企业提供专业的做网站、成都网站制作，冠县网站改版等技术服务。拥有十多年丰富建站经验和众多成功案例,为您定制开发。
试了好久，终于试出来了，把代码发给你分享：
首先，我建了个窗体，放了一个按扭控件，把打开连接EXECL的代码都放在该按扭的click事件里了，你可以根据需要改动。
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
"Data Source=E:\myexl.xls;" _
"Extended Properties=Excel 8.0;"
’这里面，E：\myexl.xls换成你自己的excel文件完整路径
Dim objConn As New OleDbConnection(sConnectionString)
objConn.Open()
MsgBox("成功打开连接") ’这句我用来测试能不能连接的，
’下面将建立查询命令
Dim objCmdSelect As New OleDbCommand("SELECT * FROM [11$] where 姓名='李三'", objConn)
'11j是我测试用的sheet名，你换成你自己的，注意格式
'程序默认Excel表的第一行内容为字段名，你换成你自己的内容，并建
'立查询条件
'下面将根据查询条件打开连接。
Dim objAdapter1 As New OleDbDataAdapter()
objAdapter1.SelectCommand = objCmdSelect
'下面将打开的数据放在dataset中
Dim objDataset1 As New DataSet()
objAdapter1.Fill(objDataset1, "XLData")
’下面将数据传给DataGrid1控件
DataGrid1.DataSource = objDataset1.Tables(0).DefaultView
' Clean up objects.
objConn.Close()
End Sub
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
很多种方法，最常用的一是用文本文件或数据库记录，二是调用API函数直接写入系统日志或应用程序日志
