Problemas com ClientDataset
Pessoal
Estou usando ClientDataset em uma conexão dbexpress no Firebird..
O que acontece é que quando uso o método edit para alteração está sendo apontado como uma inserção. Para ter certeza que se inserção fiz um teste como no exemplo abaixo:
with CdsOrcamento do
begin
if DataSet.State = dsInsert then
begin
ShowMessage(´Modo de Inserção´);
FieldByName(´NUM_OR´).asInteger := DmConexao.ProximoRegistro(´NUM_OR´);
FieldByname(´DAT_CAD_OR´).asDatetime := Date;
FieldByname(´STATUS_OR´).asInteger := 0;
end
else if DataSet.State = dsEdit then ShowMessage(´Modo de Edição´);
end;
Quando uso o comando edit cai na mensagem de inserção como exemplo acima.. O que fazer ???
Rogério
Estou usando ClientDataset em uma conexão dbexpress no Firebird..
O que acontece é que quando uso o método edit para alteração está sendo apontado como uma inserção. Para ter certeza que se inserção fiz um teste como no exemplo abaixo:
with CdsOrcamento do
begin
if DataSet.State = dsInsert then
begin
ShowMessage(´Modo de Inserção´);
FieldByName(´NUM_OR´).asInteger := DmConexao.ProximoRegistro(´NUM_OR´);
FieldByname(´DAT_CAD_OR´).asDatetime := Date;
FieldByname(´STATUS_OR´).asInteger := 0;
end
else if DataSet.State = dsEdit then ShowMessage(´Modo de Edição´);
end;
Quando uso o comando edit cai na mensagem de inserção como exemplo acima.. O que fazer ???
Rogério
Rogeranalista
Curtidas 0
Respostas
Carlosrm
06/05/2005
RogerAnalista,
exclua ´dataset.´ que aparece no if e no else if.
Resumindo:
...
with CdsOrcamento do
begin
if State = dsInsert then
...
else if State = dsEdit then
...
end;
Sem usar ´with´ seria
if cdsOrcamento.state = dsInsert then
...
else if cdsOrcamento.state = dsEdit then
...
carlosrm
exclua ´dataset.´ que aparece no if e no else if.
Resumindo:
...
with CdsOrcamento do
begin
if State = dsInsert then
...
else if State = dsEdit then
...
end;
Sem usar ´with´ seria
if cdsOrcamento.state = dsInsert then
...
else if cdsOrcamento.state = dsEdit then
...
carlosrm
GOSTEI 0