Access accdb Dateien erstellen oder befüllen

[Wolfgang Ciriack]

Hallo,
hat schon jemand mal accdb-Dateien mit XBase++ befüllt oder neu erstellt ?
Benötige das als Exportformat.

[georg]

Hallo, Wolfgang -


derzeit lese ich eine Access-Datenbank aus unter Zuhilfenahme von SQLExpress und packe sie in eine SQLite-Tabelle.

Bisher hatte ich keine Situation, in der ich in eine neue Access-Datenbank exportieren musste. Wenn ich vor dieser Aufgabe stünde, würde ich entweder eine leere .mdb kopieren (via fcreate() etc.) und die Daten reinschreiben, oder als Alternative probieren, ob ich über OfficeAutomation eine neue .mdb erzeugen kann.

Vielleicht hilft Dir das ja weiter.

[brandelh]

Als ich MDBs einlesen musste, habe ich diese mit ODBC (SQLExpress) geöffnet und gelesen.
Warum sollte der umgekehrte Weg nicht gehen ?
Der ODBC Treiber von M$ ist unabhängig von der Accessversion.

[georg]

Hallo, Hubert -


die Frage ist vorranging nach dem Erstellen der Access-Datenbank, weniger nach dem Zugriff - so zumindest habe ich Wolfgangs Anfrage verstanden.

Und ganz so kompatibel ist das mit Access nicht. Wenn ich unter Office 2010 eine neue Access-Datenbank erstellen, dann wird das eine .accdb. Die habe ich mit SQLExpress nicht öffnen können.

[georg]

Nachtrag: es gibt wohl zwei Access-Treiber, einer der mit (*.mdb), und einer der mit (*.mdb, *.accdb) daherkommt. Der erste kann "nur" .mdb, während der zweite beide Dateitypen öffnen kann.

[Tom]

Jedenfalls hält sich Microsoft sehr bedeckt, was die genaue technische Struktur von Access-Datenbanken anbetrifft. Es gibt zwar ein paar Sites, auf denen hauptsächlich gemutmaßt wird, aber kein Datasheet, das die Strukturen exakt erläutert. Deshalb geht das nur über ODBC bzw. ADO.

[Wolfgang Ciriack]

Na dann wird es wohl das Beste sein, die vorhandene leere accdb-Datei zu nehmen und über sqlexpress zu befüllen, oder ?

[georg]

Hallo, Wolfgang -


der schnellste Weg ist es, eine leere .accdb zu haben, sie mittels fCreate() etc. zu klonen und dann zu befüllen. SQLExpress wäre da immer mein Werkzeug der Wahl, wobei auch OfficeAutomation in Frage kommt, aber wahrscheinlich aufwändiger vom Programmcode sein wird.

[Wolfgang Ciriack]

Hallo Georg,
da ich auch SQLExpress einsetze, werde ich das genau so versuchen.

[brandelh]

die Frage ist vorranging nach dem Erstellen der Access-Datenbank, weniger nach dem Zugriff - so zumindest habe ich Wolfgangs Anfrage verstanden.

Ich auch, aber mit ODBC und SQLExpress sollte ein CREATE TABLE ... doch funktionieren.
Ich weiß jetzt nicht wie man die Datei selbst benennt, aber ... ich hatte ja geschrieben, dass ich dies noch nicht gemacht habe
Was ich schon gemacht habe waren DBFs nach MySQL und PostgreSQL zu exportieren, damals habe ich die DB mit der Struktur der DBF erzeugt plus ID als RecNo Ersatz.

Ich meine bei SQLExpress war sogar ein Beispiel mit einer MDB dabei.
Und außnahmsweise habe ich keine Zweifel, dass M$ seiner Access DB einen passenden ODBC Treiber spendiert hat

[georg]

Hallo, Hubert -


das Problem liegt einen Schritt vorher, "Erstellen der .accdb Datei". Das entspricht einem CREATE DATABASE, und MS Access-Zugriff via ODBC setzt eine existierende Datei voraus. Da liegt das Problem.

Sobald die .accdb Datei da ist, gibt es kein Problem.

[brandelh]

OK, jetzt sehe ich klarer

[brandelh]

Wenn es reicht eine leere zu nutzen, kann ich eine leere hier reinstellen ... falls jemand kein Access hat.
im ZIP sind MDB und ACCDB - mal sehen ob es funktioniert

[brandelh]

Ich habe mal in Pablos SQLexpress Forum nachgefragt, Boris meinte:

You can create an empty MDB daabase via ODBC administrator:

odbc administrator > system dsn > add > microsoft access driver >
finish > create database

