Delphi - visualizzare i risultati di una query

[kate71]

WAWWW !! In questo modo funziona!!!

ho spezzato il codice INSERT-SELECT in due parti.
In questo modo la SELECT mostra nel DBGrid
la ricerca effettuata, poi faccio inserire
nella tabella di appoggio i dati che volevo.
A questo punto non so più a cosa possa servirmi
la tabella di appoggio.. ma potrà comunque tornare
utile sapere come è possibile fare un INSERT-SELECT.
:quote:



procedure TForm1.Button4Click(Sender: TObject);
var
qry_search ,qry_sel: string;
begin
DBGrid2.DataSource := DataSource6;

qry_sel := 'SELECT nome FROM test
WHERE nome =''' + DBEdit1.Text +''' ';

Query4.SQL.Text:= qry_sel;
Query4.Open;

qry_search := 'INSERT INTO apptest(nome) ' + qry_sel ;

Query3.Close ;
Query3.SQL.Clear ;
Query3.SQL.Add(qry_search);
Query3.ExecSQL ;

end;

Grazie !!!
Kate71

[alka]

Prego!

[kate71]

così funziona anche meglio seondo me!!



procedure TForm1.Button5Click(Sender: TObject);
var
qry_search, qry_sel, qry_show: string;
begin
Query5.Close ;
Query5.SQL.Clear ;
Query5.SQL.Add('DELETE FROM `apptest`');
Query5.ExecSQL ;

qry_sel := 'SELECT nome, id FROM test WHERE nome =''' + Edit1.Text +''' ' ;
qry_search := 'INSERT INTO apptest(nome, idTest) ' + qry_sel ;

Query3.Close ;
Query3.SQL.Clear ;
Query3.SQL.Add(qry_search);
Query3.ExecSQL ;


DBGrid2.DataSource := DataSource5;
qry_show := 'SELECT * FROM apptest';
Query6.SQL.Text:= qry_show;
Query6.Open;


Buon Lavoro!