In the PBOSL_Examples Pack a examples for:
firebird, mysql, sqlite3 and mdb
Here a mdb example:
Code:
; Original by PAMKKKKK
; angepaßt für PBOSL_ExDatabase und PB4 by ts-soft und mk-soft
EnableExplicit
UseODBCDatabase()
;InitDatabase()
Define.s dbName = "d:\exDatabase_test.mdb" ; könnt Ihr anpassen
Define.s DSN
Define.s SQL
Define.l db = 0
Define.l result
If CreateEmptyMDB(dbName) ; leere Datenbank erstellen
DSN = AddDSN(dbName, "", "") ; DSN hinzufügen
EndIf
Debug "DSN=" + dsn
; Datenbank verbinden
If OpenDatabase(db, DSN, "", "") = 0
End
EndIf
If IsDatabase(db)
Debug "Start..."
; SQL Befehl zum Tabelle erstellen
SQL = "Create table Adress (id autoincrement, vorname text(50), nachname text(50), constraint Adress unique(id));"
If DatabaseQuery(db, SQL) ; SQL Befehl ausführen
; SQL Befehl zum einfügen von Daten in die Tabelle
SQL = "Insert into Adress (vorname, nachname) values ('Thomas', 'Schulz')"
DatabaseQuery(db, SQL) ; SQL Befehl ausführen
SQL = "Insert into Adress (vorname, nachname) values ('Max' ,'Mustermann')"
DatabaseQuery(db, SQL) ; SQL Befehl ausführen
SQL = "Insert into Adress (vorname, nachname) values ('Erika', 'Mustermann')"
DatabaseQuery(db, SQL) ; SQL Befehl ausführen
Else
Debug DatabaseError()
EndIf
; SQL Befehl zum Auslesen von Daten der Tabelle
SQL = "Select * from Adress order by nachname asc;"
If DatabaseQuery(db, SQL) ; SQL Befehl ausführen
Debug "Daten in Tabelle 'Adress'" : Debug ""
While NextDatabaseRow(db) ; gelesene Daten aus der Datenbank durchlaufen
Debug Str(GetDatabaseLong(db, 0)) + ": " + GetDatabaseString(db, 1) + " " + GetDatabaseString(db, 2) ; gelesene Daten aus der Datenbank ausgeben
Wend
EndIf
CloseDatabase(db)
EndIf
; Tabellen lesen
If ExamineTables(dsn)
Debug "Tabellen in Database:"
Debug ""
While NextTable()
Debug GetTableName() + " <-- " + GetTableType()
Wend
Debug "" : Debug ""
EndIf
result = RemoveDSN(dbName); DSN wieder entfernen
If Result = 0
MessageRequester("SQLError", GetSQLInstallerError())
EndIf
Sorry, the comments a german