Fórum Erro ao gravar registro - Token Unknown #43259

22/03/2004

0

Olá amigos...
estou tendo problemas para gravar em minha tabela...

O código é:

DmGeral.Trans.Active:=false;
try
Screen.Cursor := crSqlWait;
DmGeral.Trans.StartTransaction;
DmGeral.QryInserir.Sql.Clear;
DmGeral.QryInserir.SQL.Add(´INSERT INTO PLAN_CUSTO´);
DmGeral.QryInserir.SQL.Add(´(COD_MATERIAL, DESCRICAO, FORNECEDOR1, FORNECEDOR2, FORNECEDOR3, FORNECEDOR4, FORNECEDOR5)´);
DmGeral.QryInserir.SQL.Add(´(TAXA_DOLAR1, TAXA_DOLAR2, TAXA_DOLAR3, TAXA_DOLAR4, TAXA_DOLAR5)´);
DmGeral.QryInserir.SQL.Add(´(TAXA_KZZ1, TAXA_KZZ2, TAXA_KZZ3, TAXA_KZZ4, TAXA_KZZ5)´);
DmGeral.QryInserir.SQL.Add(´(PRECO1, PRECO2, PRECO3, PRECO4, PRECO5)´);
DmGeral.QryInserir.SQL.Add(´(PRAZO1, PRAZO2, PRAZO3, PRAZO4, PRAZO5)´);
DmGeral.QryInserir.SQL.Add(´(CUSTO1, CUSTO2, CUSTO3, CUSTO4, CUSTO5, OBS)´);
DmGeral.QryInserir.SQL.Add(´VALUES´);
DmGeral.QryInserir.SQL.Add(´(:COD_MATERIAL, :DESCRICAO, :FORNECEDOR1, :FORNECEDOR2, :FORNECEDOR3, :FORNECEDOR4, :FORNECEDOR5)´);
DmGeral.QryInserir.SQL.Add(´(:TAXA_DOLAR1, :TAXA_DOLAR2, :TAXA_DOLAR3, :TAXA_DOLAR4, :TAXA_DOLAR5)´);
DmGeral.QryInserir.SQL.Add(´(:TAXA_KZZ1, :TAXA_KZZ2, :TAXA_KZZ3, :TAXA_KZZ4, :TAXA_KZZ5)´);
DmGeral.QryInserir.SQL.Add(´(:PRECO1, :PRECO2, :PRECO3, :PRECO4, :PRECO5)´);
DmGeral.QryInserir.SQL.Add(´(:PRAZO1, :PRAZO2, :PRAZO3, :PRAZO4, :PRAZO5)´);
DmGeral.QryInserir.SQL.Add(´(:CUSTO1, :CUSTO2, :CUSTO3, :CUSTO4, :CUSTO5, :OBS)´);
DmGeral.QryInserir.ParamByName(´COD_MATERIAL´).AsString:=edtCOD.Text;
DmGeral.QryInserir.ParamByName(´DESCRICAO´).asstring:=edtdescricao.text;

DmGeral.QryInserir.ParamByName(´FORNECEDOR1´).ASstring:=edt_Forn_1.text;
DmGeral.QryInserir.ParamByName(´FORNECEDOR2´).asstring:=edt_Forn_2.text;
DmGeral.QryInserir.ParamByName(´FORNECEDOR3´).asstring:=edt_Forn_3.text;
DmGeral.QryInserir.ParamByName(´FORNECEDOR4´).asstring:=edt_Forn_4.text;
DmGeral.QryInserir.ParamByName(´FORNECEDOR5´).asstring:=edt_Forn_5.text;

DmGeral.QryInserir.ParamByName(´TAXA_DOLAR1´).asstring:=edt_taxa_1.text;
DmGeral.QryInserir.ParamByName(´TAXA_DOLAR2´).asstring:=edt_taxa_2.text;
DmGeral.QryInserir.ParamByName(´TAXA_DOLAR3´).asstring:=edt_taxa_3.text;
DmGeral.QryInserir.ParamByName(´TAXA_DOLAR4´).asstring:=edt_taxa_4.text;
DmGeral.QryInserir.ParamByName(´TAXA_DOLAR5´).asstring:=edt_taxa_5.Text;

DmGeral.QryInserir.ParamByName(´PRECO1´).asstring:=edt_calc_1.text;
DmGeral.QryInserir.ParamByName(´PRECO2´).asstring:=edt_calc_2.text;
DmGeral.QryInserir.ParamByName(´PRECO3´).asstring:=edt_calc_3.text;
DmGeral.QryInserir.ParamByName(´PRECO4´).asstring:=edt_calc_4.text;
DmGeral.QryInserir.ParamByName(´PRECO5´).asstring:=edt_calc_5.text;

DmGeral.QryInserir.ParamByName(´PRAZO1´).asstring:=edt_prazo_1.text;
DmGeral.QryInserir.ParamByName(´PRAZO2´).asstring:=edt_prazo_2.text;
DmGeral.QryInserir.ParamByName(´PRAZO3´).asstring:=edt_prazo_3.text;
DmGeral.QryInserir.ParamByName(´PRAZO4´).asstring:=edt_prazo_4.text;
DmGeral.QryInserir.ParamByName(´PRAZO5´).asstring:=edt_prazo_5.text;

DmGeral.QryInserir.ParamByName(´CUSTO1´).asstring:=edt_cus_1.text;
DmGeral.QryInserir.ParamByName(´CUSTO2´).asstring:=edt_cus_2.text;
DmGeral.QryInserir.ParamByName(´CUSTO3´).asstring:=edt_cus_3.text;
DmGeral.QryInserir.ParamByName(´CUSTO4´).asstring:=edt_cus_4.text;
DmGeral.QryInserir.ParamByName(´CUSTO5´).asstring:=edt_cus_5.text;

DmGeral.QryInserir.ParamByName(´OBS´).asstring:=memo_obs.text;

DmGeral.QryInserir.execsql;

DmGeral.Trans.CommitRetaining;




except
Screen.Cursor:=crDefault;
DmGeral.Trans.RollbackRetaining;
end;


end;

o erro é o seguinte:

[b:03f01a0e57]´Project Project1.exe raised exception class EIBInterBaseError with message ´Dynamic SQL Error - SQL error code = -104
Token unknown - line 3, char -1
(´. Precess stopped. Use Step or Run to continue.[/b:03f01a0e57]

Delphi 7 / IB 6


Anarchybra

Anarchybra

Responder

Posts

22/03/2004

Afarias

|DmGeral.QryInserir.SQL.Add(´(COD_MATERIAL, DESCRICAO,
|FORNECEDOR1, FORNECEDOR2, FORNECEDOR3, FORNECEDOR4,
|FORNECEDOR5)´);
|DmGeral.QryInserir.SQL.Add(´(TAXA_DOLAR1, TAXA_DOLAR2,
|TAXA_DOLAR3, TAXA_DOLAR4, TAXA_DOLAR5)´);


o problema está ai! vc está fechando o parênteses e abrindo novamente!! o código deveria ser algo do tipo::

DmGeral.QryInserir.SQL.Add(´(COD_MATERIAL, DESCRICAO,
FORNECEDOR1, FORNECEDOR2, FORNECEDOR3, FORNECEDOR4,
FORNECEDOR5,´);
DmGeral.QryInserir.SQL.Add(´TAXA_DOLAR1, TAXA_DOLAR2,
TAXA_DOLAR3, TAXA_DOLAR4, TAXA_DOLAR5)´);


T+


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar