[Risolto] Sqlite3 errore nelle ricerche

[DragoRosso]

    SQLQuery1.SQL.Text:= 'SELECT * FROM "'+Archivio+'" WHERE Intest = QuotedStr(Edit2.Text) ';

Prima e dopo Archivio usi si le virgolette che l'apostrofo. Poi QuotedStr và fuori la stringa. Termina il tutto con ';' Se ci sono errori ancora, metti anche li QuotedStr(Archivio).

Codice Seleziona Espandi

SQLQuery1.SQL.Text:= 'SELECT * FROM '+Archivio+' WHERE Intest = '+QuotedStr(Edit2.Text) +';';

Poi dopo la Open, conviene sempre inserire un FIRST (cursore alla prima riga).

Ciao

[Stilgar]

per me la soluzione più pulita è questa

Codice Seleziona Espandi


SQLQuery1.SQL.Text:= 'SELECT * FROM Archivio WHERE Intest =:par1';
SQLQuery1.ParamByName('par1').Value := Edit1.text;

La soluzione proposta da Brunello non l'hai provata?


A me sembra possa toglierti dai guai.
(Ed è quella più pulita in assoluto).


Stilgar

[DragoRosso]

per me la soluzione più pulita è questa

Codice Seleziona Espandi


SQLQuery1.SQL.Text:= 'SELECT * FROM Archivio WHERE Intest =:par1';
SQLQuery1.ParamByName('par1').Value := Edit1.text;

La soluzione proposta da Brunello non l'hai provata?


A me sembra possa toglierti dai guai.
(Ed è quella più pulita in assoluto).


Stilgar

Archivio non è la tabella 'Archivio', è la variabile stringa ... il nome della tabella è 'Fornitori'.

Il codice di Brunello sarà (non conosceo l'uso dei parametri quindi non sò se quella parte è corretta):

Codice Seleziona Espandi


SQLQuery1.SQL.Text:= 'SELECT * FROM '+Archivio+' WHERE Intest =:par1';
SQLQuery1.ParamByName('par1').Value := Edit2.text;
[/quote]

'Notte

[Stilgar]

Allora farei una cosa del genere:

Codice Seleziona Espandi


sql := Format(SELECT * FROM %s WHERE Intest =:par1',[Archivio]);



In questo modo la lettura della stringa resta abbastanza buona e si può trovare eventuali errori di battitura.


Stilgar

[brunello]

per evitare di enumerare tutti i santi del paradiso prima di chiamare la

Codice Seleziona Espandi

sqlquery1.open
// inserisco questa comando
sqlquery1.sql.savetofile('errore.sql');

nel caso in cui utilizzo i parametri occorre utilizzare questa piccola procedura per salvare anche i parametri associati che altrimenti andrebbero persi

Codice Seleziona Espandi


procedure TDati.SalvaQuery(vDati: TQuery; nomefile: string);
var
  lista: TStringList;
  i: Integer;
begin
  lista := TStringList.Create;
  lista.Assign(vDati.SQL);
  for i := 0 to vDati.Params.Count -1 do
    lista.Add(vDati.Params[i].Name + ' = ' + VarToStr(vDati.Params[i].Value));
  lista.SaveToFile(nomefile);
  lista.Free;
end;

[sergio]

Grazie a tutti , faccio alcune prove e vi comunicherò il risultato . Purtroppo prima del fine settimana non riesco a lavorarci sopra .Grazie mille  !

[sergio]

Grazie mille a tutti per i vari suggerimenti , tutti molto apprezzati ! Ho provato il il sistema suggerito da Brunello che per le mie capacità è risultato il più semplice e  funziona perfettamente.
Volevo chiedere comunque se c'era la possibilità di modificare 

SQLQuery1.SQL.Text:= 'SELECT * FROM '+Archivio+' WHERE Intest =:par1';
SQLQuery1.ParamByName('par1').Value := Edit2.text;

per  mettere un Like che consenta la ricerca anche se non si digitalizza l'intera stringa ricercata !
io ho provato a mettere

SQLQuery1.SQL.Text:= 'SELECT * FROM '+Archivio+' WHERE Intest LIKE:par1';
SQLQuery1.ParamByName('par1').Value := Edit2.text;

la ricerca funziona sempre, ma solo se il parametro ricercato stringa è perfettamente uguale a quello nel db.
Grazie anticipatamente

[DragoRosso]

Ciao,
devi  usare i pattern % oppure _ per la ricerca:

%po ricerca pippo peppo troppo lampo

po% ricerca polipo polpetta polifemo

tr_ppo ricerca troppo treppo trippo

Ovviamente puoi usarli anche insieme.

https://www.sqlitetutorial.net/sqlite-like/

[sergio]

Ciao DragoRosso scusa , ma in questa Query

SQLQuery1.SQL.Text:= 'SELECT * FROM '+Archivio+' WHERE Intest Like :intest';
    SQLQuery1.ParamByName('intest ').Value := Edit2.text;

dove intest è il nome del campo del database , mentre Edit2.Text è il dato da ricercare .
come li inseriresti i pattern % ?
Io ho provato, ma non riesco a trovare il modo .
Un  aiuto mi sarebbe molto utile !
Se qualcuno potesse darmi una dritta ,  grazie mille !

[DragoRosso]

...... mentre Edit2.Text è il dato da ricercare .
come li inseriresti i pattern % ?

Porprio li, in Edit2.TEXT.
Esempio:

Codice Seleziona Espandi


Edit2.Text := 'fa%';


Ricerca nelle righe la cui colonna Intest ha un valore che inizia per 'fa', come fattoria, farina, fagiolo .......

Ciao

[sergio]

Grazie  mille !  Ho risolto mettendo

SQLQuery1.SQL.Text:= 'SELECT * FROM '+Archivio+' WHERE Intest like :Intest';
    SQLQuery1.ParamByName('Intest').Value := '%'+Edit2.Text+'%';

Grazie mille a tutti per l'aiuto e la pazienza avuta !!