Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Upomoc oko VBScripta ...

[es] :: Visual Basic 6 :: Upomoc oko VBScripta ...

[ Pregleda: 4151 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

YAX
Switzerland

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

ICQ: 89198203
Sajt: www.superdeluxe.ch


Profil

icon Upomoc oko VBScripta ...12.11.2001. u 21:27 - pre 272 meseci
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
 
Odgovor na temu

kaan
Kaurin Andrej
Telerik, Bulgaria
Banjaluka

Član broj: 1741
Poruke: 109
*.dialup.blic.net

ICQ: 47193919


Profil

icon Re: Upomoc oko VBScripta ...21.12.2001. u 12:06 - pre 271 meseci
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
Kaurin Andrej
 
Odgovor na temu

Zoran Misic

Član broj: 76615
Poruke: 10
*.dialup.neobee.net.



Profil

icon Re: Upomoc oko VBScripta ...20.03.2006. u 22:29 - pre 219 meseci
Ne znam koji je ejr nisam radios a tim ali pokusaj da nadjesh na googl-e
 
Odgovor na temu

gio1000
Italia

Član broj: 1159
Poruke: 122
*.pool8252.interbusiness.it.



Profil

icon Re: Upomoc oko VBScripta ...20.03.2006. u 23:10 - pre 219 meseci
Nemozes koristiti driver access za dbf.
Code:

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

 
Odgovor na temu

[es] :: Visual Basic 6 :: Upomoc oko VBScripta ...

[ Pregleda: 4151 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.