[firebase-br] OFF - Erro SQL INSERT INTO

[Claudio Borba]

Tudo blz, espero que sim,
e o conjuto de comandos ex:

DataModule1.QryInsere.SQL.Clear;
DataModule1.QryInsere.SQL.Add('INSERT INTO TAB_ITENS_PEDIDO (COD_PEDIDO, 
COD_PRODUTO, QTDADE, PRECO_UNIT ' );
DataModule1.QryInsere.SQL.Add(' VALUES (:COD_PEDIDO, :COD_PRODUTO, :QTDADE, 
:PRECO_UNIT ) ' );
DataModule1.QryInsere.ParamByName('COD_PRODUTO').AsInteger := 
DataModule1.TAB_PRODUTOS.FieldByName('COD_PRO').Value;
DataModule1.QryInsere.ParamByName('QTDADE').AsInteger := 
StrToInt(Edit4.Text);
DataModule1.QryInsere.ParamByName('PRECO_UNIT').AsFloat := 
DataModule1.TAB_PRODUTOS.FieldByName('PRECO_VENDA_PRO').Value;
Aqui vc coloca o restante dos parametros...
DataModule1.QryInsere.ExecSQL;

Claudio   Borba










----- Original Message ----- 
From: "jcs.canan" <jcs.canan em uol.com.br>
To: "lista" <lista em firebase.com.br>
Sent: Tuesday, November 16, 2004 2:03 PM
Subject: [firebase-br] OFF - Erro SQL INSERT INTO


Amigos, utilizo Delphi 7 e Firebird 1.5 com os componentes da
palheta Interbase.

Não estou conseguindo inserir dados. Estou tentando das duas
formas abaixo.



 A TAB_ITENS_PEDIDO tem a seguinte estrutura:

COD_PEDIDO, COD_PRODUTO, QTDADE : Integer
 PRECO_UNIT : Numeric

Tentei de duas formas e nas duas deu erro:

 DataModule1.QryInsere.ParamByName('COD_PEDIDO').AsInteger :=
StrToInt(Label11.Caption);
 DataModule1.QryInsere.ParamByName
('COD_PRODUTO').AsInteger :=
DataModule1.TAB_PRODUTOS.FieldByName('COD_PRO').Value;
 DataModule1.QryInsere.ParamByName('QTDADE').AsInteger :=
StrToInt(Edit4.Text);
 DataModule1.QryInsere.ParamByName('PRECO_UNIT').AsFloat :=
DataModule1.TAB_PRODUTOS.FieldByName('PRECO_VENDA_PRO').Value;


// DataModule1.QryInsere.SQL.Clear;

Opção 1

// Temp:='INSERT INTO TAB_ITENS_PEDIDO (COD_PEDIDO,
COD_PRODUTO, QTDADE, PRECO_UNIT)';
// Temp:=Temp + ' VALUES
(:COD_PEDIDO, :COD_PRODUTO, :QTDADE, :PRECO_UNIT)';



Opção 2

 Temp:='INSERT INTO TAB_ITENS_PEDIDO (COD_PEDIDO,
COD_PRODUTO, QTDADE, PRECO_UNIT)';
 Temp:=Temp + ' VALUES ( ';
 Temp:=Temp + ':COD_PEDIDO';
 Temp:=Temp + ',';
 Temp:=Temp + ':COD_PRODUTO';
 Temp:=Temp + ',';
 Temp:=Temp + ':QTDADE';
 Temp:=Temp + ',';
 Temp:=Temp + ':PRECO_UNIT';
 Temp:=Temp + ')';
}


 DataModule1.QryInsere.SQL.Add(temp);



 DataModule1.QryInsere.ExecSQL;
 DataModule1.QryInsere.Close;
 DataModule1.QryInsere.Open;
 SB_Grava_pedido.Enabled := True;


Oque estou fazendo de errado ou deixando de fazer? Agradeço
as colaborações.

Att

Canan


__________________________________________________________________________
Acabe com aquelas janelinhas que pulam na sua tela.
AntiPop-up UOL - É grátis!
http://antipopup.uol.com.br/



______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br

Esta mensagem foi verificada pelo E-mail Protegido Terra.
Scan engine: VirusScan / Atualizado em 10/11/2004 / Versão: 1.5.2
Proteja o seu e-mail Terra: http://www.emailprotegido.terra.com.br/

E-mail classificado pelo Identificador de Spam Inteligente Terra.
Para alterar a categoria classificada, visite
http://www.terra.com.br/centralunificada/emailprotegido/imail/imail.cgi?+_u=borba&_l=1,1100628554.805697.17867.laranjal.terra.com.br,4391,Des15,Des15