Transfer metadata from MySql to Delphi

[kaffeburk]

Im trying to get information about a MYSQL database to Delphi.

I use this code:

procedure TForm1.Button2Click(Sender: TObject);
var
s: string;
i : integer;
tl : tstringlist;
loop: integer;
Mymax : integer;

begin

tl:=tstringlist.Create;
qry_getinfo.SQL.Text:='describe organs.org';
qry_getinfo.open;

Mymax:=qry_getinfo.Fields.Count;
for loop := 0 to Mymax - 1 do
begin
tl.Add(qry_getinfo.Fields[loop].asstring);
end;

memo1.Text:= tl.Text;


tl.Free;

end;

I only get the first row of the information, but there should be about 18...

[eduardosic]

Hi!!

Upgrade you mydac to the last version and try to use TMyMetaData or:

Code: Select all

  memo1.Text := '';
  qry_getinfo.First;

  while not qry_getinfo.eof do 
  begin
   for loop := 0 to qry_getinfo.Fields.Count - 1 do
   begin
    tl.Add( qry_getinfo.Fields[ loop ].asstring );
    memo1.Text := memo1.Text + tl.Text;
   end;
   qry_getinfo.Next; 
  end;