Ajuda em delete via Delphi
08/08/2008
0
Como proceder um um delete via delphi exemplo:
Faço uma consulta
if DMBusca.cdsBuscaPreVenda.RecordCount < 1 then
exit
else
begin
-----> Aqui o precedimento do Delete
end
Faço uma consulta
DMBusca.cdsBuscaPreVenda.Close;
DMBusca.cdsBuscaPreVenda.Params.ParamByName(´PCMD_PREVDA´).AsString := edtComanda.Text;
DMBusca.cdsBuscaPreVenda.Open;if DMBusca.cdsBuscaPreVenda.RecordCount < 1 then
exit
else
begin
-----> Aqui o precedimento do Delete
end
Alves_sp
Curtir tópico
+ 0
Responder
Posts
08/08/2008
Leufmt
if DMBusca.cdsBuscaPreVenda.RecordCount < 1 then
exit
else
begin
DMBusca.cdsBuscaPreVenda.Delete
end
exit
else
begin
DMBusca.cdsBuscaPreVenda.Delete
end
Responder
08/08/2008
Webjoel
Olá!
A solução do postada acima funciona, porém é preciso verificar se este cds tem provider, para fazer o ApplyUpdates no banco de dados.
Caso seja um DataSet soh para consulta, pode ser feito um ExecuteDirect,
EX:
Com isso já apaga no banco de dados na hora.
Boas Compilações!
A solução do postada acima funciona, porém é preciso verificar se este cds tem provider, para fazer o ApplyUpdates no banco de dados.
Caso seja um DataSet soh para consulta, pode ser feito um ExecuteDirect,
EX:
Dm.SqlConnection.ExecuteDirect(´delete from tabela where campo = ´ + <parametro recebido do DataSet de consulta>);
Com isso já apaga no banco de dados na hora.
Boas Compilações!
Responder
08/08/2008
Alves_sp
Valew pela dica
Olá!
A solução do postada acima funciona, porém é preciso verificar se este cds tem provider, para fazer o ApplyUpdates no banco de dados.
Caso seja um DataSet soh para consulta, pode ser feito um ExecuteDirect,
EX:
Com isso já apaga no banco de dados na hora.
Boas Compilações!
Dm.SqlConnection.ExecuteDirect(´delete from tabela where campo = ´ + <parametro recebido do DataSet de consulta>);
Responder
Clique aqui para fazer login e interagir na Comunidade :)
