Upomoc oko VBScripta ...

Upomoc oko VBScripta ... 12.11.2001. u 22:27 · pre 303 meseca #1

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!
'**************************************************************************

Potpis

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

Re: Upomoc oko VBScripta ... 21.12.2001. u 13:06 · pre 302 meseca #2

db = ( "reservation/" & "bp.mdb")
cs = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db & ";"

******************************************************

Treba samo da stavish string za dBase III

Ne znam koji je ejr nisam radios a tim ali pokusaj da nadjesh na googl-e

Potpis

Kaurin Andrej

Re: Upomoc oko VBScripta ... 20.03.2006. u 23:29 · pre 251 mesec #3

Ne znam koji je ejr nisam radios a tim ali pokusaj da nadjesh na googl-e

Re: Upomoc oko VBScripta ... 21.03.2006. u 00:10 · pre 251 mesec #4

Nemozes koristiti driver access za dbf.

Code:

Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\baza.dbf;

Forum kao aplikacija na telefonu

Srodne teme