Bei einem 64 Bit Windows 7 findet man allerdings unter system dsn keinen Access Treiber (zumindest wenn Access nicht installiert ist).
Im Internet steht dann dass man die Datei so aufrufen muss:

%systemdrive%\Windows\SysWoW64\Odbcad32.exe -

In der Computerverwaltung ist dieser Pfad eingetragen:

Code: Alles auswählen

%windir%\system32\odbcad32.exe

muss man das verstehen ?

PS: %systemdrive%\Windows\ und %windir%\ sind bei mir identisch, system32 und SysWow64 machen den Unterschied.

[georg]

Hallo, Hubert -


da sind wir wieder bei meiner Aussage: Das Erstellen eines leeren Access-Datenbank geht nicht über ODBC. Ob ich die leere Datenbank über den ODBC-Administrator erstelle (der bei den meisten meiner Kollegen übrigens gesperrt ist), oder ob ich es aus Access heraus vornehme, macht keinen Unterschied, denn so etwas sollte aus dem Programm heraus möglich sein (und wenn's über den Trick geht, eine leere Datei auf low level Ebene zu kopieren).

[brandelh]

Klar Georg, aber nicht jeder Xbase++ Entwickler hat automatisch ein funktionierendes Access zur Verfügung.
Ich habe zufällig eines im Büro ...

Daher fand ich die Info wie man sich selbst eine leere MDB / ACCDB erstellen kann schon interessant.
Nun müsste man sich das Teil nur noch als Binärresource im Programm hinterlegen und man könnte es einfach erstellen ohne zusätzliche Datei ...

[georg]

Hallo, Hubert -


das ist eine gute Idee.

Allerdings wäre es dann zu prüfen, ob es die entsprechenden Treiber ohne Office-Pakete gibt? Auf meinem "nackten" Windows 7 Pro ohne Office ist nämlich nur der SQL-Server Treiber drauf, und ich denke, dass ich letzt vergeblich nach einem MDAC-Paket bei Microsoft gesucht habe.

[brandelh]

Hallo Georg,

lies mal weiter oben was ich dort geschrieben habe

Die Treiber sind bei Windows 7 immer mit dabei und unter USER DNS bekommt man diese auch angeboten.
Das habe ich auf meinem Windows 7 Home Premium 64 Bit Rechner probiert, allerdings muss man für die SYSTEM DNS (Admin ...) wie oben beschreiben die richtige Verwaltungssoftware aufrufen !

Hier habe ich ein Beispiel wie man es machen könnte (in der ZIP ist alles komplett), hier hat es funktioniert.

in der ARC:

Code: Alles auswählen

USERDEF HBACCESSDB
  HBACCDB = FILE "LeereDB.accdb"
  HBMDB   = FILE "LeereDB.mdb"

in der PRG:

Code: Alles auswählen

#include "Gra.ch"
#include "Xbp.ch"
#include "Common.ch"
#include "Appevent.ch"

procedure main()
   local cFileNameMDB   := "Test.MDB"
   local cFileNameAccDB := "Test.accDB"
   local cBuffer        := ""
   local nLenMDB        := 102400 // Byte laut Explorer
   local nLenAccDB      := 499712 // Byte laut Explorer
   delete file (cFileNameMDB)
   delete file (cFileNameAccDB)
   cls
   ? "Programm erstellt ",cFileNameMDB
   ?
   cBuffer := LoadResource( "HBMDB",, "HBACCESSDB" )
   if len(cBuffer) # nLenMDB
      ? "Länge der MDB Resource entspricht nicht der Dateilänge !"
      ? "MDB-Datei: "+transform( nLenMDB, "999,999,999" )+" Byte"
      ? "Resource:  "+transform( len(cBuffer), "999,999,999" )+" Byte"
   else
      if 0 # Str2Disk(cFileNameMDB,cBuffer)
         msgbox("MDB konnte nicht erstellt werden !")
         quit
      endif
      ? "MDB erstellt:   "+cFileNameMDB
      ? "MDB-Datei:      "+transform( fSize(cFileNameMDB), "999,999,999" )+" Byte"
      ? "MDB-Vorlage:    "+transform( nLenMDB, "999,999,999" )+" Byte"
      ? "Resource:       "+transform( len(cBuffer), "999,999,999" )+" Byte"
   endif
   cBuffer := ""
   ?
   cBuffer := LoadResource( "HBACCDB",, "HBACCESSDB" )
   if len(cBuffer) # nLenAccDB
      ? "Länge der accDB Resource entspricht nicht der Dateilänge !"
      ? "MDB-Datei: "+transform( nLenAccDB, "999,999,999" )+" Byte"
      ? "Resource:  "+transform( len(cBuffer), "999,999,999" )+" Byte"
   else
      if 0 # Str2Disk(cFileNameAccDB,cBuffer)
         msgbox("accDB konnte nicht erstellt werden !")
         quit
      endif
      ? "accDB erstellt: "+cFileNameAccDB
      ? "accDB-Datei:    "+transform( fSize(cFileNameAccDB), "999,999,999" )+" Byte"
      ? "accDB-Vorlage:  "+transform( nLenAccDB, "999,999,999" )+" Byte"
      ? "Resource:       "+transform( len(cBuffer), "999,999,999" )+" Byte"
   endif
   cBuffer := ""
   ?
   ? "Ende in 20 Sekunden oder Tastendruck"
   ?
   inkey(20)


return

*---------------------------------------------------------------------------------------------
function Str2Disk(cFile,cTxt)             // memowrit() fügt ein chr(26) an die Datei an, was stört !
   local nResult, nHandle, nByte

   nResult := 0                           // wird schon alles gut gehen ...
   nHandle := FCreate(cFile)
   if nHandle = -1
      nResult := FError()
   else
      nByte := FWrite( nHandle, cTxt )
      if len(cTxt) # nByte
         nResult := FError()
      endif
   endif
   FClose(nHandle)
return nResult

[georg]

Hallo, Hubert -


auf einem System, auf dem Office 2010 installiert ist, wird als ODBC-Treiber für Access und Excel "ACEODBC.DLL" gelistet (Treiber-Reiter in Datenquellenverwaltung). Auf einem Rechner mit Windows 7 Pro 64bit befindet sich auf dem Rechner KEINE ACEODBC.DLL. Das spricht gegen Deine Vermutung.

Hast Du auf dem Rechner eventuell eine andere Software installiert, die den Treiber mitgebracht hat?

[brandelh]

Ich habe doch oben geschrieben, dass ich im Internet gesucht habe und dort wurde beschrieben,
dass das Paket in Windows 7 schon enthalten ist, aber eben hier liegt:

%windir%\SysWoW64\Odbcad32.exe ==> ACEODBC.DLL

und nein, meine Rechner zu Hause haben kein Access, nur Office for Home ...
hier einige Bilder von meinem neuen Windows 7 Bürorechner (Office 2010 ohne Access ist installiert), vielleicht wird es klarer:

Die normale Systemsteuerung / Verwaltung / ODBC Verwaltung:

DatenquellenOriginal.png (72.42 KiB) 9102 mal betrachtet

Und nun die, die auf 64 bit Systemen wirklich anzeigt was es gibt:

DatenquellenAdminRichtig.png (64.44 KiB) 9102 mal betrachtet

Hier nochmal ein kleines SQLexpress Programm:

Code: Alles auswählen

#include "sql.ch"
#include "sqlext.ch"
#define CRLF chr(13)+chr(10)
procedure main()
   local oConn, x:=0
   set alternate to ListDriver.txt
   set alternate on
   cls
   ? "Treiber:"
   ?
   oConn := SQLConnection():new()
   aeval(oConn:GetDrivers(),{|aDriver|qout(++x,aDriver)})
   wait
return

Und das ist das Ergebnis auf dem Windows 7 Rechner:

Code: Alles auswählen

Treiber:

         1 {SQL Server, UsageCount=1 SQLLevel=1 FileUsage=0 DriverODBCVer=03.50 ConnectFunctions=YYY APILevel=2 CPTimeout=60 }
         2 {Microsoft ODBC for Oracle, UsageCount=1 SQLLevel=1 FileUsage=0 DriverODBCVer=02.50 ConnectFunctions=YYY APILevel=1 CPTimeout=120 }
         3 {Microsoft Access Driver (*.mdb), UsageCount=1 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=2 FileExtns=*.mdb SQLLevel=0 }
         4 {Microsoft Access-Treiber (*.mdb), UsageCount=1 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=2 FileExtns=*.mdb SQLLevel=0 }
         5 {Driver do Microsoft Access (*.mdb), UsageCount=1 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=2 FileExtns=*.mdb SQLLevel=0 }
         6 {Microsoft dBase Driver (*.dbf), UsageCount=1 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.dbf,*.ndx,*.mdx SQLLevel=0 }
         7 {Microsoft dBase-Treiber (*.dbf), UsageCount=1 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.dbf,*.ndx,*.mdx SQLLevel=0 }
         8 {Driver do Microsoft dBase (*.dbf), UsageCount=1 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.dbf,*.ndx,*.mdx SQLLevel=0 }
         9 {Microsoft Excel Driver (*.xls), UsageCount=1 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.xls SQLLevel=0 }
        10 {Microsoft Excel-Treiber (*.xls), UsageCount=1 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.xls SQLLevel=0 }
        11 {Driver do Microsoft Excel(*.xls), UsageCount=1 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.xls SQLLevel=0 }
        12 {Microsoft Paradox Driver (*.db ), UsageCount=1 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.db SQLLevel=0 }
        13 {Microsoft Paradox-Treiber (*.db ), UsageCount=1 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.db SQLLevel=0 }
        14 {Driver do Microsoft Paradox (*.db ), UsageCount=1 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.db SQLLevel=0 }
        15 {Microsoft Text Driver (*.txt; *.csv), UsageCount=1 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.,*.asc,*.csv,*.tab,*.txt,*.csv SQLLevel=0 }
        16 {Microsoft Text-Treiber (*.txt; *.csv), UsageCount=1 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.,*.asc,*.csv,*.tab,*.txt,*.csv SQLLevel=0 }
        17 {Driver da Microsoft para arquivos texto (*.txt; *.csv), UsageCount=1 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.,*.asc,*.csv,*.tab,*.txt,*.csv SQLLevel=0 }
        18 {Microsoft Visual FoxPro Driver, UsageCount=1 APILevel=0 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.dbf,*.cdx,*.idx,*.fpt SQLLevel=0 }
        19 {Microsoft FoxPro VFP Driver (*.dbf), UsageCount=1 APILevel=0 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.dbf,*.cdx,*.idx,*.fpt SQLLevel=0 }
        20 {Microsoft dBase VFP Driver (*.dbf), UsageCount=1 APILevel=0 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.dbf,*.cdx,*.idx,*.fpt SQLLevel=0 }
        21 {Microsoft Visual FoxPro-Treiber, UsageCount=1 APILevel=0 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.dbf,*.cdx,*.idx,*.fpt SQLLevel=0 }
        22 {Driver para o Microsoft Visual FoxPro, UsageCount=1 APILevel=0 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=1 FileExtns=*.dbf,*.cdx,*.idx,*.fpt SQLLevel=0 }
        23 {Microsoft Access Driver (*.mdb, *.accdb), UsageCount=3 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=2 FileExtns=*.mdb,*.accdb SQLLevel=0 }
        24 {Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb), UsageCount=3 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=2 FileExtns=*.xls,*.xlsx, *.xlsb SQLLevel=0 }
        25 {Microsoft Access dBASE Driver (*.dbf, *.ndx, *.mdx), UsageCount=3 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=2 FileExtns=*.dbf, *.ndx, *.mdx SQLLevel=0 }
        26 {Microsoft Access Text Driver (*.txt, *.csv), UsageCount=3 APILevel=1 ConnectFunctions=YYN DriverODBCVer=02.50 FileUsage=2 FileExtns=*.txt, *.csv SQLLevel=0 }
