Erro no Repeat insere mas não grava por que?
05/12/2005
0
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´;
[quote:99b5ed2a3c=´Moderação´][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[/quote:99b5ed2a3c]
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´;
[quote:99b5ed2a3c=´Moderação´][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[/quote:99b5ed2a3c]
Max.sgj
Curtir tópico
+ 0
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
Tem que indicar lá e informar a forma que o generator será incrementado
Responder
Clique aqui para fazer login e interagir na Comunidade :)