1:
2:
3:
4:
5:
6:
7:

uses ...ComObj;
var cat: OLEVariant;
begin
  cat:=CreateOleObject('ADOX.Catalog');
  cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb');
  cat:=unassigned;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

uses {..,}Variants, ComObj{,..}; 
//.. 
const 
   dbVersion10   = 1; 
   dbVersion11   = 8; 
   dbVersion20   = 16; 
   dbVersion30   = 32; 
   dbVersion40   = 64; 

function CreateDB(const FileName: String; const Version: Integer; DelIfExists: Boolean = False): String; 
var 
   DBEngine, 
   Workspace, 
   Database  : OleVariant; 
   s         : String; 
const 
   dbLangGeneral = ';LANGID=0x0409;'; 
begin 
   Result  := ''; 
   if FileExists(FileName) And DelIfExists then 
      DeleteFile(FileName); 
   s       := dbLangGeneral + 'CP=' + IntToStr(GetACP()) + ';COUNTRY=0'; 
   DBEngine:= CreateOleObject('DAO.DBEngine.36'); 
   try 
      try 
         Workspace := DBEngine.Workspaces[0]; 
         Database  := Workspace.CreateDatabase(FileName, s, Version); 
         Database.Close; 
         Workspace.Close; 
      except 
         On E: Exception do 
            Result := E.Message; 
      end; 
   finally 
      Database  := NULL; 
      Workspace := NULL; 
      DBEngine  := NULL; 
   end; 
end; 

procedure TForm1.BtnDBNeu.Click(Sender: TObject); 
begin 
   CreateDB('test.mdb', dbVersion20); 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure CreateTable;
const
  cCreateKonten = 'CREATE TABLE Konten('
    + 'KontoNr char(5) PRIMARY KEY,'
    + 'Beschriftung char(50),'
    + 'KontenTyp char(1),'
    + 'SH char(1),'
    + 'Land char(30),'
    + 'USTID char(20))';

  cCreateWaehrung = 'CREATE TABLE Waehrung('
    + 'Nr AutoInc PRIMARY KEY,'
    + 'Beschreibung char(30),'
    + 'Eurokurs double,'
    + 'EuroSt double,'
    + 'EuLand char(2),'
    + 'BasisWBetrag double,'
    + 'BasisWKennung integer)';

begin
  Con1.Active:=True; // Datenbank aktivieren
  
  QKonten.SQL.Text:=cCreateKonten; // Tabelle Konten erzeugen
  QKonten.ExecSQL; // Da keine Daten zurückgegeben werden ExecSQL ausführen

  QWaehrung.SQL.Text:=cCreateWaehrung; // Tabelle Waehrung erzeugen
  QWaehrung.ExecSQL; // Da keine Daten zurückgegeben werden ExecSQL ausführen
    
  QKonten.SQL.Text := 'Select * From Konten'; // Daten in Konten Selektieren
  QKonten.open; // Hier werden Daten zurückgegeben, daher open ausführen
  QWaehrung.SQL.Text := 'Select * From Waehrung'; // Daten in Waehrung Selektieren
  QWaehrung.open; // Hier werden Daten zurückgegeben, daher open ausführen 
End;					

1:
2:

Query.SQL.Text:='Select * from Tabellenname order by feldname';
Query.open;					

1:

readln(ADOQuery1.FieldByName('Bild').asstring);					

1:

writeln(ADOQuery1.FieldByName('Bild').asstring);					

1:
2:

ReadLn(F,ADOQuery1.FieldByName('Bild').asstring));
WriteLn(F,ADOQuery1.FieldByName('Bild').asstring));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Function GetFeld(a : String; Var z : Integer) : String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var ProgPath ,a , Konto, SKD, BEschreibung, Land, USTID: String;
    Datei : Textfile;
    Kopf : Boolean;
    z : Integer;
begin
  Kopf := True;
  ProgPath:=ExtractFilePath(paramstr(0));
  opendialog1.InitialDir := ProgPath;
  Opendialog1.Execute;
  AssignFile(Datei, Opendialog1.FileName);
  try
    reset(Datei);
  except
    exit;
  end;
  If Kopf then readln(Datei,a); // Wenn Datei eine Kopfzeile hat, dann erst einmal lesen. (Feldnamenliste)
  While not EOF(Datei) do
    Begin
     z := 1;
     readln(Datei,a);
     Konto := GetFeld(a,z);
     SKD := GetFeld(a,z);
     Beschreibung := GetFeld(a,z);
     Land := GetFeld(a,z);
     USTID := GetFeld(a,z);
     Listbox1.items.add(Konto+ '   '+ SKD + '   '+ Beschreibung + '   '+ Land + '   '+ USTID);
    End;
end;



Function GetFeld(a : String; Var z : Integer) : String;
Begin
  Result := '';
  While z <> Length(a) do
    If a[z] <> ';' then
      Begin
        Result := Result + a[z];
        inc(z);
      End
    Else
      Begin
        inc(z);
        Exit;
      End;

End;


end.