Newsgroup: it.comp.lang.delphi
Titolo: bookmark su query

ciao, sto facendo un ciclo di aggiornamento di alcuni campi, dopo aver fatto
edit e post mi si sposta il record corrente... qualcuno mi spiegherebbe come
fare per evitarlo? io avevo pensato al bookmark ma su un tquery non sembra
andare come da help!!!
Simone


non dovrebbe essere:
..
var
  myBM: TBookmark;
begin
  myBM:= Query1.GetBookmark;
 // operazioni varie
...
....
// fine operazioni varie
  Query1.GotoBookmark (myBM)
end;
ciao ciao

ho fatto la stessa cosa ma non va... riepilogo mia situazione:
querycontatti
queryindirizzi
querytelefoni
le ultime 2 query (tel e indiriz.) sono collegate tramite datasource e
tramite where nomekey= : nomekey
però ogni volta che eseguo un post mi sposta alla prima riga di
querycontatti!!!
Simo
"al" <x...@xx.xx> ha scritto nel messaggio
news:mZlFa.76694$Ny5.2...@twister2.libero.it...


bde? ado? ibx? doa? dbx?
Oracle? Interbase? Access? Paradox?
A

 ha scritto nel messaggio
news:bc4rc7$s9c$1...@newsreader2.mclink.it...


puioi postare un po di codice?
A

 Simone
-- 
Ciao, Anto', [35, 143, AQ] 
MB C SC 220 CDI Magma Red
"Di sempre cio' che senti
 e fai cio' che pensi."
	G. Garcìa Màrquez

 ha scritto nel messaggio
news:Xns9396BB688781Ban...@195.31.190.132...


ciao, ho provato con il commitret.... ma non funziona lo stesso!!
var
 n:integer;
 nRec:integer;
begin
 QueryContatti.open;
 QueryIndirizziContatti.open;
 QueryTelefoniContatti.Open;
 QueryContatti.first;
 while not QueryContatti.eof do
  begin
   //----
   QueryTelefoniContatti.First;
   n:=1;
   QueryContatti.edit;
   QueryContatti.fieldbyname('telefono1').asString:='';
   QueryContatti.fieldbyname('telefono2').asString:='';
   QueryContatti.fieldbyname('telefono3').asString:='';
   QueryContatti.fieldbyname('telefono4').asString:='';
   QueryContatti.fieldbyname('telefono5').asString:='';
   QueryContatti.fieldbyname('telefono6').asString:='';
   QueryContatti.fieldbyname('tipotel1').asString:='';
   QueryContatti.fieldbyname('tipotel2').asString:='';
   QueryContatti.fieldbyname('tipotel3').asString:='';
   QueryContatti.fieldbyname('tipotel4').asString:='';
   QueryContatti.fieldbyname('tipotel5').asString:='';
   QueryContatti.fieldbyname('tipotel6').asString:='';
   QueryContatti.post;
   IBTransaction1.CommitRetaining;
   while not QueryTelefoniContatti.eof do
    begin
     if n<=6 then
       begin
         QueryContatti.edit;
QueryContatti.fieldbyname('telefono'+inttostr(n)).asString:=QueryTelefoniCon
tatti.fieldbyname('phonenumber').asString;
QueryContatti.fieldbyname('tipotel'+inttostr(n)).asString:=QueryTelefoniCont
atti.fieldbyname('phonetype').asString;
         QueryContatti.post;
         IBTransaction1.CommitRetaining;
         n:=n+1;
        end;
     application.processmessages;
     showmessage('');
     QueryTelefoniContatti.next;
    end;
   QueryIndirizziContatti.first;
   n:=1;
   while not QueryIndirizziContatti.eof do
   begin
     if n<=4 then
      begin
       QueryContatti.edit;
QueryContatti.fieldbyname('AD'+inttostr(n)+'_addressline1').asString:=QueryI
ndirizziContatti.fieldbyname('addressline1').asString;
QueryContatti.fieldbyname('AD'+inttostr(n)+'_addressline2').asString:=QueryI
ndirizziContatti.fieldbyname('addressline2').asString;
QueryContatti.fieldbyname('AD'+inttostr(n)+'_postalcode').asString:=QueryInd
irizziContatti.fieldbyname('postalcode').asString;
QueryContatti.fieldbyname('AD'+inttostr(n)+'_streetnumber').asString:=QueryI
ndirizziContatti.fieldbyname('streetnumber').asString;
QueryContatti.fieldbyname('AD'+inttostr(n)+'_city').asString:=QueryIndirizzi
Contatti.fieldbyname('city').asString;
QueryContatti.fieldbyname('AD'+inttostr(n)+'_province').asString:=QueryIndir
izziContatti.fieldbyname('province').asString;
QueryContatti.fieldbyname('AD'+inttostr(n)+'_country').asString:=QueryIndiri
zziContatti.fieldbyname('country').asString;
       QueryContatti.post;
       IBTransaction1.CommitRetaining;
       n:=n+1;
      end;
    QueryIndirizziContatti.next;
   end;
   QueryContatti.next;
   nRec:=nRec+1;
   application.processmessages;
  end;
end;

 ha scritto nel messaggio
news:NzlFa.114270$g92.2...@news2.tin.it...
