Quando eu em inserir o registro e automaticamente cancelado

Question

Se eu tirar o Repeat funciona normal mais se eu deixar o registro e inserido e cancelado automaticamente... PQ?IBQuery1.Open;        Repeat        IBQuery1.Insert;        IBQuery1.FieldByName(�NOME�)....

Max.sgj · Answer

Tentei ultilizar esse mesmo comando com outra tabela e deu a seguite mensagem de erro...

: Arithmetic exception, numeric overflow, or string truncation. Cannot transliterate character between character sets.
1: Exce��o de aritm�tica, transbordamento num�rico, ou mutila��o de fio. N�o possa transliterar car�ter entre jogos de car�ter

Edilcimar · Answer

provavelmente vc est� tentando colocar caracter acentuado ou com cedilha em bd com character set errado...

Max.sgj · Answer

[quote:5df9c78c4e=�Edilcimar�]provavelmente vc est� tentando colocar caracter acentuado ou com cedilha em bd com character set errado[/quote:5df9c78c4e]Vou utilizar outra tabela......

Max.sgj · Answer

[quote:a0b952ebc1=�Edilcimar�]provavelmente vc est� tentando colocar caracter acentuado ou com cedilha em bd com character set errado[/quote:a0b952ebc1]Veja a minha DLL...CREATE TABLE ENDERECO_2 (    CODIGO    INTEGER NOT NULL,    NOME      VARCHAR(50) CHARACTER SET ISO8859_1 COLLATE PT_PT,    ENDERECO  VARCHAR(50) CHARACTER SET ISO8859_1 COLLATE PT_PT,    BAIRRO    VARCHAR(50) CHARACTER SET ISO8859_1 COLLATE PT_PT,    CIDADE    VARCHAR(50) CHARACTER SET ISO8859_1 COLLATE PT_PT,    ESTADO    VARCHAR(50) CHARACTER SET ISO8859_1 COLLATE PT_PT,    CEP       CHAR(10) CHARACTER SET ISO8859_1 COLLATE PT_PT...

Emerson Nascimento · Answer

ou talvez voc� esteja tentando colocar num campo um valor maior do que ele comporta. por exemplo: seu campo NOME suporta 50 e caracteres e voc� est� digitando mais que 50 caracteres para o nome.

N�o o tamanho dos dados � inferior aos camposs

Max.sgj · Answer

[quote:969d345c24=�emerson.en�]ou talvez voc� esteja tentando colocar num campo um valor maior do que ele comporta.por exemplo: seu campo NOME suporta 50 e caracteres e voc� est� digitando mais que 50 caracteres para o nome.[/quote:969d345c24]N�o o tamanho dos dados � inferior aos camposs...

Massuda · Answer

No seu loop repeat...until n�o tem nada que fa�a a condi��o de sa�da acontecer: voc� n�o atribui nada � vari�vel Sair nem tem como o Windows processar qualquer evento. Provavelmente voc� est� inserindo registros duplicados. O erro de oveflow deve estar acontecendo por causa do loop infinito.

Como eu resolvo esse problema...

Max.sgj · Answer

[quote:c6524deaf7=�Massuda�]No seu loop repeat...until n�o tem nada que fa�a a condi��o de sa�da acontecer: voc� n�o atribui nada � vari�vel Sair nem tem como o Windows processar qualquer evento.Provavelmente voc� est� inserindo registros duplicados. O erro de oveflow deve estar acontecendo por causa do loop infinito.[/quote:c6524deaf7]Como eu resolvo esse problema......

Wiltonfenix · Answer

[quote:8671e364f8=�max.sgj�]Como eu resolvo esse problema...[/quote:8671e364f8][code:1:8671e364f8]IBQuery1.Open; Repeat IBQuery1.Insert; IBQuery1.FieldByName(�NOME�).AsString:= edit16.text; IBQuery1.FieldByName(�ENDERECO�).AsString:= edit17.text; IBQuery1.FieldByName(�BAIRRO�).AsString:= edit18.text; IBQuery1.FieldByName(�CIDADE�).AsString:= edit19.text; IBQuery1.FieldByName(�ESTADO�).AsString:= edit20.text; IBQuery1.FieldByName(�CEP�).AsString:= edit21.text; IBQuery1.Post; Sair=�S�;until Sair = �S�;[/code:1:8671e364f8]...

Emerson Nascimento · Answer

Creio que esteja faltando um Commit ap�s o Post (e esse repeat n�o me parece necess�rio).

IBQuery1.Open;
IBQuery1.Insert;
IBQuery1.FieldByName(�NOME�).AsString:= edit16.text;
IBQuery1.FieldByName(�ENDERECO�).AsString:= edit17.text;
IBQuery1.FieldByName(�BAIRRO�).AsString:= edit18.text;
IBQuery1.FieldByName(�CIDADE�).AsString:= edit19.text;
IBQuery1.FieldByName(�ESTADO�).AsString:= edit20.text;
IBQuery1.FieldByName(�CEP�).AsString:= edit21.text;
IBQuery1.Post;

Wiltonfenix · Answer

Pode ser a falta de um Commit tb.E, aproveitando, tem um erro no c�digo que passei:[code:1:388117baf6]IBQuery1.Open; Repeat IBQuery1.Insert; IBQuery1.FieldByName(�NOME�).AsString:= edit16.text; IBQuery1.FieldByName(�ENDERECO�).AsString:= edit17.text; IBQuery1.FieldByName(�BAIRRO�).AsString:= edit18.text; IBQuery1.FieldByName(�CIDADE�).AsString:= edit19.text; IBQuery1.FieldByName(�ESTADO�).AsString:= edit20.text; IBQuery1.FieldByName(�CEP�).AsString:= edit21.text; IBQuery1.Post; Sair:=�S�; until Sair = �S�;[/code:1:388117baf6]...

Massuda · Answer

[quote:3d4dd3fab0=�max.sgj�]Como eu resolvo esse problema...[/quote:3d4dd3fab0]Por que voc� precisa do loop?...

Max.sgj · Answer

[quote:015a4b43e6=�Massuda�][quote:015a4b43e6=�max.sgj�]Como eu resolvo esse problema...[/quote:015a4b43e6]Por que voc� precisa do loop?[/quote:015a4b43e6]Eu estou estudando Firebird e para isso estou aumentado o tamanho do banco de dados para depois ver como se faz par reduzi-lo......

Max.sgj · Answer

[quote:0cc92e131e=�emerson.en�]Creio que esteja faltando um Commit ap�s o Post (e esse repeat n�o me parece necess�rio).IBQuery1.Open; IBQuery1.Insert; IBQuery1.FieldByName(�NOME�).AsString:= edit16.text; IBQuery1.FieldByName(�ENDERECO�).AsString:= edit17.text; IBQuery1.FieldByName(�BAIRRO�).AsString:= edit18.text; IBQuery1.FieldByName(�CIDADE�).AsString:= edit19.text; IBQuery1.FieldByName(�ESTADO�).AsString:= edit20.text; IBQuery1.FieldByName(�CEP�).AsString:= edit21.text; IBQuery1.Post;[/quote:0cc92e131e]Obrigado funcionou......