1180
社区成员
- 主页
怎样用vb编写自动加入日志文件到数据库（可以的话，分全部给你！）
各位大虾好！
有这么一个小问题，为了操作管理，我们一般在操作时记录操作者的操作日志，我想问，怎样用Vb编写一个自动添加日志文件到数据库中，日志文件中包括操作者的操作信息。望赐教！不胜感激！最好有例子（含源代码）！！
其中，日志文件是指向数据库写入记录时间、用户登陆名称、操作等等
有这么一个小问题，为了操作管理，我们一般在操作时记录操作者的操作日志，我想问，怎样用Vb编写一个自动添加日志文件到数据库中，日志文件中包括操作者的操作信息。望赐教！不胜感激！最好有例子（含源代码）！！
其中，日志文件是指向数据库写入记录时间、用户登陆名称、操作等等
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
no_com 2002-05-11
Sub 记录日志(业务描述 As String, 库名 As String, 关联号 As String, 备注 As String)
Dim cnttt As New ADODB.Connection
Dim cmttt As New ADODB.Command
Dim rsttt As New ADODB.Recordset
cnttt.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=zqh1;Initial Catalog=clgl;Data Source=" & readstart
cnttt.Open
cmttt.ActiveConnection = cnttt
rsttt.CursorLocation = adUseClient
rsttt.Open "set dateformat ymd", cnttt, 3, 1
Dim a As New mydategoto
Dim sj
sj = a.sql日期
ttime = a.显示时间
Set a = Nothing
cmttt.CommandText = "insert into 系统日志 values(" & 取回最大ID号("系统日志") + 1 & ",'" & sj & "','" & ttime & "','" & user.username & "','" & 业务描述 & "','" & 库名 & "','" & 关联号 & "','" & 备注 & " ')"
cmttt.Execute
cnttt.Close
Dim cnttt As New ADODB.Connection
Dim cmttt As New ADODB.Command
Dim rsttt As New ADODB.Recordset
cnttt.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=zqh1;Initial Catalog=clgl;Data Source=" & readstart
cnttt.Open
cmttt.ActiveConnection = cnttt
rsttt.CursorLocation = adUseClient
rsttt.Open "set dateformat ymd", cnttt, 3, 1
Dim a As New mydategoto
Dim sj
sj = a.sql日期
ttime = a.显示时间
Set a = Nothing
cmttt.CommandText = "insert into 系统日志 values(" & 取回最大ID号("系统日志") + 1 & ",'" & sj & "','" & ttime & "','" & user.username & "','" & 业务描述 & "','" & 库名 & "','" & 关联号 & "','" & 备注 & " ')"
cmttt.Execute
cnttt.Close
feng225 2002-05-11
指的是对文件进行的增.删，改等
急用，多谢
急用，多谢
lvjack 2002-05-11
操作信息是指什么，文件操作？打了什么字？能不能说的再清楚点
