Repair in Checkadas tables

Question

Follows the code:

status := DataModule1.ZQuery2.FieldByName('Msg_text').AsString;
  while not DataModule1.ZQuery1.Eof do
  begin
    if status <> 'OK' then
    begin
      DataModule1.ZQuery3.Close;
      DataModule1.ZQuery3.SQL.Clear;
      DataModule1.ZQuery3.SQL.Add('Repair tables ' + Parametro);
      DataModule1.ZQuery3.Open;
      ShowMessage(DataModule1.ZQuery3.Sql.Text);
    end
    else
    begin
    DataModule1.ZQuery1.Next;
    end;
  end;

With the help of Filipe.Fonseca, I was able to check the items, below the link.

Check the tables that appear on my first Dbgrid

I just want the Msg_Text, Don’t be OK, he performs the Repair. Someone could help me?

Answer 1

Once again you are rolling with the Queries. Define names "friendly" not to give next in the wrong query, for example QryTabelas, QryStatus, etc..

Try it this way:

while not DataModule1.ZQuery2.Eof do
begin
  status := DataModule1.ZQuery2.FieldByName('Msg_text').AsString;
  if status <> 'OK' then
  begin
    DataModule1.ZQuery3.Close;
    DataModule1.ZQuery3.SQL.Clear;
    DataModule1.ZQuery3.SQL.Add('Repair tables ' + Parametro);
    DataModule1.ZQuery3.ExecSQL;
    ShowMessage(DataModule1.ZQuery3.Sql.Text);
  end
  DataModule1.ZQuery2.Next;
end;