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
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
Curtir tópico
+ 0
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+
|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
Clique aqui para fazer login e interagir na Comunidade :)