ActiveDelphi

[alex00i]

olá pessoal,

Por favor, se possível alguém pode me ajudar a inserir em um novo campo de uma tabela paradox? Criei um novo campo e ele não preenche.

Ex:
cadmat.edit;
cadmatcampovelho.value := 'valor'; // OK recebe sem problemas

cadmat.edit;
cadmatnovocampo.value := 'valor'; // Não recebe nada e nem da erro


obrigado

[adriano_servitec]

[alex00i]

[adriano_servitec]

[alex00i]

[adriano_servitec]

Olha eu nao sei o pq nao esta recebendo ja que vc incluiu este novo campo na tabela, talvez esteja faltando declarar no DataSet o fields do campo, mais assim com a falta do fields poderia causar algum tipo de erro.

Mais vamos tentar assim
Supondo que vc vai gravar o que lançou desta forma (usando um Table)

cadmat.append; //ou edit se caso a tabela ja esteja em modo de instert
cadmat.fieldbyname('campovelho').value := valor; //deduzi ser uma variavel se for nao precisa do '' se nao vai gravar o que tem dentro das aspas '' no banco ou seja valor
cadmat.fieldbyname('novocampo').value := valor;/passa a variavel ou no caso se vc estiver usando um edit para digitar S ou N ai vc tem que mudar para edit(x).text.
cadmat.fieldbyname('novocampo').value := edit(x).text;

Esse campo novocampo eh de que tipo
LOGICAL
VARCHAR
INTEGER
ETC...

Talvez tenha que modificar na hora de passar o valor.

Se nada disso funcionar, explique melhor o tipo do campo, qual componente vc usa para gravar.
_________________
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

[gustavocco]

Evite duplicar tópicos.

Grato.
http://www.activedelphi.com.br/forum/viewtopic.php?t=29817
_________________
Top System - www.topsystem.com.br

[alex00i]

Primeiramente obrigado por me responder.

Vamos lá,

1- O campo no dataset está adcionado. Inclusive aparecendo no autocomplete. OK
2- No meu código é mais simples ainda. No onClick de um botão acontece(ou gostaria que acontecesse):

procedure Tca11.Button6Click(Sender: TObject);
begin

if (Application.MessageBox('Confirma que o aluno participou do ENADE?', 'Confirmação', MB_YESNO) = IDYES) then
begin
cadmat.Edit;
cadmatSitCra.Value := '77'; //Este recebe o valor sem problemas
cadmatEnade.Value := 'S'; //Este não recebe e nem altera nada e nem dá erro
cadmat.Post;
end;

end;

3- O tipo de campo é alpha do paaradox
4- cadmat.Append dá key violation
5- Usando fieldbyname também não entra.