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

Upomoc oko VBScripta ...

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

[ Pregleda: 3605 | 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 213 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 211 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 160 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 160 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: 3605 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

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