SQLITE "INSERT INTO ......SELECT * FROM DB2..........WHERE........"[RISOLTO]

[antoniog]

Linux Mint mate 19x64 - Zeoslib - sqliteBuongiorno,
Voglio copiare alcuni record in base ad una stringa da una tabella in un'altra.Aggiungo un database al database in uso

Codice: [Seleziona]

ZQuery2.Active:=False;
ZQuery2.SQL.Text:= 'ATTACH '+''''+Label149.Caption+''''+' AS '+'''DB2''';
ZQuery2.Active:=True; 

Faccio un ciclo while per creare una stringa che mi servirà per il filtro

Codice: [Seleziona]

mTable:='totarticoli';
Ztable2.Active:=False;
Ztable2.TableName:='lotti';
mcosa:='';
Ztable2.Active:=True;
Ztable2.First;
while not Ztable2.Eof do
 begin
   mcosa:= mcosa+Ztable2Num.Text;
   Ztable2.Next;
 end;

A questo punto dovrei dare l'istruzione sql per copiarmi tutti i record dalla seconda tabella nella prima in base al campo riparto di una lettera che deve essere presente nella stringa mcosa.

Codice: [Seleziona]

DMPcopia.ZQuery2.Active:=False;
ZQuery2.SQL.Text:= 'INSERT INTO '+mtable+' SELECT * FROM DB2.'+mtable+' WHERE riparto='+mcosa+';';
DMPcopia.ZQuery2.Active:=True;   

Dovrei utilizzare un'istruzione tipo pos()>0 . Nel codice inserito non funziona neanche ' WHERE riparto='+mcosa e non capisco perchè, mi da l'errore : SQL Error: SQL logic error: no such column: AB1C.Ho bisogno d'aiuto. Grazie.

[xinyiman]

  Hai provato ad eseguire la query direttamente in un client sqlite? Perchè alcuni RDBMS usano la sintassi
 
  insert into nome_tabella2 select column1, column2, column3 from nome_tabella1
 
  mentre altri RDBMS usano la sintassi
 
  insert into nome_tabella2 (column1, column2, column3) select column1, column2, column3 from nome_tabella1

  dove le colonne del selecct devono essere elencate nell'esatto ordine in relazione all'insert. Questo è il primo consiglio che mi viene in mente.
  Diversamente conviene sempre allegare un esempio che permetta di riprodurre il problema. Così anche per noi è più facile darti una mano.

[antoniog]

il problema è nella condizione where...
così funziona ma mi copia tutti i record
'INSERT INTO '+mtable+' SELECT * FROM DB2.'+mtable+';';

[xinyiman]

Allora facci avere il contenuto di mcosa e vediamo che cerchi di passargli. Perchè sembra non trovi una delle colonne.

[antoniog]

mcosa è = 'ABC' ma può essere diverso, una stringa composta da caratteri e numeri
riparto è = 'A' o 'B' o qualsiasi lettera o numero di un caratteredevo copiare i record in cui riparto è in mcosa
per esempio tipo questo:
where riparto pos('A', 'ABC')>0 copia

[xinyiman]

Allora è presto detto la tua query è così composta

'INSERT INTO '+mtable+' SELECT * FROM DB2.'+mtable+' WHERE riparto='+mcosa+';';

e deve diventare

'INSERT INTO '+mtable+' SELECT * FROM DB2.'+mtable+' WHERE riparto='''+mcosa+''';';

E ovviamente non devi passare il carattere ' nella mcosa altrimenti lo devi raddoppiare.

[xinyiman]

Tutto questo perchè il carattere ' è il delimitatore di stringa in lazarus. Quindi per inserire il carattere ' dentro una stringa devi digitarlo 2 volte. Ad esempio se vuoi scrivere il capo e' arrivato dentro la variabile var1 devi scrivere:

var1:='il capo e'' arrivato';

[guest1752]

ciao, un altro modo di risolvere il problema è utilizzando i parametri nelle query che fai invece che comporti la query.

[antoniog]

Grazie Xinvimar, così funziona ma io devo copiare se il carattere 'A' del campo 'riparto'  è presente nella stringa 'ABCD'

[antoniog]

Superc, non ho capito

[xinyiman]

'INSERT INTO '+mtable+' SELECT * FROM DB2.'+mtable+' WHERE riparto like '%''+mcosa+''%';';

[guest1752]

un pezzo di codice di esempio:

Codice: [Seleziona]

function TmainForm.insertRecordIntoDb(tri: TRecimport): Boolean;
var
  qry : TZQuery;
begin
  Result := false;
  try
    try
      qry := TZQuery.Create(nil);
      qry.Connection := conn;
      qry.SQL.Add('insert into import_clienti_fornitori (cod, nome,  paese, indirizzo, cap, loc, prov, telefono, tel_port, fax, partita_iva) '+
                  ' values (:cod, :nome,  :paese, :indirizzo, :cap, :loc, :prov, :telefono, :tel_port, :fax, :partita_iva)');

      qry.ParamByName('cod').AsString:=tri.cod;

      qry.ParamByName('nome').AsString:=tri.nome;
      qry.ParamByName('paese').AsString:=tri.paese;
      qry.ParamByName('indirizzo').AsString:=tri.indirizzo;
      qry.ParamByName('cap').AsString:=tri.cap;
      qry.ParamByName('loc').AsString:=tri.loc;
      qry.ParamByName('prov').AsString:=tri.prov;
      qry.ParamByName('telefono').AsString:=tri.tel;
      qry.ParamByName('tel_port').AsString:=tri.cell;
      qry.ParamByName('fax').AsString:=tri.fax;
      qry.ParamByName('partita_iva').AsString:=tri.pi;

      qry.ExecSQL;
      Result := True;
    except
      on e: exception do
      begin
           ShowMessage('Error...'+e.Message);
      end;
    end;
  finally
    qry.Free;
  end;
end;    

[antoniog]

'INSERT INTO '+mtable+' SELECT * FROM DB2.'+mtable+' WHERE riparto like '%''+mcosa+''%';';
Fatal: Syntax error, ";" expected but "ordinal const" found

[xinyiman]

Scusa, prova con

'INSERT INTO '+mtable+' SELECT * FROM DB2.'+mtable+' WHERE riparto like ''%'+mcosa+'%'';';

è per questo che è sempre meglio postare un esempio che riproduce il codice. A quest'ora avremmo già risolto

[antoniog]

Grazie Xinvimar, così funziona.Mi scuso ma non potevo inviare un esempio, questa parte sono solo poche righe di codice ma il progetto a cui lavoro è molto grande e pesante da inviare.