[ASP/Vbscript] *.dbf converteren naar text

[DarkShadow]

Hallo, ik wil met een vbscript dat elke dag moet gaan draaien, bepaalde informatie uit tekst bestanden halen en in mn database stoppen (sql server 2000). Nu lukt dat al voor bepaalde tekst bestanden, ik moet ook echter uit enkele *dbf bestanden elke dag informatie halen en deze toevoegen aan de database. Als ik deze dbf bestanden open met kladblok is het echter nogal een chaos (met excel werkt het wel). Nu wil ik dat ze automatisch (dus niet handmatig) geconverteerd worden naar tekst bestanden, en dan het liefst komma gescheiden ofzo...

Ik weet echter niet of dit kan lukken met een script, en misschien is het dan ook direct wel mogelijk om ze gewoon in te lezen met vbscript en direct de info er uit te halen.

Ik kan er echter maar weinig over vinden, dus hoop ik dat jullie me wat verder kunnen helpen

[Gert]

D'r zit gewoon een DBase driver in windows dus je kan die dbf bestanden net zo aanspreken als access, alleen een andere driver gebruiken in je connectie string.

[NMe]

Hier heb je vast wel wat aan, eerste hit op Google:
http://www.pstruh.cz/tips/detpg_asp-dbf-database.htm

[ Voor 28% gewijzigd door NMe op 10-06-2004 10:56 ]

[DarkShadow]

ah, bedankt! Weet je ook hoe die driver heet?

[NMe]

DBase, zoals Gert al zei. Zie mijn url.

[DarkShadow]

hmm tnx, ik kom er zo wel uit

[DarkShadow]

hmm, ik heb dit, de eerste connectie werkte zo niet, dus heb ik die maar ff achter commentaar gezet, en de tweede gebruikt

code:

'Conn.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & _
'           "DriverID=277;" & _
'           "Dbq=\"

'rs.Open "Select tad3 From VE030101.DBF", Conn, , ,adCmdText

'create the ADO Connection and Recordset objects
set m_cn = Server.CreateObject("ADODB.Connection")
set m_rs = Server.CreateObject("ADODB.Recordset")

'connect to the database and open a recordset using client-side cursor engine so
'that the chart can do sorts to determine series and categories
m_cn.Open "provider=microsoft.jet.oledb.4.0;data source="./VE030101.DBF" & "Extended Properties=""DBASE IV;"";" 
sSQL = "Select tad3 FROM VE030101.DBF"  

set m_rs.ActiveConnection = m_cn

m_rs.CursorLocation = 3 'adUseClient
m_rs.Open sSQL, m_cn, 3 'adOpenStatic

response.Write rs("tad3")

Maar hij geeft als foutmelding, id verwacht...

[ Voor 18% gewijzigd door DarkShadow op 10-06-2004 11:35 ]

[Verwijderd]

DarkShadow schreef op 10 juni 2004 @ 11:31:
...
Maar hij geeft als foutmelding, id verwacht...

op welke regel?

[bigbeng]

Heet je tabel ook VE030101.DBF? Dat lijkt me licht onwaarschijnlijk. Je verbinding lukt blijkbaar, ik wist niet dat JET ook DBase ondersteunde.

[DarkShadow]

Het werkt al, lag aan de regen van mn connectie (m_cn), Jet ondersteund idd vrij veel, ook meer dan ik dacht ...

Ik open elke keer een nieuw bestand met die naam, en dus moet ik dat ook in de from neerzetten, zou niet weten wat anders... anyways, het werkt...

Wat wel vaag is dat ik elke keer een nieuwe connectie per query moet aanmaken, dat moet toch gewoon met meerdere recordsets in een connectie lukken?