[DELPHI 2006] Errore su query con dbExpress

[vicky]

Ciao!
Ho passato la domenica cercando di capire il perché di quest'errore: adesso mi arrendo!
Uso db Firebird ed i componenti DBExpress. Ho questa query :

procedure TformRepertorio.btCercaRepertorioClick(Sender: TObject);
var
  ImageFileName:string;
begin
  if cmbComune.KeyValue<>null then
  if cmbRepertorio.KeyValue<>null then
      CercaRepertorio.DataSet.CommandText:= 'select * from    Repertorio where Rep_comune=' +inttostr(cmbComune.keyvalue) + ' and Rep_intervallo= ' + (cmbRepertorio.text);
CercaRepertorio.active:=true;
begin

    ImageFileName:=CercaRepertorio.FieldByName('Rep_jpg').AsString;
    ImgRepertorio.Bitmap.LoadFromFile(ExtractFilePath(Application.exename)+'Repertori\'+ ImageFileName);
 end;
end;

L'errore è questo:
Database server error: Token unknown -line1, char 49 where.
Se metto dei break point le variabili rispondono perfettamente agli input esterni: io credo che sia un problema di sintassi della query perché dipende tutto da quel "where"... Di cosa potrebbe trattarsi?
Grazie per ogni eventuale aiuto!

[alka]

Se il parametro inserito "in linea" nella clausola WHERE è una stringa, occorre delimitarla con appositi apici.

Io suggerisco comunque di usare parametri al posto di accodare valori direttamente nella stringa.

Ciao!

[vicky]

Ciao!
Se anche sostituisco la query con

'select * from Repertorio where Rep_comune=' +
      inttostr(cmbComune.keyvalue) + ' and Rep_intervallo= ' + inttostr(cmbRepertorio.keyvalue);

il messaggio di errore non cambia minimamente.
Proverò con l'assegnazione dei parametri.
Grazie

[alka]

Che tipo di componente è CercaRepertorio?

Ciao!

[vicky]

E' un TSimpleDataset.

[alka]

Originariamente inviato da vicky
E' un TSimpleDataset.

Purtroppo non ho Delphi sottomano al momento, quindi non posso verificarlo ma...siamo sicuri che il componente non abbia una proprietà CommandText propria da utilizzare (senza accedere all'omonima proprietà del DataSet al suo interno)?

Ciao!

[vicky]

Ho provato con i parametri:
[Code ]
if cmbComune.KeyValue<>null then
if cmbRepertorio.KeyValue<>null then

CercaRepertorio.Params.ParamByName('Comune').AsInt eger:=Comune.FieldByName('Comune_id').AsInteger;
CercaRepertorio.Params.ParamByName('Intervallo').A sInteger:=Repertorio.FieldByName ('Rep_id').AsInteger;

CercaRepertorio.DataSet.CommandText:= 'select * from "Repertorio" where Rep_comune=:Comune and Rep_intervallo=:Intervallo';
CercaRepertorio.active:=true;
[/code]
Errore:
Unknown picture file extension (.)

Faccio presente che ho inserito JPEG nella sezione Uses della Unit, e che i miei file hanno l'estenzione jpg ovviemente.

[alka]

Originariamente inviato da vicky
Errore:
Unknown picture file extension (.)

Non vedo alcuna attinenza tra l'estensione del file e il caricamento di dati dalla query.

Credo che i due ambiti non abbiano nulla a che vedere l'uno con l'altro.

Ciao!

[vicky]

Purtroppo non ho Delphi sottomano al momento, quindi non posso verificarlo ma...siamo sicuri che il componente non abbia una proprietà CommandText propria da utilizzare (senza accedere all'omonima proprietà del DataSet al suo interno)?

Ho verificato io: non esiste proprietà CommandText legata direttamente al SimpleDataset senza passare per Dataset interno.

Tu pensi che il problema, quindi, non sia della query ma del codice successivo per visualizzare l'immagine. Bene. Il dubbio, però mi resta in quanto se metto un punto d'arresto dopo la query vedo che i parametri assegnati dall'esterno non passano all'interno della query mentre sono presenti nel codice precedente che uso per assegnare i valori ai parametri stessi. Mi sono spiegata?

[vicky]

Risolto!
C'era un problema di Parametro passato come integer invece che come string alla query.
Questo è il codice corretto:

CercaRepertorio.Params.ParamByName('Comune').AsInteger:=Comune.FieldByName('Comune_id').AsInteger;
    CercaRepertorio.Params.ParamByName('Intervallo').asstring :=Repertorio.FieldByName ('Rep_intervallo').Asstring ;

In effetti lo potevo sapere solo io che il valore passato alla query doveva essere tipo stringa...
Mi ha fuorviato il messaggio di errore, mettiamola così
Grazie ancora!