🚀 go-pugleaf

Witam


Założenie jest następujące. Na serwerze jest w bazie MSSQL tabela. User łączy się z tabelą.
 
Wszystko działa, jest połączenie, w dbgrid1 pojawia się pusta tabela np. grupy.


Następnie otwiera sobie tabelę w dbgrid2 z lokalnego hdd o takiej samej nazwie i takiej samej strukturze ale wypełnionej danymi.

Teraz chodzi o to żeby po kliknięciu przekopiować (koniecznie z tabeli z danym ) do tabeli na serwerze dane ale chciałbym zrobić to wędrując po polach DBGrid2.

Teraz kod i prośba o podpowiedź bo nie bardzo wiem co robię żle.

////
procedure TForm1.Button7Click(Sender: TObject);
var x : integer;
begin
ADOQuery3.Connection:=  AdoConnection1;
AdoQuery3.SQL.Clear;
DBGrid2.DataSource.DataSet.First;
while not DBGrid2.DataSource.DataSet.Eof do
  begin
   for x:=0 to DBGrid2.DataSource.DataSet.Fields.Count -1 do

      begin
      ADOQuery3.SQL.Add('INSERT INTO grupy (GRUPA, NAZWA, RODZAJ, W_OPALOWA, STAWKA_A) VALUES (:grupa, :nazwa, :rodzaj, :w_opalowa, :stawka_a)'); // +  DataSource1.DataSet.Fields[x].AsString );

     begin
      ADOQuery3.Parameters.ParamByName('GRUPA').Value:= DBGrid2.DataSource.DataSet.Fields[x].AsString;
      ADOQuery3.Parameters.ParamByName('NAZWA').Value:= DBGrid2.DataSource.DataSet.Fields[x].AsString;
      ADOQuery3.Parameters.ParamByName('RODZAJ').Value:= DBGrid2.DataSource.DataSet.Fields[x].AsString;
      ADOQuery3.Parameters.ParamByName('W_OPALOWA').Value:= DBGrid2.DataSource.DataSet.Fields[x].AsFloat;
      ADOQuery3.Parameters.ParamByName('STAWKA_A').Value:= DBGrid2.DataSource.DataSet.Fields[x].AsFloat;

      end;

  ADOQuery3.ExecSQL;
  DBGrid2.DataSource.DataSet.Next;
  end;

end;

kod prościutki niestetynie działa i nie mam pomysłu

zamiast kodu między begin ....end dałem:

      AdoQuery3.Parameters.ParamByName('GRUPA').Value:= DBGrid2.DataSource.DataSet.FieldByName('grupa').AsString;
      AdoQuery3.Parameters.ParamByName('NAZWA').Value:= DBGrid2.DataSource.DataSet.FieldByName('nazwa').AsString;
      AdoQuery3.Parameters.ParamByName('RODZAJ').Value:= DBGrid2.DataSource.DataSet.FieldByName('rodzaj').AsString;
      AdoQuery3.Parameters.ParamByName('W_OPALOWA').Value:= DBGrid2.DataSource.DataSet.FieldByName('w_opalowa').AsFloat;
      AdoQuery3.Parameters.ParamByName('STAWKA_A').Value:= DBGrid2.DataSource.DataSet.FieldByName('stawka_a').AsFloat;

i to działa - tylko dla pierwszego rekoru - to zresztą zrozumiałe. Gdzieś by tu wpleść x  Proszę o jakąś podpowiedź, gdzie robię błąd.

Prosze o wyrozumiałość i podpowiedź , nie oczekuję gotowca
pozdrawiam

Przemek