XProfan

### hinzugefügt
 $U dbHelper.pcu = db.
Declare DSN$
DSN$ = db.CreateMDB(Beispiel1.mdb)

If DSN$ =  : End : EndIf

    ### ende
    -Begin-----------------------------------------------------------------
    -VariablesDeclaration------------------------------------------------
    Declare hDb&
    Declare MemoFeld$
    -Main----------------------------------------------------------------
    ### geändert
    hDb& = @SQLInit(DSN=Microsoft Access-Datenbank)
    hDb& = @SQLInit(DSN= + DSN$)
    ### ende

    If hDb&

        -Tabelle erzeugen------------------------------------------------
        -
        -  AUTOINCREMENT = Autowert
        -  CHAR          = Text
        -  CURRENCY      = Waehrung
        -  DATE          = Datum/Uhrzeit
        -  FLOAT         = Double
        -  INT           = Long Integer
        -  MEMO          = Memory
        -  NUMBER        = Double
        -
        -----------------------------------------------------------------
        SQLExec CREATE TABLE test1 (Nummer AUTOINCREMENT,  +
        Name CHAR(50) PRIMARY KEY,  +
        Vorname CHAR(30),  +
        GebDatum DATE,  +
        Groesse INT,  +
        Gehalt CURRENCY,  +
        Faktor FLOAT,  +
        Bemerkung MEMO);, 0
        -Einen Datensatz anlegen-----------------------------------------
        MemoFeld$ = Dies ist ein Memo-Feld in dem eine Menge Text  +
        gespeichert werden kann und das fast keine  +
        Grenzen kennt.
        SQLExec INSERT INTO test1 (Name, Vorname, GebDatum,  +
        Groesse, Gehalt, Faktor,  +
        Bemerkung)  +
        VALUES (Schnell,  +
        Stefan,  +
        #6/16/1964#,  +
        189,  +
        3141.59,  +
        2.473,  +
        :MemoFeld$);, 0
        -Datensaetze anzeigen--------------------------------------------
        SQLExec SELECT * FROM test1;, 1
        ### hinzugefügt
        @ListBox$(TABLE, 2)
        ### ende
        -Tabelle loeschen------------------------------------------------
        SQLExec DROP TABLE test1;, 0
        SQLDone

    EndIf

    ### hinzugefügt
    db.RemoveDSN(DSN$)
    WaitKey
    ### ende
    -End-------------------------------------------------------------------
    End