Ajuda em delete via Delphi

Delphi

08/08/2008

Como proceder um um delete via delphi exemplo:


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

Alves_sp

Curtidas 0

Respostas

Leufmt

Leufmt

08/08/2008

if DMBusca.cdsBuscaPreVenda.RecordCount < 1 then
exit
else
begin
DMBusca.cdsBuscaPreVenda.Delete
end


GOSTEI 0
Webjoel

Webjoel

08/08/2008

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:

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!


GOSTEI 0
Alves_sp

Alves_sp

08/08/2008

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: 
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!



GOSTEI 0
POSTAR