<< Click to Display Table of Contents >> Navigation:  »No topics above this level« Delphi Examples: DbiOpenTableTypesList

Display in a MessageBox all table types supported by a driver.

This example uses the following input:

 fDbiOpenTableTypesList(szDBASE);

 

The procedure is:

procedure fDbiOpenTableTypesList(Driver: string);

var

 hTypeCur: hDBICur;

 TblTypes: TBLType;

 BufStr: string;

begin

 hTypeCur:= nil;

 Check(DbiOpenTableTypesList(PChar(Driver), hTypeCur));

while (DbiGetNextRecord(hTypeCur, dbiNOLOCK, @TblTypes, nil) = DBIERR_NONE) do

begin

   BufStr:= format('Name: %s, TableLevel: %d',[Tbltypes.szName,Tbltypes.iTblLevel]);

   MessageBox(0, PChar(BufStr), PChar(Driver), MB_OK);

end;

end;