🚀 go-pugleaf

Miab, Zenon - dzięki - podam teraz kod który działa ale najpierw przypomnę założenie.
1-user połączył się z MSSQL - tam ma pusta tabelkę (zrobione)
2-user otwiera sobie plik dbf (db itp) lokalnie w DBGRid2 (zrobione)
3-naciśnięcie klawisza - przekopiowanie pól z DBGrid2 do tabeli na serwerze

KOD który działa:
procedure TForm1.Button9Click(Sender: TObject);
var z : integer;
g,n,r,w,s : string;
begin

ADOQuery3.Connection:=  AdoConnection1;
AdoQuery3.SQL.Clear;

  DBGrid2.DataSource.DataSet.First;
  while not DBGrid2.DataSource.DataSet.Eof do  // przejście po wszystkich rekordach tabeli

   //     for z:=0 to DBGrid2.DataSource.DataSet.Fields.Count -1 do
        begin
          g:= DBGrid2.DataSource.DataSet.FieldByName('grupa').AsString;
          n:= DBGrid2.DataSource.DataSet.FieldByName('nazwa').AsString;
          r:= DBGrid2.DataSource.DataSet.FieldByName('rodzaj').AsString;
          w:= DBGrid2.DataSource.DataSet.FieldByName('w_opalowa').Value; //.AsVariant;
          s:= DBGrid2.DataSource.DataSet.FieldByName('stawka_a').Value;// AsVariant;

     ADOQuery3.SQL.Add('INSERT INTO grupy (GRUPA, NAZWA, RODZAJ, W_OPALOWA, STAWKA_A) VALUES (''' + g + ''',''' + n + ''',''' + r + ''',''' + w + ''',''' + s + ''')');

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

KONIEC KODU

Ładuję go bo wdzięczny będę za uwagi bo sam mam uwagi:
1- pętla {for z:=0 to DBGrid2.DataSource.DataSet.Fields.Count -1 do} jest wyłączona tu niczemu nie służy a wrecz przeszkadza bo dubluje ostatni rekord lub dodaje pusty
2 - fragment kodu 
{ g:= DBGrid2.DataSource.DataSet.FieldByName('grupa').AsString;
          n:= DBGrid2.DataSource.DataSet.FieldByName('nazwa').AsString;
          r:= DBGrid2.DataSource.DataSet.FieldByName('rodzaj').AsString;
          w:= DBGrid2.DataSource.DataSet.FieldByName('w_opalowa').Value; //.AsVariant;
          s:= DBGrid2.DataSource.DataSet.FieldByName('stawka_a').Value;// AsVariant;

     ADOQuery3.SQL.Add('INSERT INTO grupy (GRUPA, NAZWA, RODZAJ, W_OPALOWA, STAWKA_A) VALUES (''' + g + ''',''' + n + ''',''' + r + ''',''' + w + ''',''' + s + ''')');
}
jest wg mnie no nie wiem ... nieprofesjonalny.Bo co będzie haj plik (tutaj grupy to pięć pól, pięć kolumn) będzie miał np 25 kolumn ? Będę musiał definiować tyle zmiennych i linia za "values" będie długa i głupia - to się chore robi.
3 - reasumując kod jest do poprawki
Daję cały bo może komuś się przyda a dodatkowo uważam że na tym to polega (teraz ktoś mnie zjedzie , coś podpowie, da kawałek i problem rozwiązany). Ponadto przeszukałem grupę i dokładnie takiego (rozwiązanego) problemu nie ma - zaznaczam lecimy po DBGrid.

Proszę o uwagi

Dzięki

Przemek