TurboPL Referenz

FindTable Prozedur

Top  Previous  Next

Syntax

FindTable(TableName: String): Integer;

Kategorie

Datenbank-Befehl

Erklärung

Liefert die Tabelle-Nummer für die angegebene Tabelle. Falls die Tabelle nicht offen ist, wird 0 zurückgegeben.

Beispiel

Diese Prozedur prüft, ob eine Tabelle geöffnet ist und öffnet sie, falls das nicht der Fall ist.

procedure GetTable(TableName: String): Integer;
vardef Result: Integer;
Result := FindTable(TableName);
if Result = 0
   Result := OpenDB(TableName, '', 0, 15);
end;
return Result;
endproc;