Hallo,
stehe vor einem ziemlich blöden Problem:
Habe eine Anwendung programmiert, die Daten transformiert und in eine (neue)
Access-
DB (.mdb) ausschreibt.
Das klappt soweit. Problem ist nur, dass ich die Datenbank mittels
Delphi-Quellcode:
AccessApp := CreateOleObject('
Access.Application');
AccessApp.NewCurrentDatabase(pathHoEr);
erstellen lasse und mit
Access 2003/ Jet 4.0 eine Datenbank für
Access 2003 erstellt wird.
Die neue
DB muss aber in ein (veraltetes) Programm (, dass ich nicht geschrieben habe!!!!) eingelesen werden, welches nur
Access 2.0 unterstützt.
Gibt es eine Möglichkeit eine solch antiquierte
DB zu erstellen oder die neue Datenbank (abwärts) zu konvertieren?
(vielleicht mit einer Jet 2.0 Version - wenn ja, wo bekommt man diese - bei Microsoft ist Jet erst ab 3.x erhältlich.)
Freue mich auf eure Vorschläge!
Gruss
thejct
PS: für VisualBasic stellt Microsoft offenbar ein Script zur Verfügung eine Access2.0-
DB zu erstellen
Delphi-Quellcode:
Public Function CreateDB()
Dim newdb
As DAO.DATABASE, mydb
As DAO.DATABASE
Dim dbname
As String
Dim tdf
As DAO.TableDef
'
Set the path and name for the new database.
dbname = "C:\Program Files\Microsoft Office" _
& "\Office\Samples\Newdb.mdb"
'Create the new 2.0 database
and close newdb.
Set newdb = DBEngine.Workspaces(0).CreateDatabase(dbname, _
dbLangGeneral, dbVersion20)
newdb.Close
'
Export all non-system tables to the version 2.0 database.
Set mydb = CurrentDb()
For Each tdf In mydb.TableDefs
If (tdf.Attributes And dbSystemObject) = 0 Then
DoCmd.TransferDatabase acExport, "Microsoft Access", _
dbname, acTable, tdf.Name, tdf.Name
End If
Next tdf
End Function
Bekommt man das vielleicht in Delphi eingebunden??