🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.delphi.bazy-danych
Article #82715

Re: Kopiowanie , prośba o podpowiedź - kopiowanie pól z dbgrid

#82715
From: lordbz
Date: Mon, 30 Jan 2017 15:29
26 lines
2741 bytes
> ADOQuery3.Connection:=  AdoConnection1; 
> AdoQuery3.SQL.Clear; 

> przenieś tutaj 

to znaczy wywalić poza pętlę zapytanie SQL ??

że niby tak
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; 

to super ale wtedy co w pętli
to:
DBGrid2.DataSource.DataSet.Fields[z].Value);

pogubiłem się 
kurcze no...

każdy obrót pętli to pobranie kolejnego fielda (fields[z]) jak to przypisać do inserta w ADOQUERy
Technical Details
Message-ID: <813fa353-f246-4b33-8c1f-d12a0dff7841@googlegroups.com>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!news.nask.pl!news.nask.org.pl!newsfeed.pionier.net.pl!2.eu.feeder.erje.net!feeder.erje.net!2.us.feeder.erje.net!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder1.iad1.usenetexpress.com!216.166.98.84.MISMATCH!border1.nntp.dca1.giganews.com!nntp.giganews.com!i7no870036qta.1!news-out.google.com!78ni7671itm.0!nntp.google.com!r185no1344328ita.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
References: <4f0ed382-541b-47ba-8b98-a5d18bcd269e@googlegroups.com> <o6lqs9$kn0$1@node2.news.atman.pl>

Show Full Headers
Complete Article Headers
X-Received: by 10.200.38.215 with SMTP id 23mr6105783qtp.6.1485790142608;        Mon, 30 Jan 2017 07:29:02 -0800 (PST)
X-Received: by 10.157.39.202 with SMTP id c68mr1495846otb.8.1485790142557; Mon, 30 Jan 2017 07:29:02 -0800 (PST)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!news.nask.pl!news.nask.org.pl!newsfeed.pionier.net.pl!2.eu.feeder.erje.net!feeder.erje.net!2.us.feeder.erje.net!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder1.iad1.usenetexpress.com!216.166.98.84.MISMATCH!border1.nntp.dca1.giganews.com!nntp.giganews.com!i7no870036qta.1!news-out.google.com!78ni7671itm.0!nntp.google.com!r185no1344328ita.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.lang.delphi.bazy-danych
Date: Mon, 30 Jan 2017 07:29:02 -0800 (PST)
In-Reply-To: <o6lqs9$kn0$1@node2.news.atman.pl>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=46.76.108.156; posting-account=7n8jYQoAAAD8CMBk_0SEIjdWdfp4EnSW
NNTP-Posting-Host: 46.76.108.156
References: <4f0ed382-541b-47ba-8b98-a5d18bcd269e@googlegroups.com> <o6lqs9$kn0$1@node2.news.atman.pl>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <813fa353-f246-4b33-8c1f-d12a0dff7841@googlegroups.com>
Subject: Re: Kopiowanie , prośba o
 podpowiedź - kopiowanie pól z dbgrid
From: lordbz <lordbz@gmail.com>
Injection-Date: Mon, 30 Jan 2017 15:29:02 +0000
Lines: 34
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit