MDziubek Posted March 27, 2012 Share Posted March 27, 2012 Based on: http://support.microsoft.com/kb/198755/EN-USWorks with mdb and accdb file:Local $var = FileOpenDialog("Choose DB File", @WorkingDir & "\", "Access 2000-2003 (*.mdb)|Access 2007 (*.accdb)", 1 + 4) If not @error Then $var = StringReplace($var, "|", @CRLF) $cn = ObjCreate("ADODB.Connection") If StringRight($var,3)="mdb" Then $cn.Provider = "Microsoft.Jet.OLEDB.4.0" Else $cn.Provider = "Microsoft.ACE.OLEDB.12.0" EndIf $cn.Open($var) $rs = $cn.OpenSchema(-1,Default,"{947bb102-5d43-11d1-bdbf-00c04fb92675}") $file=FileOpen(@ScriptDir & "\WhoOnLine.txt", 2) FileWriteLine($file,"Users in:" & $var) FileWriteLine($file,"-----------------------------------------------------------------------") FileWriteLine($file,$rs.Fields(0).Name & @TAB & $rs.Fields(1).Name & @TAB & $rs.Fields(2).Name & @TAB & $rs.Fields(3).Name) While Not $rs.EOF FileWrite($file,$rs.Fields(0).value & @TAB) FileWrite($file,$rs.Fields(1).value & @TAB) FileWrite($file,$rs.Fields(2).value & @TAB) FileWrite($file,$rs.Fields(3).value) FileWrite($file,@CRLF) $rs.MoveNext Wend FileClose($file) run("notepad.exe """ & @ScriptDir & "\WhoOnLine.txt") $rs.close $cn.close EndIf Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now