 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
jpauloss
Profissional
Registrado: Quinta-Feira, 17 de Agosto de 2006
Mensagens: 600
Localização: Salvador - Bahia
|
 Enviada: Dom Set 30, 2007 11:26 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? |
|
| Voltar ao Topo |
|
 |
jpauloss
Profissional
Registrado: Quinta-Feira, 17 de Agosto de 2006
Mensagens: 600
Localização: Salvador - Bahia
|
| Enviada: Seg Out 01, 2007 8:18 am Assunto: |
|
|
| up |
|
| Voltar ao Topo |
|
|
jpauloss
Profissional
Registrado: Quinta-Feira, 17 de Agosto de 2006
Mensagens: 600
Localização: Salvador - Bahia
|
| Enviada: Seg Out 01, 2007 8:26 am Assunto: |
|
|
Minha tabela está assim: | Código: | /******************************************************************************/
/**** Tables ****/
/******************************************************************************/
CREATE GENERATOR ID_LANCAMENTO_PROJETO;
CREATE TABLE LANCAMENTO_PROJETO (
ID_LANCAMENTO_PROJETO INTEGER NOT NULL,
ID_PROJETO INTEGER NOT NULL,
GRUPO VARCHAR(10),
COD_ORDENADO_M VARCHAR(20) NOT NULL,
QUANTIDADE_M VARCHAR(20),
TOTAL NUMERIC(15,2)
);
/******************************************************************************/
/**** Primary Keys ****/
/******************************************************************************/
ALTER TABLE LANCAMENTO_PROJETO ADD CONSTRAINT PK_LANCAMENTO_PROJETO PRIMARY KEY (ID_LANCAMENTO_PROJETO);
/******************************************************************************/
/**** Foreign Keys ****/
/******************************************************************************/
ALTER TABLE LANCAMENTO_PROJETO ADD CONSTRAINT FK_LANCAMENTO_PROJETO_1 FOREIGN KEY (ID_PROJETO) REFERENCES PROJETO (ID_PROJETO);
ALTER TABLE LANCAMENTO_PROJETO ADD CONSTRAINT FK_LANCAMENTO_PROJETO_2 FOREIGN KEY (COD_ORDENADO_M) REFERENCES MATERIAL (COD_ORDENADO);
/******************************************************************************/
/**** Triggers ****/
/******************************************************************************/
SET TERM ^ ;
/******************************************************************************/
/**** Triggers for tables ****/
/******************************************************************************/
/* Trigger: LANCAMENTO_PROJETO_BI */
CREATE TRIGGER LANCAMENTO_PROJETO_BI FOR LANCAMENTO_PROJETO
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
IF (NEW.ID_LANCAMENTO_PROJETO IS NULL) THEN
NEW.ID_LANCAMENTO_PROJETO = GEN_ID(ID_LANCAMENTO_PROJETO,1);
END
^
SET TERM ; ^ |
|
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
