Vincular código SQL em um button

Delphi

05/09/2003

Como eu faço para vincular um codigo SQL do banco de dados INTERBASE em um evento OnClick do botão ?

Ex.: Eu quero qdo clicar no botão (APAGAR), apague todos os registros da tabela, no exemplo eu gostaria de usar o código SQL  DELETE FROM <TABELA>


OBRIGADO,

RODRIGO CALIMAN


Rkaliman

Rkaliman

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

05/09/2003

rkaliman,
vc irá passar o código sql para sua query em tempo de execução, por exemplo :
[color=blue:a06070627a]query1.close;
query1.sql.clear;
query1.sql.add(´select * from clientes´);
query1.sql.add(´order by nome_cliente´);
query1.prepare;
query1.open;[/color:a06070627a]

para fazer a deleção vc usaria :
[color=blue:a06070627a]query1.close;
query1.sql.clear;
query1.sql.add(´delete from clientes where codigo_cliente = 5´);
query1.execSQL;[/color:a06070627a]

neste caso como provavelmente o codigo_cliente vai dinâmico, ou seja, vai variar de acordo com a seleção num grid, por exemplo, vc terá q criar um parâmetro na sua query para receber o valor do codigo_cliente, então o código seria passado desta forma :
[color=blue:a06070627a]query1.close;
query1.ParamByName(´codigo´).AsInteger := dbgrid1.Columns[0].Field.value;
query1.sql.clear;
query1.sql.add.sql.add(´delete from clientes where codigo_cliente = :codigo´);
query1.execSQL;[/color:a06070627a]
no caso usei o índice 0 da coluna da dbgrid1, porque supus que o código do cliente esteja na primeira coluna, mas isso pode variar de acordo com as suas necessidades...

espero ter ajudado...


GOSTEI 0
POSTAR