Ciao, scusate se vi disturbo ancora...
praticamente io voglio visualizzare il risultato di una query su un form, se il testo SQL lo inserisco nella proprietà SQL dell'object inspector funziona, mentre se la inserisco da codice non vedo niente...
Grazie

Ciao

Federico

codice:
procedure Tfrm_ricerca_concorrente.cerca;
var 
flag_vuota: boolean; 
tipo_ricerca_num: integer; 
tipo_ricerca : string; 
testo_query : String; 
msg: string;
begin 
// controllo cosa si vuole cercare 
if (rb_sicard.Checked=True) then 
begin
   txt_prova.Text:= txt_sicard.Text;
   tipo_ricerca_num:= 0; 
end; 
if (rb_pettorale.Checked=True) then
begin
   txt_prova.Text:= txt_pettorale.Text;
   tipo_ricerca_num:= 1; 
end;
if (rb_nome.Checked=True) then
begin 
   txt_prova.Text:= txt_nome.Text;
   tipo_ricerca_num:= 2; 
end; 
// controllo che la condizione di ricerca non sia vuota 
if (txt_prova.Text = '') then 
begin 
   flag_vuota := True;
   msg := 'Non hai immesso alcun testo';
   MessageDlg(msg, mtWarning, [mbOK], 0);
   end
else
begin
   if (tipo_ricerca_num = 0) then
   begin
      tipo_ricerca := 'sicard'; 
      testo_query := 'SELECT * FROM iscritti WHERE ' + tipo_ricerca + ' = ' + txt_prova.Text + ';';
   end;
   if (tipo_ricerca_num = 1) then
   begin 
      tipo_ricerca := 'pettorale'; 
      testo_query := 'SELECT * FROM iscritti WHERE ' + tipo_ricerca + ' = ' + txt_prova.Text + ';';
   end;
  if (tipo_ricerca_num = 2) then
  begin
      tipo_ricerca := 'nome'; 
      testo_query := 'SELECT * FROM iscritti WHERE ' + tipo_ricerca + ' like "%' + txt_prova.Text + '%";';
   end; 
   txt_sql.Text := testo_query; query_ricerca_concorrente.Close; 
   query_ricerca_concorrente.SQL.Clear; 
   query_ricerca_concorrente.SQL.Add(testo_query);    
   query_ricerca_concorrente.Open; 
   query_ricerca_concorrente.Active:= True;
   txt_sql.Text := query_ricerca_concorrente.SQL.GetText;
   Application.CreateForm(Tfrm_modifica_concorrente, frm_modifica_concorrente); 
   frm_modifica_concorrente.Show; frm_modifica_concorrente.BringToFront; 
   //frm_ricerca_concorrente.Close;  
end; 
end;