Erro no Repeat insere mas não grava por que?

05/12/2005

1

Como que um Repeat para inserir os dados várias vezes..., mas não estava inserindo então coloque um DbNavigator para acompanhar o precesso e descobri que os dados estavam sendo inseridos , editados e cancelados simultaneamente..., o genereitor contava mas não inseria

Veja a DLL...

/******************************************************************************/
/*** Generated by IBExpert 7/11/2005 06:22:15 ***/
/******************************************************************************/

SET SQL DIALECT 3;

CREATE GENERATOR ENDERECO_GEN;
SET NAMES NONE;



/******************************************************************************/
/*** Tables ***/
/******************************************************************************/

CREATE TABLE ENDERECO (
CODIGO INTEGER NOT NULL,
NOME VARCHAR(50),
ENDERECO VARCHAR(50),
BAIRRO VARCHAR(50),
CIDADE VARCHAR(50),
ESTADO CHAR(2),
CEP CHAR(10)
);





/******************************************************************************/
/*** Primary Keys ***/
/******************************************************************************/

ALTER TABLE ENDERECO ADD PRIMARY KEY (CODIGO);


/******************************************************************************/
/*** Triggers ***/
/******************************************************************************/


SET TERM ^ ;




/* Trigger: ENDERCO_TRIGGER */
CREATE TRIGGER ENDERCO_TRIGGER FOR ENDERECO
ACTIVE BEFORE INSERT POSITION 0
AS
begin
/* Trigger text */
NEW.CODIGO = GEN_ID(ENDERECO_GEN,1);
end
^


SET TERM ; ^


/******************************************************************************/
/*** Privileges ***/
/******************************************************************************/




Veja o Repeat....



IBQuery1.Open;
Repeat
begin
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;
end;
until Sair = ´S´;

[color=red:99b5ed2a3c]Tópico bloqueado por Massuda [b:99b5ed2a3c]Tópico duplicado[/b:99b5ed2a3c] Por favor, continume a discussão no tópico[/color:99b5ed2a3c] http://forum.clubedelphi.net/viewtopic.php?t=71109



Responder

Posts

05/12/2005

Max.sgj

O DBNavigaitor fica ativo quando o sistema não está executado e quando eu executo o sistema ele fica desativado...


Responder

05/12/2005

Rafael Santana

vc indicou o GENERATOR ENDERECO_GEN na propriedade generator da Query em questão?
Tem que indicar lá e informar a forma que o generator será incrementado


Responder