🚀 go-pugleaf

Użytkownik "lordbz"  napisał w wiadomości grup
dyskusyjnych:d0312858-627e-46e0-9c41-6ceada7756df@googlegroups.com...

> 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:
[...]
> 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

Skoro prosisz o uwagi to:
1. Ten kod jest mocno przekombinowany
2. Do wykonania tego zadania DBGridy nie mają znaczenia (są jedynie wizualizacją procesu)
3. Skoro masz już gotowe DataSety opisane w punktach 1 i 2, to po co Ci jeszcze ADOQuery3?
4. Wszystko co musisz zrobić, to skopiować zawartość drugiego DataSetu do pierwszego o takiej
samej strukturze, a po wykonaniu kopiowania zatwierdzić dane na serwerze (jeśli potrzeba).

Do skopiowania DataSetów wystarczy wywołać prostą *uniwersalną* procedurę:

procedure TMainForm.CopyDataSet(SourceDataSet, TargetDataSet: TDataSet);
var
  I: Integer;
begin
  if SourceDataSet.Fields.Count <> TargetDataSet.Fields.Count then
  begin
    ShowMessage('Niezgodność tabeli źródłowej i docelowej!');
    Exit;
  end;

  SourceDataSet.First;
  while not SourceDataSet.Eof do
  begin
    TargetDataSet.Append;
    for I := 0 to SourceDataSet.Fields.Count-1 do
      TargetDataSet.Fields[I].Value := SourceDataSet.Fields[I].Value;
    TargetDataSet.Post;
    SourceDataSet.Next;
  end;
end;

Warunkiem poprawności działania jest oczywiście zgodność kolejności pól w obu DataSetach.

-- 
pozdrowienia
Krzysztof Szyszka, X-Files Software
Developer of X-DBGrid Component
Embarcadero Technology Partner
http://www.x-files.pl/
Join to "Delphi X-DBGrid Component Community"
https://plus.google.com/#communities/100842098152269100547