TDataBase

Klasse zum Zugriff auf externe Datenquellen per ODBC

Voraussetzung

Es muss eine gültige Installation der BDE ("Borland Database Engine") vorhanden sein

4. BDE Installieren, entweder von einer "Delphi-Setup CD": Benutzerdefiniertes Setup, alles bis auf "Gemeinsame Dateien -> BDE" abwählen

oder mit separat erhältlichem "BDE Setup" installieren

5. Datenbank in BDE hinzufügen

Start -> Systemsteuerung -> BDE
Tabkarte "Datenbanken" wählen und über "Objekt" -> "Neu" eine Neue Datenbank anlegen.

Beispiel

CODE

|oDB, oTable, cSQL, oQuery, cPath, aReport, aPrinters, aOldCursor, oDab065:DB:= 'waDAB065, DAB066' |

function BDEConnect(cDBName, cAlias)
  |oDB|
  startseq,
     oDB := CreateObject('TDataBase'),
     oDB.Params := {'PATH=C:\'},
     // bei Verwendung eines User / Passworts:
     // oDB.Params := {'PATH=C:\','USER NAME=USER1','PASSWORD=PASS1'}, 
     oDB.AliasName := cAlias,
     oDB.DataBaseName := cDBName,
     oDB.LoginPrompt := false,
     oDB.Connected := true,
     result := oDB,
  onerror,
     writeln(GetErrorText()),
  stopseq,
end,

function Get_BDETable(cDBName, cTableName)
  |oTable|
  startseq,
     oTable := CreateObject('TTable','Table'),
     oTable.Databasename := cDBName,
     oTable.TableName := cTableName,
     oTable.Active := true,
     result := oTable,
  onerror,
     writeln(GetErrorText()),
  stopseq,
end,

cPath  := 'C:\',
oDB    := BDEConnect('Mappe1.dbf', 'DBDEMOS'),
oTable := Get_BDETable(cPath, oDB.DataBaseName),
Browse('BDE',oTable),