[firebase-br] OFF - Erro SQL INSERT INTO

[jcs.canan]

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/