DBGrid und DB Express

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