Как узнать перечень таблиц базы и количество записей в них (ADO)

Советы » ADO » Как узнать перечень таблиц базы и количество записей в них (ADO)

procedure

TForm1.Button1Click(Sender: TObject); var

SL: TStrings; index: Integer; begin

SL := TStringList.Create; try

ADOConnection1.GetTableNames(SL, False

); for

index := 0 to

(SL.Count - 1) do

begin

Table1.Insert; Table1.FieldByName('Name').AsString := SL[index]; ADOTable1.TableName := SL[index]; ADOTable1.Open; Table1.FieldByName('Records').AsInteger := ADOTable1.RecordCount; Table1.Post; end

; finally

SL.Free; ADOTable1.Close; end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com