dbf öffnen

isensa · 19. August 2015, 13:13

Hallo zusammen
Wie kann ich eine dbf Datei, die mehr als 8 Zeichen (123456789.dbf) hat, öffnen?

VB.NET-Quellcode

Dim LinkConn As String = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & sPath & "\; Extended Properties = dBase IV; User ID=admin; Password="
Dim con As OleDbConnection = New OleDbConnection()
con.ConnectionString = LinkConn
con.Open()
Dim adapater As OleDbDataAdapter = New OleDbDataAdapter(dbfquery & sFile, con)
adapater.Fill(dbfds)
con.Close()

Schamash · 19. August 2015, 13:24

Wie heist denn die Fehlermeldung?

Ich hab jetzt keine dBase Datenbank, hab es aber gerade mit einer .mdb getestet, de, ConString ist scheinbar egal wieviele Zeichen der Name der DB hat.

isensa · 19. August 2015, 13:40

Fehlermeldung:
Error while conneting to database
Das Microsoft Jet-Datenbankmodul konnte das Objekt '123456789' nicht finden.

Mit 12345678.dbf läuft die Datenbank.

ErfinderDesRades · 19. August 2015, 13:46

was macht eiglich der Backslash da im Connectionstring?

isensa · 19. August 2015, 13:57

Hab den vergessen zu löschen. Gibt aber keine Veränderung.

Schamash · 19. August 2015, 14:18

isensa schrieb:

Das Microsoft Jet-Datenbankmodul konnte das Objekt '123456789' nicht finden.

Mit 12345678.dbf läuft die Datenbank.

Ist jetzt vielleicht doof aber, deine Datenbank heißt "123456789" oder "132456789.dbf" nicht das es sich einfach um einen Umbenennungsfehler handelt

isensa · 19. August 2015, 14:38

Ich mal folgendes getestet:

VB.NET-Quellcode

Dim LinkConn As String = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = F:\dat\test; Extended Properties = dBase IV; User ID=admin; Password="
Dim adapater As OleDbDataAdapter = New OleDbDataAdapter("Select * from 12345678", con) 'Datenbank läuft
Dim adapater As OleDbDataAdapter = New OleDbDataAdapter("Select * from 123456789", con) 'Datenbank läuft nicht

Schamash · 19. August 2015, 14:43

OK in dem Fall ist 123456789 aber keine Datei sondern eine Tabelle in der Datenbank

isensa · 19. August 2015, 15:41

Dateiname ist 123456789.dbf und wird vermutlich als Tabelle übernommen.
Bei der Select-Abfragung könnte ich auch "Select * from 12345678.dbf" schreiben.
Fehlermeldung ist genau gleich und 12345678.dbf geht ohne Probleme.

Schamash · 19. August 2015, 15:43

OK, dann bin ich raus. Das schein ein Problem bei dBase zu sein. Damit kenn ich mich nicht aus

Mono · 19. August 2015, 16:03

Ich glaube der Ole Treiber kommt nur mit maximal 8 Zeichen langen Dateinamen zurecht. Vll geht es mit odbc:

Connecting to a dBase database (ODBC):

Visual Basic-Quellcode

cn.Open "driver={Microsoft dBase Driver (*.dbf)};" & _
"driverid=277;dbq=c:\foldername"
' specify the filename when you open the recordset
rs.Open "select * from tablename.dbf", cn, , , adCmdText

isensa · 19. August 2015, 17:40

odbc habe ich bis jetzt noch nie benützt.
Hast du ev. ein Beispiel?

simpelSoft · 19. August 2015, 19:32

Die wichtigste Frage ist doch - willst Du ernsthaft mit dem alten Rotz arbeiten oder brauchst Du nur die Daten?
In letzterem Fall einfach in ein modernes Format Konvertieren und gut ist. Z.B. sogar online - HIER.

isensa · 20. August 2015, 10:36

Momentan haben wir noch dieses Format und für die Weiterverarbeiten lese ich nur die Daten.
Leider habe ich bis jetzt noch keinen Erfolg mit den langen Dateinamen.

simpelSoft · 20. August 2015, 10:40

isensa schrieb:

und für die Weiterverarbeiten lese ich nur die Daten

Na dann ist doch alles gut!
Konvertiere die dBase-Datei nach SQL und stopfe die Daten in eine vernünftige Datenbank, bevor Du irgendeine Software für Dein DBF erfindest.

petaod · 20. August 2015, 11:24

isensa schrieb:

Leider habe ich bis jetzt noch keinen Erfolg mit den langen Dateinamen.

Hast du mal versucht den Short File Name zu verwenden?

Mono · 20. August 2015, 11:29

Ja genau. Der Treiber unterstützt nur 8.3 Filenamen. Damit müsste es also gehen.

Vollzitat entfernt. ~Trade

isensa · 20. August 2015, 11:41

Fehlermeldung:
Syntaxfehler in From-Klausel

VB.NET-Quellcode

Dim LinkConn As String = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = F:\dat\test; Extended Properties = dBase IV; User ID=admin; Password="
Dim adapater As OleDbDataAdapter = New OleDbDataAdapter("Select * from 123456~1", con) 'Datenbank läuft nicht
Dim adapater As OleDbDataAdapter = New OleDbDataAdapter("Select * from 123456~1.dbf", con) 'Datenbank läuft nicht

simpelSoft · 20. August 2015, 12:03

isensa schrieb:

Fehlermeldung

Na dann viel Spaß beim Tüfteln.
Man kann sich das Leben auch unnötig schwer machen

..

isensa · 20. August 2015, 23:45

Jetzt geht's.
Ich habe den "Microsoft OLE DB Provider for Visual FoxPro 9.0" installiert.

VB.NET-Quellcode

Dim LinkConn As String = "Provider=vfpoledb;Data Source=F:\test;Collating Sequence=machine;"
Dim adapater As OleDbDataAdapter = New OleDbDataAdapter("Select * from 123456789.dbf", con)

dbf öffnen

dbf öffnen

VB.NET-Quellcode

isensa schrieb:

VB.NET-Quellcode

Visual Basic-Quellcode

isensa schrieb:

isensa schrieb:

VB.NET-Quellcode

isensa schrieb:

VB.NET-Quellcode

Ähnliche Themen

6 Benutzer haben hier geschrieben