Code: Select all
procedure TForm2.Button1Click(Sender: TObject);
begin
ClientDataSet1.Close;
sqlDataSet1.CommandText :=
'SELECT RDB$FIELD_NAME FROM RDB$RELATION_FIELDS' +
' WHERE (RDB$FIELD_NAME = ''FILIALBASE'') AND (RDB$RELATION_NAME = ''CPLOTE'') ';
ClientDataSet1.Open;
end;
Thank´s