[es] - Upomoc oko VBScripta ...

YAX
Switzerland

Član broj: 1311
Poruke: 1
*.dclient.hispeed.ch

ICQ: 89198203
Sajt: www.superdeluxe.ch

Profil

^{12.11.2001. u 21:27}

Kako da u sledecem vb-scriptu umesto mdb baze, koristim dbf (dBase III) bazu ?? nikako bre da mi proradi. Imam problema da postavim connection !!! ali pojma nemam kako da to promenim ?!?
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!
'**************************************************************************

---------------------
YAX

^{12.11.2001. u 21:27}