jpauloss
Profissional
Registrado: Quinta-Feira, 17 de Agosto de 2006
Mensagens: 600
Localização: Salvador - Bahia
|
 Enviada: Dom Set 30, 2007 11:25 pm Assunto: Conversion error from string, quando Alfanumérico... |
 |
|
Esta dando esse erro quando a string é alfanumerica: | Código: | ---------------------------
Debugger Exception Notification
---------------------------
Project MATERIAIS.exe raised exception class EUIBError with message 'Dynamic SQL Error
SQL error code = -303
conversion error from string "BO001"
Incompatible column/host variable data type
Error Code: 249'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
--------------------------- |
Esse valor vai ser gravado em uma Chave Estrangeira (FK).
E quando é só numero da esse erro ao tentar gravar: | Código: | ---------------------------
Debugger Exception Notification
---------------------------
Project MATERIAIS.exe raised exception class EUIBError with message 'violation of FOREIGN KEY constraint "FK_LANCAMENTO_PROJETO_1" on table "LANCAMENTO_PROJETO"
Foreign key reference target does not exist
violation of FOREIGN KEY constraint ""
Error Code: 146'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
--------------------------- |
O código do botão gravar: | Código: | procedure TF_LANCAMENTO_PROJETO.gravarClick(Sender: TObject);
begin
Try
transacao.TransactionID:=1;
transacao.IsolationLevel:= xilREPEATABLEREAD;
dm.Conexao.StartTransaction(transacao);
dm.sdsLancamento.Close;
dm.sdsLancamento.CommandText:='insert into lancamento_projeto (id_projeto,' +
'grupo, cod_ordenado_m, quantidade_m,'+
'total) values (:id_projeto, ' +
':grupo, :cod_ordenado_m, :quantidade_m, :total)';
dm.sdsLancamento.ParamByName('id_projeto').AsString:=projeto.Text;
dm.sdsLancamento.ParamByName('grupo').AsString:=grupo.Text;
dm.sdsLancamento.ParamByName('cod_ordenado_m').AsString:=cod.Text;
dm.sdsLancamento.ParamByName('quantidade_m').AsString:=qt.Text;
dm.sdsLancamento.ParamByName('total').AsString:=total.Text;
dm.sdsLancamento.ExecSQL;
dm.Conexao.Commit(transacao);
cod.SetFocus;
SQLDataSet1.Close;
SQLDataSet1.CommandText:='select id_lancamento_projeto, id_projeto, cod_ordenado_m, quantidade_m, material.descricao, material.un, material.preco_unitario, total from lancamento_projeto ' +
'left join material on (cod_ordenado_m=COD_ORDENADO) order by id_projeto desc';
SQLDataSet1.Open;
ClientDataSet1.Refresh;
Except
on Exc:Exception do
Begin
ShowMessage('Ocorreu um erro na tentativa de inclusão de registro:'+Exc.Message);
dm.Conexao.Rollback(transacao);
end;
end;
end; |
Alguma ideia?[ |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
