Fórum A instrução DELETE do Sql não está funcionando... #223306
30/03/2004
0
estou presisando de uma sql que delete um conjunto de registro ao execultar... tentei isto
[b:6a3e27764b] procedure TForm.Button1Clik...
begin
with dtmo.QyDelete.Sql do
begin
clear;
dtmo.qydelete.close;
Add(´ Delete From Tabela´);
add(´ where valor = 1´)
dtmo.qydelete.open;
end;[/b:6a3e27764b]
end;
Ps. O enteressante é que quando executo no SQL EXPLORER funciona uma beleza mas quando pesso pra executar no programa dá uma ERRO MUITO DOITO...
Se puder ajudar a exclarecer a finalidade do evento é: ao deletar um registo que todos os registros da tabela relacionada também se deletem
Se tiverem uma maneira mais adequada, rotina sujeita a auteração...
Grato Luis Neto
Ps. GOSTEI DA POSIÇÃO DO AROURO EM RELAÇÃO A PROBLEMA DO NOSSO COLEGA QUE PERDEU SEU ARQUIVOS. FIQUEI MUITO TRISTE COM O OCORRIDO NO FOROM CLUBEDELPHI. EXISTEM PESSOS QUE USAM O CONHECIMENTO PARA FAZER O ERRADO.
[b:6a3e27764b]Título da mensagem editado pelo moderador Nildo[/b:6a3e27764b]
Luis Neto
Curtir tópico
+ 0Posts
30/03/2004
Marcio.theis
qry.ExecSQl em vez de qry.Open.
Gostei + 0
30/03/2004
Comodelphi
Gostei + 0
30/03/2004
Paulo_amorim
Como o colega ...(nao consigo saber qual o nome...ehehe :roll: ) disse, use qry.ExecSQL
Use qry.Open ou qry.Active := TRUE somente para operaçoes que retornem CURSOR (select)
Para alterçoes no banco, use ExecSQL
Gostei + 0
30/03/2004
Luis Neto
procedure TForm.Button1Clik...
begin
with dtmo.QyDelete.Sql do
begin
clear;
dtmo.qydelete.close;
Add(´ Delete From Tabela´);
add(´ where valor = 1´)
dtmo.qydelete.ExecSQL;
end;
end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)