Fórum A instrução DELETE do Sql não está funcionando... #223306

30/03/2004

0

Prezados Senhores

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

Luis Neto

Responder

Posts

30/03/2004

Marcio.theis

Para executar comandos do tipo Update e delte deve-se usar o
qry.ExecSQl em vez de qry.Open.


Responder

Gostei + 0

30/03/2004

Comodelphi

Qual o Seu SGBD?????


Responder

Gostei + 0

30/03/2004

Paulo_amorim

Olá

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


Responder

Gostei + 0

30/03/2004

Luis Neto

então seria...

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;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar