Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi leere Datensätze übernehmen (https://www.delphipraxis.net/2126-leere-datensaetze-uebernehmen.html)

Stefan_B 8. Jan 2003 10:06


leere Datensätze übernehmen
 
hallo!
habe ein problem.
habe eine sql datenbank in einem dbgrid.
wenn ich dann aber die datensätze (z.b. kundennr.) auf ein anderes grid übernehmen möchte, muss der datensatz auf doppelte nummern oder leere felder geprüft werden. das heisst, wenn die kundennr. doppet vorkommt, muss die dann in das memo und der leere datensatz auch.
das mit der doppelten nummer habe ich hingekriegt aber die leeren felder macht er nicht. habe eine 2. if-Abfrage eingebaut, aber irgendwie funktionier die nicht.
Bitte helft mir.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);

begin
     wwQuery1.First;

     while not wwQuery2.Eof do
           begin
                wwQuery2.Delete;
           end;
     while not wwQuery1.Eof do
           begin
                if wwQuery2.Locate('KdNr',wwQuery1.FieldByName('KNUMMER').AsInteger,[])
                    then
                    begin
                         if not FileExists('KdNr') then
                         begin
                              Memo1.Lines.add(wwQuery1.FieldByName('KNUMMER').AsString);
                         end
                         else
                            begin
                                 wwQuery2.Insert;
                                 wwQuery2.FieldByName('KdNr').AsInteger:=
                                 wwQuery1.FieldByName('KNUMMER').AsInteger;
                                 wwQuery2.Post;
                            end;
                                 wwQuery1.Next;
                    end;
           end;
end.
[edit=Sakura]DELPHI Tags[/edit]

Stefan_B 8. Jan 2003 10:24

problem gelöst!
:dancer:

sakura 8. Jan 2003 11:00

Hi und herzlich willkommen. Super, dass Du schneller warst als der ganze Rest. Trotzdem hoffe ich, dass wir Dich wiedersehen ;)

Ich habe mir erlaubt, Deinen Code in [ DELPHI ] und [ /DELPHI ] Tags einzuschließen, so dass der besser lesbar ist.

...:cat:...


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:57 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz