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;