ADOX Access MDB erzeugen

Nun haben habt Ihr bereits einiges gelesen, aber kein Microsoft Access und so denkt ihr vielleicht alles schön und gut aber was nützt mir der Zugriff auf eine Access Datenbank wenn ich keine habe. Deshalb möchte ich an dieser  Stelle erklären wie man ohne Microsoft Access eine Access MDB erstellt, natürlich auch wieder als kleines Programm. Übergibt man an in der Kommandozeile den Namen der MDB z.B. test.mdb wird diese im lokalen Ordner erzeugt.

Dafür braucht wir den Import der Type Library "ADO Extensions 2.5 for DDL and Security Library Reference"  und das Package LazActiveX.

Import ADOX : ADO Extensions 2.5 for DDL and Security Library Reference
C:\Program Files\Common Files\System\ado\msadox.dll adox 6 0 tlb.pas (49,82 kByte) 21.12.2013 11:25 (49,82 KB)

CreateAccessMDB.lpr Pascal (442 bytes) 21.12.2013 12:12
program CreateAccessMDB;
{$APPTYPE CONSOLE}
{$mode objfpc}{$H+}
uses
  Interfaces, // used packages: LazActiveX
  ADOX_6_0_TLB; // ADO Extensions 2.5 for DDL and Security Library Reference

procedure CreateMDB(const Filename: string);
var cat: _Catalog;
begin
  cat := CoCatalog.Create;
  cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + FileName + ';');
  cat := nil;
end;

begin
  CreateMDB(ParamStr(1));
end.

Autor: , veröffentlicht: , letzte Änderung:

Kontakt

Copyright / License of sources

Copyright (c) 2007-2017, Udo Schmal <udo.schmal@t-online.de>

Permission to use, copy, modify, and/or distribute the software for any purpose with or without fee is hereby granted, provided that the above copyright notice and this permission notice appear in all copies.

THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

Service Infos

CMS Info
UDOs Webserver

0.3.1.24

All in one Webserver

Udo Schmal

Sa, 21 Okt 2017 00:30:10
Development Info
Lazarus LCL 1.9.0.0

Free Pascal FPC 3.1.1

OS:Win64, CPU:x86_64
Hardware Info
Precision WorkStation T3500

Intel(R) Xeon(R) CPU W3530 @ 2.80GHz

x86_64, 1 physical CPU(s), 4 Core(s), 8 logical CPU(s), 2800 MHz