🚀 go-pugleaf

W dniu niedziela, 29 stycznia 2017 19:44:47 UTC+1 użytkownik lordbz napisał:
> 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

To proste. Pod różne pola wkładasz jedno i to samo:

 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; 

czyli w pierwszym kroku pętli:

 ADOQuery3.Parameters.ParamByName('GRUPA').Value:= DBGrid2.DataSource.DataSet.Fields[0].AsString;
      ADOQuery3.Parameters.ParamByName('NAZWA').Value:= DBGrid2.DataSource.DataSet.Fields[0].AsString;
      ADOQuery3.Parameters.ParamByName('RODZAJ').Value:= DBGrid2.DataSource.DataSet.Fields[0].AsString; 

itd... czyli inaczej:

 ADOQuery3.Parameters.ParamByName('GRUPA').Value:= DBGrid2.DataSource.DataSet.FieldByName('GRUPA').AsString;
      ADOQuery3.Parameters.ParamByName('NAZWA').Value:= DBGrid2.DataSource.DataSet.FieldByName('GRUPA').AsString;
      ADOQuery3.Parameters.ParamByName('RODZAJ').Value:= DBGrid2.DataSource.DataSet.FieldByName('GRUPA').AsString;

rozumiesz?

Paweł