# Verbindung zur (leeren) Access-Datenbank "G:\Daten\MeineDB.accdb" aufbauen

{AdoSetConnection:Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\Daten\MeineDB.accdb}

 

# Tabelle "meinedaten" hinzufügen

{AdoOperation:Execute,CREATE TABLE meinedaten (id AUTOINCREMENT, Bezeichnung VARCHAR(30), Nummer INTEGER)}

 

# 3 Datensätze hinzufügen

{AdoOperation:Open,SELECT * FROM meinedaten}

{AdoOperation:Append}

{AdoSetField:Bezeichnung=Meine Bezeichnung,Nummer=25}

{AdoOperation:Post}

{AdoOperation:Append}

{AdoSetField:Bezeichnung=Ein Datensatz mit Nummer 70,Nummer=70}

{AdoOperation:Post}

{AdoOperation:Append}

{AdoSetField:Bezeichnung=Meine andere Bezeichnung,Nummer=100}

{AdoOperation:Post}

 

# Datensätze mit einer Nummer größer 50 abfragen (2 Stück)

{AdoOperation:Close}

{AdoOperation:Open,SELECT * FROM meinedaten WHERE Nummer > 50}

 

# Datenabfrage zeigen und Anwender einen Datensatz wählen lassen

# und die Auswahl im Message Dialog zeigen

{MessageDlg:{AdoViewTable:Zeigt meinedaten,1,res,res,-,Nummer,Bezeichnung}} 

 

 # Verbindung zur Datenbank beenden

{AdoDestroy}