Press any key to continue...

[georg]

Hallo, Hubert -


der Blick in die Treiber-Verwaltung zeigt, dass für Excel, Access, CSV und Text-Dateien der gleiche Treiber, ACEODBC.DLL verwendet wird. Wenn Du also Excel auf dem Rechner hast, ist automatisch auch Access verfügbar. Auf einem "nackten" Rechner OHNE Office ist kein Access-ODBC-Treiber drauf.

Das habe ich übrigens nicht über den ODBC-Manager versucht, sondern aus c:\ mit einem dir aceodbc.dll /s. Ergebnis: ist nicht da.

[brandelh]

OK, das ist ein Argument.

[brandelh]

Bereinigt nicht dieser Download, das Problem der fehlenden ODBC-Treiber ?
Ich teste mal die 32 Bit Version unter XP SP3 - dort ist nur Office 2003 installiert und es fehlt der accDB Zugang

http://www.microsoft.com/de-de/download ... x?id=13255

[georg]

Hallo, Hubert -


gratuliere, das war der MDAC (Microsoft Data Access Components) Download, den ich nicht mehr finden konnte ...

Damit ist das Thema richtig rund geworden, auch durch Dein kleines Programm.

Danke!

[brandelh]

unter Windows XP SP3 (Mindestanforderung) wird der Treiber wohl hier installiert:

Code: Alles auswählen

C:\>dir aceodbc.dll /s
 Datenträger in Laufwerk C: ist HD_C
 Volumeseriennummer: 345D-5A71

 Verzeichnis von C:\Programme\Gemeinsame Dateien\Microsoft Shared\OFFICE14

22.03.2010  20:51           278.448 ACEODBC.DLL
               1 Datei(en)        278.448 Bytes