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