Ajuda em delete via Delphi

08/08/2008

1

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


Responder

Posts

08/08/2008

Leufmt

if DMBusca.cdsBuscaPreVenda.RecordCount < 1 then
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:

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