Es werden keine Daten im DBGrid angezeigt

[Ati]

Hallo zusammen,

ich wollte nur eine klitze kleine Anwendung schreiben wo die Daten, welche durch ein anderes Programm eingegeben werden, angezeigt werden sollen. Jetzt habe ich also die Komponenten Database mit der DB auf dem Server verbunden. Transact und Query auf Database verknüpft und DataSource mit Query. Wenn ich nun den Button drücke zum Abrufen/Anzeigen der Daten erscheint ein leeres Grid. Die Spalten werden mir richtig angezeigt im Grid. Also habe ich mal mit

Delphi-Quellcode:

anz:=dsmain.DataSet.RecordCount;
 showmessage(inttostr(anz));

Mir die Anzahl der Datensätze angezeigt und heraus kam 0..... es sind aber wirklich 7 Datensätze vorhanden. Es kann ja eigentlich nur ne Kleinigkeit sein. Weiß jemand Rat??

Danke Ati

[mquadrat]

Wie sieht deine Query aus? Wieviele Datensätze erhälst du wenn du die gleiche Query außerhalb deines Programmes ausführst (z.B. in IBExpert)?

[Ati]

Es gibt ja den SQL-Editior unter IBExpert. Wenn ich hier jetzt

Delphi-Quellcode:

select * from Zandereingang

eingebe erhalte ich die korrekten Daten zurück.
Hier mal mein bisheriger Programm-Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, ZQuery, ZIbSqlQuery, ZTransact, ZIbSqlTr, ZConnect,
  ZIbSqlCon, ComCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls, ZUpdateSql,
  ZMsSqlTr, ZMsSqlQuery, ZMsSqlCon;


type
  TForm1 = class(TForm)
    dbmain: TZZIbSqlDatabase;
    trmain: TZZIbSqlTransact;
    qrmain: TZZIbSqlQuery;
    dsmain: TDataSource;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var ListItem:Tlistitem;
    anz:Integer;

begin
 qrMain.Sql.Clear;
 qrMain.Sql.Text:='SELECT * FROM Zandereingang;';
 qrMain.Open;
 qrMain.SortByField('Datum');
 anz:=dsmain.DataSet.RecordCount;
 showmessage(inttostr(anz));

end;

end.

[mquadrat]

Meine Kentnisse der ZEOS beschränken sich darauf, dass es sie gibt ;) Vom Prinzip her schaut's eigentlich richtig aus.

[Peinhard]

Meine Kenntnisse von Firebird sind ebenfalls (mehr als) beschränkt - aber stört sich die Engine vielleicht an dem Semikolon am Ende des SQL-Statements?

[Ati]

Da bin ich ja schonmal beruhigt. Es kann eigentlich nur so ein berühmter "Dödelfehler" sein.
Und das Semikolon hat auch nichts damit zu tun!!

[Ati]

Frage: Könnte es damit zusammen hängen, das die Felder in der DB alles Integer-Werte plus einem Datumsfeld sind??? Muß ich da die Abfrage bzw. Anzeige anpassen??
Kann mir keinen Reim darauf machen, zumal ich nach dem gleichen Schema die Daten ja auch eingebe.

Ati

[marabu]

Hi Ati,

probiere es mal so:

Delphi-Quellcode:

begin
  with qrMain do
  begin
    Sql.Text := 'SELECT * FROM Zandereingang';
    SortByField('Datum');
    Open;
    Last;
    ShowMessage(IntToStr(RecordCount));
  end;
end;

Grüße vom marabu

[Ati]

Werde ich morgen früh auf der Arbeit sofort ausprobieren und dann das Ergebnis hier posten!!

[Karstadt]

Delphi-Quellcode:

begin
  with qrMain do
  begin
    Sql.Text := 'SELECT * FROM Zandereingang';
    Open;
    Refresh;
    ShowMessage(IntToStr(RecordCount));
  end;
end;

Oder so...