 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
vitorguima.rs
Novato
Registrado: Terça-Feira, 22 de Mai de 2007
Mensagens: 98
|
 Enviada: Sáb Dez 18, 2010 5:53 pm Assunto: IBdataSet1: Cannot Modify a read-only dataSet[RESOLVIDO] |
 |
|
Pessoal boa tarde , estou com um problema no form de vendas ...
Ta dizendo que meu dataSet esta somente para leitura ....
e gera esse erro: IBdataSet1: Cannot Modify a read-only dataSet
vou colocar o código aqui segue o código abaixo:
procedure TFrmVendas.MaskQuantidadeExit(Sender: TObject);
var
intQuantidade:integer;
begin
if trim(maskQuantidade.Text) = '' then
intQuantidade:=0
else
intQuantidade:= strtoint(trim(maskQuantidade.Text));
if intQuantidade > 0 then
begin
IBdataSet1.Append;
IBdataSet1.FieldByName('ID').AsInteger := intRegistro;
IBdataSet1.FieldByName('CODIGOPRODUTO').AsString:=maskCodigo.Text;
IBdataSet1.FieldByName('DESCRICAO').AsString:=fldTitulo.Caption;
IBdataSet1.FieldByName('UNIDADE').AsString:='UN';
IBdataSet1.FieldByName('QUANTIDADE').AsInteger:=IntQuantidade;
IBdataSet1.FieldByName('PRECOUNITARIO1').AsFloat:=strtofloat(fldPrecoUnitario.Caption);
IBdataSet1.FieldByName('DESCONTO').AsFloat:=strtofloat(trim(fldDesconto.Caption));
IBdataSet1.FieldByName('ALIQUOTAICMS').AsFloat:=0;
IBdataSet1.Post;
Dm.Trans.CommitRetaining;
inc(intRegistro);
MostraTotal;
LimparEntrada;
end
else
begin
Application.MessageBox(Pchar('Quantidade deve ser maior que zero!'),Pchar('Mensagem'),MB_OK);
maskQuantidade.Text:='1';
maskQuantidade.SetFocus;
end;
vwl. pessoal, fico no aguardo.
Editado pela última vez por vitorguima.rs em Sáb Dez 18, 2010 6:55 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
| Enviada: Sáb Dez 18, 2010 6:09 pm Assunto: Re: IBdataSet1: Cannot Modify a read-only dataSet |
|
|
| vitorguima.rs escreveu: | Pessoal boa tarde , estou com um problema no form de vendas ...
Ta dizendo que meu dataSet esta somente para leitura ....
e gera esse erro: IBdataSet1: Cannot Modify a read-only dataSet
vou colocar o código aqui segue o código abaixo:
procedure TFrmVendas.MaskQuantidadeExit(Sender: TObject);
var
intQuantidade:integer;
begin
if trim(maskQuantidade.Text) = '' then
intQuantidade:=0
else
intQuantidade:= strtoint(trim(maskQuantidade.Text));
if intQuantidade > 0 then
begin
IBdataSet1.Append;
IBdataSet1.FieldByName('ID').AsInteger := intRegistro;
IBdataSet1.FieldByName('CODIGOPRODUTO').AsString:=maskCodigo.Text;
IBdataSet1.FieldByName('DESCRICAO').AsString:=fldTitulo.Caption;
IBdataSet1.FieldByName('UNIDADE').AsString:='UN';
IBdataSet1.FieldByName('QUANTIDADE').AsInteger:=IntQuantidade;
IBdataSet1.FieldByName('PRECOUNITARIO1').AsFloat:=strtofloat(fldPrecoUnitario.Caption);
IBdataSet1.FieldByName('DESCONTO').AsFloat:=strtofloat(trim(fldDesconto.Caption));
IBdataSet1.FieldByName('ALIQUOTAICMS').AsFloat:=0;
IBdataSet1.Post;
Dm.Trans.CommitRetaining;
inc(intRegistro);
MostraTotal;
LimparEntrada;
end
else
begin
Application.MessageBox(Pchar('Quantidade deve ser maior que zero!'),Pchar('Mensagem'),MB_OK);
maskQuantidade.Text:='1';
maskQuantidade.SetFocus;
end;
vwl. pessoal, fico no aguardo. |
Ola amigo, vc configurou as propriedades dos datasets deste componente para ele poder gravar?
Existe algumas propriedades que devem ser configuradas com instrução SQL.
Não lembro de cabeça aqui, mais procure as propriedades InsertSQL, ModifySQL e DeleteSQL se estiver correto o nome que eu passei, são elas que fazer com que seu componente grave, insere e exclui ... Ai vc pode utilizar o post, insert, edit e delete normalmente.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
| Voltar ao Topo |
|
|
vitorguima.rs
Novato
Registrado: Terça-Feira, 22 de Mai de 2007
Mensagens: 98
|
| Enviada: Sáb Dez 18, 2010 6:25 pm Assunto: Re: IBdataSet1: Cannot Modify a read-only dataSet |
|
|
| adriano_servitec escreveu: | | vitorguima.rs escreveu: | Pessoal boa tarde , estou com um problema no form de vendas ...
Ta dizendo que meu dataSet esta somente para leitura ....
e gera esse erro: IBdataSet1: Cannot Modify a read-only dataSet
vou colocar o código aqui segue o código abaixo:
procedure TFrmVendas.MaskQuantidadeExit(Sender: TObject);
var
intQuantidade:integer;
begin
if trim(maskQuantidade.Text) = '' then
intQuantidade:=0
else
intQuantidade:= strtoint(trim(maskQuantidade.Text));
if intQuantidade > 0 then
begin
IBdataSet1.Append;
IBdataSet1.FieldByName('ID').AsInteger := intRegistro;
IBdataSet1.FieldByName('CODIGOPRODUTO').AsString:=maskCodigo.Text;
IBdataSet1.FieldByName('DESCRICAO').AsString:=fldTitulo.Caption;
IBdataSet1.FieldByName('UNIDADE').AsString:='UN';
IBdataSet1.FieldByName('QUANTIDADE').AsInteger:=IntQuantidade;
IBdataSet1.FieldByName('PRECOUNITARIO1').AsFloat:=strtofloat(fldPrecoUnitario.Caption);
IBdataSet1.FieldByName('DESCONTO').AsFloat:=strtofloat(trim(fldDesconto.Caption));
IBdataSet1.FieldByName('ALIQUOTAICMS').AsFloat:=0;
IBdataSet1.Post;
Dm.Trans.CommitRetaining;
inc(intRegistro);
MostraTotal;
LimparEntrada;
end
else
begin
Application.MessageBox(Pchar('Quantidade deve ser maior que zero!'),Pchar('Mensagem'),MB_OK);
maskQuantidade.Text:='1';
maskQuantidade.SetFocus;
end;
vwl. pessoal, fico no aguardo. |
Ola amigo, vc configurou as propriedades dos datasets deste componente para ele poder gravar?
Existe algumas propriedades que devem ser configuradas com instrução SQL.
Não lembro de cabeça aqui, mais procure as propriedades InsertSQL, ModifySQL e DeleteSQL se estiver correto o nome que eu passei, são elas que fazer com que seu componente grave, insere e exclui ... Ai vc pode utilizar o post, insert, edit e delete normalmente. |
Agora gera isso :
attempted update of read-only column
Amigo ja estou com esse problema faz tempo e ninguém ainda conseguiu solucionar isso...
Sabe o que pode gerar esse erro?
attempted update of read-only column
Abraços..
Editado pela última vez por vitorguima.rs em Sáb Dez 18, 2010 6:32 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
| Enviada: Sáb Dez 18, 2010 6:31 pm Assunto: Re: IBdataSet1: Cannot Modify a read-only dataSet |
|
|
| vitorguima.rs escreveu: | | adriano_servitec escreveu: | | vitorguima.rs escreveu: | Pessoal boa tarde , estou com um problema no form de vendas ...
Ta dizendo que meu dataSet esta somente para leitura ....
e gera esse erro: IBdataSet1: Cannot Modify a read-only dataSet
vou colocar o código aqui segue o código abaixo:
procedure TFrmVendas.MaskQuantidadeExit(Sender: TObject);
var
intQuantidade:integer;
begin
if trim(maskQuantidade.Text) = '' then
intQuantidade:=0
else
intQuantidade:= strtoint(trim(maskQuantidade.Text));
if intQuantidade > 0 then
begin
IBdataSet1.Append;
IBdataSet1.FieldByName('ID').AsInteger := intRegistro;
IBdataSet1.FieldByName('CODIGOPRODUTO').AsString:=maskCodigo.Text;
IBdataSet1.FieldByName('DESCRICAO').AsString:=fldTitulo.Caption;
IBdataSet1.FieldByName('UNIDADE').AsString:='UN';
IBdataSet1.FieldByName('QUANTIDADE').AsInteger:=IntQuantidade;
IBdataSet1.FieldByName('PRECOUNITARIO1').AsFloat:=strtofloat(fldPrecoUnitario.Caption);
IBdataSet1.FieldByName('DESCONTO').AsFloat:=strtofloat(trim(fldDesconto.Caption));
IBdataSet1.FieldByName('ALIQUOTAICMS').AsFloat:=0;
IBdataSet1.Post;
Dm.Trans.CommitRetaining;
inc(intRegistro);
MostraTotal;
LimparEntrada;
end
else
begin
Application.MessageBox(Pchar('Quantidade deve ser maior que zero!'),Pchar('Mensagem'),MB_OK);
maskQuantidade.Text:='1';
maskQuantidade.SetFocus;
end;
vwl. pessoal, fico no aguardo. |
Ola amigo, vc configurou as propriedades dos datasets deste componente para ele poder gravar?
Existe algumas propriedades que devem ser configuradas com instrução SQL.
Não lembro de cabeça aqui, mais procure as propriedades InsertSQL, ModifySQL e DeleteSQL se estiver correto o nome que eu passei, são elas que fazer com que seu componente grave, insere e exclui ... Ai vc pode utilizar o post, insert, edit e delete normalmente. |
Agora gera isso :
attempted update of read-only column |
E o q vc colocou nas instruções SQL ? La vc coloca comandos de SQL
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
|
| Voltar ao Topo |
|
|
vitorguima.rs
Novato
Registrado: Terça-Feira, 22 de Mai de 2007
Mensagens: 98
|
| Enviada: Sáb Dez 18, 2010 6:37 pm Assunto: Re: IBdataSet1: Cannot Modify a read-only dataSet |
|
|
| adriano_servitec escreveu: | | vitorguima.rs escreveu: | | adriano_servitec escreveu: | | vitorguima.rs escreveu: | Pessoal boa tarde , estou com um problema no form de vendas ...
Ta dizendo que meu dataSet esta somente para leitura ....
e gera esse erro: IBdataSet1: Cannot Modify a read-only dataSet
vou colocar o código aqui segue o código abaixo:
procedure TFrmVendas.MaskQuantidadeExit(Sender: TObject);
var
intQuantidade:integer;
begin
if trim(maskQuantidade.Text) = '' then
intQuantidade:=0
else
intQuantidade:= strtoint(trim(maskQuantidade.Text));
if intQuantidade > 0 then
begin
IBdataSet1.Append;
IBdataSet1.FieldByName('ID').AsInteger := intRegistro;
IBdataSet1.FieldByName('CODIGOPRODUTO').AsString:=maskCodigo.Text;
IBdataSet1.FieldByName('DESCRICAO').AsString:=fldTitulo.Caption;
IBdataSet1.FieldByName('UNIDADE').AsString:='UN';
IBdataSet1.FieldByName('QUANTIDADE').AsInteger:=IntQuantidade;
IBdataSet1.FieldByName('PRECOUNITARIO1').AsFloat:=strtofloat(fldPrecoUnitario.Caption);
IBdataSet1.FieldByName('DESCONTO').AsFloat:=strtofloat(trim(fldDesconto.Caption));
IBdataSet1.FieldByName('ALIQUOTAICMS').AsFloat:=0;
IBdataSet1.Post;
Dm.Trans.CommitRetaining;
inc(intRegistro);
MostraTotal;
LimparEntrada;
end
else
begin
Application.MessageBox(Pchar('Quantidade deve ser maior que zero!'),Pchar('Mensagem'),MB_OK);
maskQuantidade.Text:='1';
maskQuantidade.SetFocus;
end;
vwl. pessoal, fico no aguardo. |
Ola amigo, vc configurou as propriedades dos datasets deste componente para ele poder gravar?
Existe algumas propriedades que devem ser configuradas com instrução SQL.
Não lembro de cabeça aqui, mais procure as propriedades InsertSQL, ModifySQL e DeleteSQL se estiver correto o nome que eu passei, são elas que fazer com que seu componente grave, insere e exclui ... Ai vc pode utilizar o post, insert, edit e delete normalmente. |
Agora gera isso :
attempted update of read-only column |
E o q vc colocou nas instruções SQL ? La vc coloca comandos de SQL |
No IBdataSet em EditSQL eu coloquei Isso:
SELECT * FROM VENDAS
E depois fui em DataSetEditor
Selecionei a chave Primária e na outra coluna selecionei todos os campos
para gerar as instruções SQL.
e cliquei no botão GENERATE SQL.
depois add todos os campos no IBdataSet.
mas gera esse erro
attempted update of read-only column
outra coisa quando crio um outro IBdataSet.
faço todos esses procedimentos mas na hora de ( add os registros ), ja gera esse erro:
attempted update of read-only column
O que pode ser Adriano?
Abraços... |
|
| Voltar ao Topo |
|
|
vitorguima.rs
Novato
Registrado: Terça-Feira, 22 de Mai de 2007
Mensagens: 98
|
| Enviada: Sáb Dez 18, 2010 6:46 pm Assunto: |
|
|
Adriano é o mesmo problema ...
Tem triger no banco ..
Alias é as mesmas coisas .....
Mesmos campos..
Computed by...
Mas não entendi bem o que ele fez para resolver
Abraços. |
|
| Voltar ao Topo |
|
|
vitorguima.rs
Novato
Registrado: Terça-Feira, 22 de Mai de 2007
Mensagens: 98
|
| Enviada: Sáb Dez 18, 2010 6:55 pm Assunto: |
|
|
Matou a charada .... tú é o cara ..
Vlw Adriano...
Mais uma vez vc me salvou...
Obrigado. |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
