ajd' pogledajte please !!
Code:
'**************************************************************************
'File: reservationcode1.vbs
'Autor: Radovic Milos
'Zweck: Reservationcode aus Datenbank in *.txt schreiben
'**************************************************************************
'
' mdb
'
Dim cn 'ADODB.Connection
Dim rs 'ADODB.Recordset
Dim sSQL
'
' txt
'
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
'
' start Einlesen mdb
'
Set cn = CreateObject("ADOdb.Connection")
db = ( "reservation/" & "bp.mdb")
cs = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db & ";"
cn.Open cs
Set rs = CreateObject( "ADOdb.Recordset")
rs.ActiveConnection = cn
sSQL = ""
sSQL = sSQL & "SELECT * FROM [1]"
rs.Source = sSQL
rs.Open
sss = ""
do while not rs.eof
sss = sss & _
rs.Fields("Name") & "|" & _
rs.Fields("Kuerzel") & "|" & _
rs.Fields("Strasse") & "|" & _
rs.Fields("Kontinent") & "|" & _
rs.Fields("Land") & "|" & _
rs.Fields("IDD") & "|" & _
rs.Fields("1") & "|" & _
rs.Fields("2") & "|" & _
rs.Fields("3") & "|" & _
rs.Fields("4") & "|" & _
rs.Fields("5") & "|" & _
rs.Fields("6") & "|" & _
rs.Fields("7") & "|" & _
rs.Fields("8") & "|" & _
rs.Fields("9") & "|" & _
rs.Fields("10") & "|" & _
rs.Fields("11") & "|" & _
rs.Fields("12") & "|" & _
rs.Fields("13") & "|" & _
rs.Fields("14") & "|" & _
rs.Fields("15") & "|" & _
rs.Fields("16") & "|" & _
rs.Fields("17") & "|" & _
rs.Fields("18") & "|" & _
rs.Fields("19") & "|" & _
rs.Fields("20") & "|" & _
rs.Fields("21") & "|" & _
rs.Fields("22") & "|" & _
rs.Fields("23") & "|" & _
rs.Fields("24") & "|" & _
rs.Fields("25") & "|" & _
rs.Fields("26") & "|" & _
rs.Fields("27") & "|" & _
rs.Fields("28") & "|" & _
rs.Fields("29") & "|" & _
rs.Fields("30") & "|" & _
rs.Fields("31") & vbcrlf
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
'
' ende mdb
'
'
' txt schreiben
'
Set hdr = fso.OpenTextFile (("reservation\1.txt") ,8 , True)
hdr.Write( sss )
'
' ende txt
'
hdr.close
Set hdr = nothing
Set fso = nothing
MsgBox "Schreiben der Datei" & vbcrlf & "war erfolgreich!", vbInformation, "Reservationcode1"
WScript.Quit()
'**************************************************************************
'Bemerkung: aus .asp | YO!
'**************************************************************************
'**************************************************************************
'File: reservationcode1.vbs
'Autor: Radovic Milos
'Zweck: Reservationcode aus Datenbank in *.txt schreiben
'**************************************************************************
'
' mdb
'
Dim cn 'ADODB.Connection
Dim rs 'ADODB.Recordset
Dim sSQL
'
' txt
'
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
'
' start Einlesen mdb
'
Set cn = CreateObject("ADOdb.Connection")
db = ( "reservation/" & "bp.mdb")
cs = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db & ";"
cn.Open cs
Set rs = CreateObject( "ADOdb.Recordset")
rs.ActiveConnection = cn
sSQL = ""
sSQL = sSQL & "SELECT * FROM [1]"
rs.Source = sSQL
rs.Open
sss = ""
do while not rs.eof
sss = sss & _
rs.Fields("Name") & "|" & _
rs.Fields("Kuerzel") & "|" & _
rs.Fields("Strasse") & "|" & _
rs.Fields("Kontinent") & "|" & _
rs.Fields("Land") & "|" & _
rs.Fields("IDD") & "|" & _
rs.Fields("1") & "|" & _
rs.Fields("2") & "|" & _
rs.Fields("3") & "|" & _
rs.Fields("4") & "|" & _
rs.Fields("5") & "|" & _
rs.Fields("6") & "|" & _
rs.Fields("7") & "|" & _
rs.Fields("8") & "|" & _
rs.Fields("9") & "|" & _
rs.Fields("10") & "|" & _
rs.Fields("11") & "|" & _
rs.Fields("12") & "|" & _
rs.Fields("13") & "|" & _
rs.Fields("14") & "|" & _
rs.Fields("15") & "|" & _
rs.Fields("16") & "|" & _
rs.Fields("17") & "|" & _
rs.Fields("18") & "|" & _
rs.Fields("19") & "|" & _
rs.Fields("20") & "|" & _
rs.Fields("21") & "|" & _
rs.Fields("22") & "|" & _
rs.Fields("23") & "|" & _
rs.Fields("24") & "|" & _
rs.Fields("25") & "|" & _
rs.Fields("26") & "|" & _
rs.Fields("27") & "|" & _
rs.Fields("28") & "|" & _
rs.Fields("29") & "|" & _
rs.Fields("30") & "|" & _
rs.Fields("31") & vbcrlf
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
'
' ende mdb
'
'
' txt schreiben
'
Set hdr = fso.OpenTextFile (("reservation\1.txt") ,8 , True)
hdr.Write( sss )
'
' ende txt
'
hdr.close
Set hdr = nothing
Set fso = nothing
MsgBox "Schreiben der Datei" & vbcrlf & "war erfolgreich!", vbInformation, "Reservationcode1"
WScript.Quit()
'**************************************************************************
'Bemerkung: aus .asp | YO!
'**************************************************************************
---------------------
YAX
YAX