Hallo Delphi-Freunde,

ich experimentiere seit ein paar Tagen mit der DBAdvgrid Komponente von TMSSOFTWARE. Dabei hab ich das Problem, dass ich die aus einer SQL-Query ermittelten Datensätze nicht in das DBAdvGrid bekomme. Hat hier vielleicht jemand Erfahrung mit dieser Komponente? Hier mein Quelltext:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TArtBrowser.Button1Click(Sender: TObject);
var Rec: String;
begin
    ArtBrowserControls.SQLQuery1.Active := False;
    ArtBrowserControls.SQLQuery1.CommandText :=
    'Select bemerkung from aplanpos where aplan like ' + #39 + '300010%' + #39 + ' ' +
    'order by position';
    ArtBrowserControls.SQLQuery1.Active := True;
    // Ermitteln und Anzeigen der Anzahl gefundenen Datensätze -> 39 ist ok!
    Str(ArtBrowserControls.SQLQuery1.RecordCount,Rec);
    ShowMessage(Rec);
    // Hier das Problem: Wie bekomme ich die 39 Datensätze in meine APlanTabelle?
    APlantabelle.Reload; // -> Keine Änderung in der Zieltabelle
    APlantabelle.Refresh; // -> Keine Änderung in der Zieltabelle
end;

Mit welcher Methode kann ich das Grid befüllen?

Vielen Dank schon mal vorab.
Viele Grüße Jürgen

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

Gerade das StringGrid/DBGrid hat eine sehr schöne Dokumentation mit hilfreichen Tips. Das sollte mit der Gridkomponente bei der Installation auch auf Deiner Platte gelandet sein.

Als einfachste Variante nennt TMS das TDataSource als Datenquelle (dem wiederrum ein TDataSet vorangeht). Dann kannst Du entweder die Columns automatisch aus der Query erstellen lassen, oder hlat selber hinzufügen.

Sherlock

Wieso wird noch über ODBC gegangen? Ist für den MS SQL Server so ziemlich die schlechteste Lösung wenn man mit Delphi arbeitet.

Hurrah, ich hab's geschafft!

Mit einer ADOConnection zum MSSQL-Server und einer ADOQuery, die direkt dem Dataset der DataSource zugewiesen wird, lässt sich das DBAdvGrid dann wunderschön programmgesteuert (hier zum Testen über einen Button) mit Datensätzen aus einer SQL-Abfrage füllen:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
Var Artikel: Array[1..5] of String =
   ('4500101','3002001','D3552900','CA2540203','1201600');
begin
   ADOQuery1.Prepared := True;
   SQLStr := 'Select Bemerkung from aplanpos where aplan = ' +
              chr(39) + Artikel[i] + Chr(39) +
             'Order by position';
   ADOQuery1.Active := False;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(SQLStr);
   ADOQuery1.Active := True;
   If i > 4 then i:= 1 else inc(i)
end;

Zugegeben, ohne die wertvollen Infos hier aus dem Forum wäre ich da nicht so schnell weitergekommen. Das ist eine prima Sache hier, das muss ich schon sagen.

Nochmals vielen Dank und Grüße Jürgen