''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Script : Datenbankzugriff - Ausgabe in HTML-Datei '
' File : 06_04_ADODB_DatenbankZugriff.vbs '
' Date : 2007-03-22 - Last modified: 2007-04-23 '
' '
' Michael Puff - http://www.michael-puff.de '
' '
' Zugriff auf eine Datenbank mit ADODB '
' '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
const CAPTION = "06_04_ADODB_DBZugriff.vbs"
const CONSTR = "driver=MySQL ODBC 3.51 Driver;server=10.17.171.200;uid=root;pwd=;database=Benutzerverwaltung2;option=NUM"
const OUTFOLDER = "c:\mp_work\"
const FILENAME = "test.html"
Set adoDataCom = CreateObject("ADODB.Connection")
private sub HTMLHeader(ts, Title)
ts.WriteLine ""
ts.WriteLine ""
ts.WriteLine "" & Title & ""
ts.WriteLine ""
ts.WriteLine ""
ts.WriteLine ""
ts.WriteLine "" & Title & "
"
end sub
private sub HTMLFooter(ts)
ts.WriteLine ""
ts.WriteLine ""
end sub
private sub TableHeader(ts)
ts.WriteLine ""
end sub
private sub TableFooter(ts)
ts.WriteLine "
"
end sub
private sub TableInsertLine(ts, Line)
ts.WriteLine "" & Line & "
"
end sub
' Datenbankverbindung aufbauen
adoDataCom.open(CONSTR)
' SQL Statement
Set rs = adoDataCom.execute("SELECT * FROM benutzer")
' Datei erstellen und HTML-Header schreiben
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.CreateTextFile(OUTFOLDER + FILENAME)
HtmlHeader ts, CAPTION
Tableheader ts
' Iterieren durch die Ergebnismenge
While not rs.eof
s = ""
For Each field in rs.fields
s = s & "" & field & " | "
Next
TableInsertLine ts, s
rs.moveNext
Wend
TableFooter ts
rs.Close
adoDataCom.Close
' HTML-Footer schreiben und datei schliessen
HTMLFooter ts
ts.Close