Fórum DBexpress , Socorro.... #186082

Autor Mensagem
lhsrocha Enviada: Sex Out 03, 2003 3:55 pm Assunto: DBexpress , Socorro....

--------------------------------------------------------------------------------

Olá pessoal, estou tentando fazer um cadastro de clientes usando o DBexpress.
Na unit do datamodule eu criei uma função para controle de registro.
que referencia uma Sqltable(dbexpress)

function Tfrmdm.retorna_id(campo: string): integer;
begin
datasource.dataset.Open;
datasource.dataset.Edit;
datasource.dataset.FieldByName(campo).Value:=
datasource.dataset.FieldByName(campo).Value + 1 ;
datasource.dataset.Post;
result:= datasource.dataset.FieldByName(campo).Value;
tbcontrole.Close;
end;

Até aí tudo bem!!!
No evento do botão incluir eu fiz:

procedure Tfrmcadclientes.btincluirClick(Sender: TObject);
begin
glbescolha := ´I´;
frmdm.cdsclientes.Append;
frmdm.cdsclientesID_CLIENTE.Value := frmdm.retorna_id(´id_cliente´);
end;

Sendo que quano executo ele responde :

#

LEMBRE-SE

DBCONNECTION ==> DATASET ==> PROVIDER ==>CLIENTDATASET

LIGUE SEU DATASOURCE AO CLIENTDATASET


Cannot modify a read-only dataset



O que faço???
Agradeço desde já a ajuda, valeu !!!!