Office中国论坛/Access中国论坛

标题: 记录此文件被访问的时间、次数???? [打印本页]

作者: dhyan9 时间: 2005-8-12 16:26
标题: 记录此文件被访问的时间、次数????
在局域网上共享一个mdb(mde)文件,如何记录此文件被访问的时间、次数。（如果能记录是哪台机子访问的就更好了）

不知有何方神圣能给予解答，感谢！[em06]

作者: chajiangliang 时间: 2005-8-12 16:57
Sub uselist()

Dim conn As New ADODB.Connection

Dim rst As ADODB.Recordset

On Error GoTo except:

conn.Open "file name=I:\系統\cnn.udl", , "wuzwabc9abz" '打開目的數據庫連接, 此為利用UDL文件打開﹐也開用正常的方式﹐提供connectionstring

Set rst = conn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

Do Until rst.EOF

userlist = userlist & "net send " & rst!COMPUTER_NAME & content & vbCrLf , rst!LOGIN_NAME, rst!CONNECTED, rst!SUSPECT_STATE

rst.MoveNext

Loop

Exit sub

except:

MsgBox Err.Description

end sub

可將此放到一個Timer 事件下﹐并將查詢結果整理后存到一個表中。關鍵技朮數與上條記錄做比較﹐就可知用戶登陸﹐登出情況

[此贴子已经被作者于2005-8-12 9:00:34编辑过]

作者: wu8313 时间: 2005-8-13 02:07
这个问题有代表性，要是有比较完整的代码和实例就太好了，我想很多人都是期待的喽！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)