Probleme mit ZEOS und MySQL (Felder werden nicht gefunden)

[mkinzler]

Die DataSource sollte auch wieder auf das Grid gesetzt werden
DataSource.DataSet := ZQuery;
@Andidreas: Zeig mal deinen Code

[Andidreas]

@uwewo
könntest du mir vielleicht mal das projekt was du kompelliert hast zuschicken???
viell. per e-mail an [e-mail] vielleicht seh ich dann was ich falsch mache....


@mkinzler
ich hab hier jetzt nochmal meinen aktuellen source code dran gehängt...

[uwewo]

      ZQuery.SQL.Add('Select Host From User'); ist richtig

[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;

[Andidreas]

so es geht endlich

aber ich weiss echt nicht worans lag....

des einzige was ich gerade gemacht hab, war das ich alle komponenten nochmal vom formular geschmiessen hab (also zumindest das grid, die datasource und das query) und das ich alles nochmal neu mit einander verknüpft hab...

und jetzt funkts

@uwewo und mkinzler
vielen dank nochmal für eure hilfe

[mkinzler]

Sowie in deinem Code konnte es aber auch nicht funktionieren, da .ExecSQL keine Datenmenge zurückliefert.

[Andidreas]

hmm ja kann sein...

hier is mal mein neuer source code:

Delphi-Quellcode:

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

      ZQuery.SQL.Add('Select Host From mysql.user');

      ZQuery.Active := True;

      DBGrid.Columns[0].Field := ZQuery.FieldByName('Host');

    Except
      MessageDlg('Some Erorrs Occurs', mtWarning, [mbOK], 0);

    End;