neue Access DB erstellen

[ksh]

nachdem ich allmählich verrückt werde hier mein Anliegen:

Access db einlesen ist kein Problem. Jetzt hab ich meine Tabelle im DBGrid angezeigt und muss noch Spalten hinzufügen und danach in eine NEUE Access DB einspeichern (Format *.mdb).

Wie mache ich das? :pale:

[mkinzler]

Eine 2. ADOConnection zur 2. Tabelle anlegen. Daten von einem Query/Table (1. Connection) in Query7Table (2. Connection) übertragen.

[Sharky]

Hai ksh,

eventuell ist dieser Beitrag für dich interessant.

[ksh]

genau das richtige! danke! :-D

allerdings: ich erstelle eine neue mdb - und wie kann ich die Tabelle übergeben?

[marabu]

Die Erzeugung einer neuen Datenbank aus einer Fachanwendung heraus ist sehr ungewöhnlich. Üblicherweise werden Datenbanken von einem Mitarbeiter mit speziellen Rechten (Datenbank-Administrator) angelegt. Es ist auch guter Stil diese Funktionalität in einem gesonderten Programm zur Verfügung zu stellen. Die Vermischung von beidem beobachte ich regelmäßig in Bereichen, in denen der Endbenutzer auch programmiert. Ist das denn hier zutreffend?

Grüße vom marabu

[Sharky]

Zitat:

Zitat von ksh

...und wie kann ich die Tabelle übergeben?

Die musst Du dann noch erzeugen. Mike hat auf seiner HP auch dafür ein Beispiel

[Phoenix]

Hier meine MakeAccessDb.dpr:

Delphi-Quellcode:

program MakeAccessDb;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ComObj,
  ActiveX,
  Variants;

function CreateAccessDatabase(FileName: string): string;
var 
  cat: OLEVariant;
begin
  Result := '';
  try
    CoInitialize(nil);
    cat := CreateOleObject('ADOX.Catalog');
    cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + FileName + ';');
    cat := NULL;
  except
    on e: Exception do Result := e.message;
  end;
end;

begin
  WriteLn(CreateAccessDatabase(ParamStr(1)));

  { TODO -oUser -cConsole Main : Hier Code einfügen }
end.

[ksh]

super! vielen vielen Dank! :spin2:

hatte das Beispiel nicht gesehen!