DBGrid und DB Express

[Leo675]

Hallo alle zusammen!

Kann mir jemand vielleicht deutlich erklären wie man die Datensetze aus einer ORACLE 10g Datenbank in einem DBGrid mit Hilfe der DBExpress – Tools anzeigen kann.

Ich benutze Borland Developer Studio 2006.
Die Datenbankverbindung komm aus einer ini-File und geht dan an einen SQLQuery
Spricht SQLQuery.SQLConnection := Conection;

funktioniert!

An SQLQuery soll man einen TDataSetProvider verknüpfen und zu dem TClientDataSet und erst dan TDBGrid
Allerdings klapst es irgendwie nicht.

Ich knüpfe bei DataSetProvider.DataSet := SQLQuery an und danach komme ich einfach nicht weiter!

Bei versuchen es zusammen zu führen kommen die Fehlermeldungen wie: die Variable nur zum lesen da usw.

Es stand noch das es einfacher ist mit TSQLClientDataSet es zu machen aber der Modul finde ich nicht in meiner Toolpalette .

Kann mir jemand da helfen?

[DeddyH]

Also, bei mir ist das TClientDataset auf dem Reiter "Datenzugriff" der Komponentenpalette.

[Leo675]

TSQLClientDataSet ist eine ableitung von TClientDataSet man kan den nicht mit SQLQuery verbinden oder?

[Nersgatt]

Crossposts bitte gegenseitig verlinken:
http://www.delphi-forum.de/viewtopic...&postorder=asc

[DeddyH]

Die Komponente sagt mir jetzt gar nichts. Vielleicht ist es aber hilfreich, wenn Du Dich einmal durch diesen Artikel durcharbeitest: http://delphi.about.com/od/database/...pressguide.htm

[Leo675]

Also ich hab es wie folgt verknüpft:

SQLDataSet1.SQLConnection := SQLConnection1;

SQLDataSet1.CommandText := SQL_Strg_Such1;

DataSetProvider1.DataSet := SQLDataSet1;

ClientDataSet1.ProviderName := DataSetProvider1.Name;

DataSource1.DataSet := ClientDataSet1;

DBGrid1.DataSource.DataSet := ClientDataSet1;

DBGrid1.DataSource := DataSource1;

SQLDataSet1.Open;

Das Programm durchläuft ohne Fehler im DBGrid erscheinen aber keine Daten. Im Worksheet funktioniert SQL-Befahl Problemlos!

[DeddyH]

Dann weiß ich leider auch nicht weiter, da ich weder einen DBExpress-Treiber für Oracle noch momentan einen Oracle-Server zur Verfügung habe. Wenn ich das richtig überflogen habe sollte Deine Konfiguration stimmen.

[Leo675]

Auf jeden Fall Danke!

[Nersgatt]

Ich würde auch behaupten, die Konfiguration stimmt. Bist Du sicher, dass die Abfrage überhaupt Daten zurückliefert?

[Leo675]

Hier ist die Komplette Programmabschnitt:

Code:

procedure TFBAPflege.btnSucheClick(Sender: TObject);
begin
SQLDataSet1.Close;

SQL_Strg_Such1 := '';

SQLDataSet1.SQLConnection := TelProdObj.FSQLConTelNet;

SQL_Strg_Such1 := 'Select pi_id, p_id, typ, descr, pi_jahrgang from '+ DB +'.produkt_instanz4'
                            + ' order by descr, pi_jahrgang';


SQLDataSet1.CommandText := SQL_Strg_Such1;

dbgridSuche1.Visible := True;

DataSetProvider1.DataSet := SQLDataSet1;
ClientDataSet1.ProviderName := DataSetProvider1.Name;
DataSource1.DataSet := ClientDataSet1;
dbgridSuche1.DataSource := DataSource1;
dbgridSuche1.DataSource.DataSet := ClientDataSet1;


//dbgridSuche1.Columns.Capacity := 5;
dbgridSuche1.Columns[0].FieldName := 'PI_ID';
dbgridSuche1.Columns[1].FieldName := 'P_ID';
dbgridSuche1.Columns[2].FieldName := 'Typ';
dbgridSuche1.Columns[3].FieldName := 'Descr';
dbgridSuche1.Columns[4].FieldName := 'Jahr';
dbgridSuche1.Columns[0].Visible := False;
dbgridSuche1.Columns[1].Visible := False;
SQLDataSet1.Open;
dbgridSuche1.DataSource.AutoEdit := False;

end;

Den SQL-Befehl habe ich beim Durchlauf mit Fehlersuche-> Auswerten/Ändern rauskopiert unf im Worksheet probiert geht problemlos!

Was ich nicht hinkriege ist die Daten im DBGrid anzeigen zu lassen und Anzahl den Spalten im Grid fest zu nennen. Ich musste die Anzahl in ColumnsEditor fest legen, wenn ich es per Code fersuche dann kommt ein Fehlermeldung mit „Die aufzurufende Funktion TCollection.GetCapacity wurde vom Linker entfernt„