I Tried by your example. But it didn't worked by my think. Nevertheless the procedure retuen all tables name.
My function is ..
procedure TFDelNull.GetDataBaseStructure;
var I : Integer;
begin
ListBox1.Clear;
ZConnection1.GetTableNames('A*', ListBox1.Items);
for I := 0 to ListBox1.Items.Count-1 do
begin
TIComboBox1.Items.Add(Trim(Trim(ListBox1.Items)));
end;
end;
The Zeos-6.5.1_alpha.TZConnection.GetTableNames syntax is ..
GetTableNames(const pattern:string; List:TStrings);
The ADOConnection1.GetTableNames syntax is ..
GetTableNames(List:TStrings; SystemTables:Boolean=False);
I think both is different.