Probleme mit ZEOS und MySQL (Felder werden nicht gefunden)

[mkinzler]

Delphi-Quellcode:

procedure TMain_Form.xpbtn_showuserClick(Sender: TObject);

var
blConnection  : Boolean;

begin

  If ZConnection.Connected = False Then
  Begin
    blConnection := False;
    MessageDlg('Please Connect to the Database!', mtWarning, [mbOK], 0);
  End
  Else
  Begin
    blConnection := True;
  End;

  If blConnection = True Then
  Begin

    Try
      ZQuery.Active := False;
      DataSource.DataSet := ZQuery;
      Application.ProcessMessages;
      ZQuery.SQL.Clear;

      ZQuery.SQL.Add('Select Host From User'); // Statt .Clear
/Add auch .Text möglich.
      ZQuery.Active := True;
      //ZQuery.ExecSQL; //Hier liegt der Fehler
      ZQuery.Open; // <-- So muß es heißen.
      //DBGrid.Columns[0].Field := ZQuery.Fields.FieldByName('Host');
      DBGrid.DataSource := DataSource;
    Except
      MessageDlg('Some Errors Occurs!', mtError, [mbOK], 0);
    End;

  End;

end;