Como Capturar Erro

[Fabson]

olá,

tenho uma instrução SQL de inclusão de registros:

INSERT INTO TBCadastro (cad_numero, cad_nome, tip_codigo)

Values (1,'JOSE SILVA',10)

acontece que o campo tip_codigo está relacionado com a tabela TBTipos, e no exemplo que eu citei não existe o código 10 cadastrado na tabela TBTipos, ai o registro do 'JOSE SILVA' não é gravado, e o problema maior é que não dá nenhum erro.

alguém tem alguma idéia de como posso resolver isso?

desde já agradeço!

[Graymalkin]

Qual o tipo de relacionamento que você criou entre as tabelas (a multiplicidade)?

Abraços,

Graymalkin

[Fabson]

relacionamento um-para-muitos

[Graymalkin]

E qual o código todo (em VB) que você está utilizando para executar aquela SQL?

Abraços,

Graymalkin

[Fabson]

Dim Arquivo as String

Arquivo = "INSERT Into TBConta (con_codigo, con_agencia, ban_codigo, con_conta, con_nome,gravadopor, con_percentual_repasse, loc_codigo, con_dia_repasse, con_emite_cheque)

Arquivo = Arquivo & "Values(" & Proximo_Codigo & ",'" & txtAgencia & "'," & txtBanco & ",'" & txtConta & "','" & txtNomeFavoravel & "','" & GeralUsuario & " " & Date & " " & Time & "'," & IIf(Len(Trim(mbPercentual)) > 0, Replace(Format(mbPercentual, "########0.00"), ",", "."), 0) & "," & txtCodigo & "," & txtDiaRepasse & "," & ch_Cheque & ")"

BancoDados.Execute Arquivo

essa tabela TBConta está relacionada com a tabela TBBanco, o que acontence no campo ban_codigo eu não preencher, que no caso seria o campo txtBanco, ele simplesmente não grava o registro na TBConta e não retorna nenhum erro!

[Graymalkin]

Não dá erro algum? Não teria nenhum On Error Goto/Resume Next por aí, não?

Abraços,

Graymalkin

[Fabson]

sim, eu estou usando o on error goto, na verdade está assim:

Dim Arquivo as String

on error goto TRATA:

Arquivo = "INSERT Into TBConta (con_codigo, con_agencia, ban_codigo, con_conta, con_nome,gravadopor, con_percentual_repasse, loc_codigo, con_dia_repasse, con_emite_cheque)

Arquivo = Arquivo & "Values(" & Proximo_Codigo & ",'" & txtAgencia & "'," & txtBanco & ",'" & txtConta & "','" & txtNomeFavoravel & "','" & GeralUsuario & " " & Date & " " & Time & "'," & IIf(Len(Trim(mbPercentual)) > 0, Replace(Format(mbPercentual, "########0.00"), ",", "."), 0) & "," & txtCodigo & "," & txtDiaRepasse & "," & ch_Cheque & ")"

BancoDados.Execute Arquivo

exit sub

TRATA:

tratarerros NomeUsuario & ", não foi possível gravar esse registro, verifique!"

estranho né?

[Graymalkin]

Experimente tirar esse On Error e veja se dá algum erro.

Abraços,

Graymalkin