dbnavigator, dbgrid

[vanilla]

hi mikhal,
ich verwende delphi 7, und hier ist mein code

Delphi-Quellcode:

procedure TForm1.getDBRowValue(TableName: String; Row1: integer; Row2: integer; Row3: integer);

begin

  try

  //Verbindung zwischen ADO-Datenmengenkomponente,Datenquellenkomponente und datensensitivem Steuerelement
  DBGrid1.DataSource := DataSource1;
  DBNavigator1.DataSource := DataSource1;
  ADOTable1.Active := true;
  DataSource1.DataSet := ADOQuery1;
  ADOQuery1.SQL.Text := 'SELECT GammaWind, GammaEis, GammaEigen, GammaGeb, GammaSeil, Psi0, Psi1, Psi2 FROM '+TableName+' WHERE (((Norm)='+inttostr(Row1)+' ) and ((Kombinationsbeiwerte)='+inttostr(Row2)+' ) and ((NAD)='+inttostr(Row3)+' ) )' ;
  ADOQuery1.Connection := self.ADOConnection1;
  ADOQuery1.Open;

  except
    showmessage('Fehler: ADOQuery1 getDBRowValue()');
    exit;
  end;



end;