NAO CONSEGUI ACHAR O ERRO...ALGUEM PODE AJUDA...

RPMARQUES 28/01/2011 14:05:55
#363696
seguinte....esta dando essa msg de erro qndo vou salvar os dados no bd...uso firebird e conexão ADO

overflow occurred during data type conversion. conversion error from string [Ô][Ô]

vo por aqui a tabela q to tentando gravar e o codigo da rotina para gravar...

não sei onde ta o X da questão...ja q tenho outro form q esta salvando e tem os mesmos tipos de campos...alguém pode me da uma luz...

valew vbmania...



Public Sub SALVAR()
On Error GoTo erro

[ô]Autonumeração via código...
[ô]Carrega o valor atual do código na string
[ô]Verifica se existe algum registro...

If RsCli.RecordCount = 0 Then
wCodCli = 1
Else
RsCli.MoveLast
wCodCli = Val(RsCli!COD) + 1
End If

[ô]String para organizar melhor a forma que temos do INSERT INTO
sSql = [Ô][Ô]
sSql = sSql & [Ô]INSERT INTO CLIENTE(CODCLI, NOME, CPFCNPJ, RGIE, ENDERECO,[Ô]
sSql = sSql & [Ô] COMPLEMENTO, BAIRRO, CEP,[Ô]
sSql = sSql & [Ô] FONERES, FONECOM, FONECEL,EMAIL,[Ô]
sSql = sSql & [Ô] OBS,CODCID)[Ô]
sSql = sSql & [Ô]VALUES([Ô]
sSql = sSql & [Ô][ô][Ô] & wCodCli & [Ô][ô],[Ô]
sSql = sSql & [Ô][ô][Ô] & Trim(txtNome.Text) & [Ô][ô],[Ô]
sSql = sSql & [Ô][ô][Ô] & Trim(Me.mskCnpjCpf.ClipText) & [Ô][ô],[Ô]
sSql = sSql & [Ô][ô][Ô] & Trim(Me.txtRgIe.Text) & [Ô][ô],[Ô]
sSql = sSql & [Ô][ô][Ô] & Trim(Me.txtEndereco.Text) & [Ô][ô],[Ô]
sSql = sSql & [Ô][ô][Ô] & Trim(Me.txtComplemento.Text) & [Ô][ô],[Ô]
sSql = sSql & [Ô][ô][Ô] & Trim(Me.txtBairro.Text) & [Ô][ô],[Ô]
sSql = sSql & [Ô][ô][Ô] & Val(Me.mskCep.ClipText) & [Ô][ô],[Ô]
sSql = sSql & [Ô][ô][Ô] & Val(Me.mskFoneRes.ClipText) & [Ô][ô],[Ô]
sSql = sSql & [Ô][ô][Ô] & Val(Me.mskFoneCom.ClipText) & [Ô][ô],[Ô]
sSql = sSql & [Ô][ô][Ô] & Val(Me.mskFoneCel.ClipText) & [Ô][ô],[Ô]
sSql = sSql & [Ô][ô][Ô] & Val(Trim(Me.txtEmail.Text)) & [Ô][ô],[Ô]
sSql = sSql & [Ô][ô][Ô] & Trim(Me.txtOBS.Text) & [Ô][ô],[Ô]
sSql = sSql & [Ô][ô][Ô] & wCodCid & [Ô][ô])[Ô]

[ô]Command para executar a ação
With ConConexao
.ActiveConnection = CONEXAO
.CommandType = adCmdText
.CommandText = sSql
[ô] para evitar de perder os dados antigos
[ô] em caso de erro durante a operação
CNN.BeginTrans
.Execute
[ô] finaliza o processo e encerra o processo
[ô] de inserção do registro no B.D.
CNN.CommitTrans
End With
[ô]Fecha e retira a recordset da memória
RsCli.Close
Set RsCli = Nothing
[ô]Abre e limpa novamente a tabela para add um novo registro
Call ABRE_TABELA

erro:
If Err.Number <> 0 Then
MsgBox [Ô]Aconteceu um erro inesperado com o sistema![Ô] & vbNewLine & [Ô]***************************************************[Ô] & vbNewLine & _
[Ô]Número do erro: [Ô] & Err.Number & vbNewLine & _
[Ô]Detalhes do erro: [Ô] & Err.Description & vbNewLine & _
[Ô]Contate o Suporte ![Ô], vbCritical, [Ô]Atenção:[Ô]
Err.Number = 0
[ô]RETIREI O END PQ ELE ENCERRA A APLICAÇÃO - 22/01/2010
[ô]End
Exit Sub
End If

End Sub
MARCELOKROL 28/01/2011 14:11:57
#363697
Cara esse erro acontece, quando vc ta inserindo um valor maior que o campo de sua tabela aceita.
RPMARQUES 28/01/2011 14:15:03
#363698
mas o detalhe é mesmo eu só preenchendo o nome ele da a mesma msg...
SAMUKA 28/01/2011 15:03:00
#363700
Vc está salvando uma String onde deveria ser numero ou vice-versa ... creio que é isso.
ADRIANOM 28/01/2011 15:04:31
#363703
é o formato dos campos.. possivelmente o MSK....
Tente usar o IIF... para deteminar o valor verdadeiro e falso.. para nao dar erro .. isso deve ta acontecendo em valor <NULL>

Posta um print ae para nortear ...
RPMARQUES 28/01/2011 15:12:41
#363706
samuka..posso te manda o projeto e tu da uma olhada...eu ñ consegui achar....

e tem um detalhe estranho...eu adicionei um maskeditbox e ele ñ esta ficando com as configurações q eu setei....
muito estranho isso..pelo menos pra mim....
FNANDOOD 28/01/2011 16:54:23
#363721
Faz um teste, salva um campo por vez, e veja aonde o erro acontece.
MARCELOKROL 28/01/2011 20:24:41
#363740
Cara pra mim desse jeito aqui funcionou tenta ai:

Public Sub SALVAR()
[ô]On Error GoTo erro

[ô]Autonumeração via código...
[ô]Carrega o valor atual do código na string
[ô]Verifica se existe algum registro...

If RsCli.RecordCount = 0 Then
wCodCli = 1
Else
RsCli.MoveLast
wCodCli = Val(RsCli!COD) + 1
End If

[ô]String para organizar melhor a forma que temos do INSERT INTO
sSql = [Ô][Ô]
sSql = sSql & [Ô]INSERT INTO CLIENTE(CODCLI, NOME, CPFCNPJ, RGIE, ENDERECO,[Ô]
sSql = sSql & [Ô] COMPLEMENTO, BAIRRO, CEP,[Ô]
sSql = sSql & [Ô] FONERES, FONECOM, FONECEL,EMAIL,[Ô]
sSql = sSql & [Ô] OBS,CODCID)[Ô]
sSql = sSql & [Ô]VALUES([Ô]
If wCodCli <> vbNullString Then sSql = sSql & [Ô][ô][Ô] & wCodCli & [Ô][ô],[Ô] Else sSql = sSql & [Ô]NULL, [Ô]
If txtNome.Text <> vbNullString Then sSql = sSql & [Ô][ô][Ô] & Trim(txtNome.Text) & [Ô][ô],[Ô] Else sSql = sSql & [Ô]NULL, [Ô]
If Me.mskCnpjCpf.ClipText <> vbNullString Then sSql = sSql & [Ô][ô][Ô] & Trim(Me.mskCnpjCpf.ClipText) & [Ô][ô],[Ô] Else sSql = sSql & [Ô]NULL, [Ô]
If Me.txtRgIe.Text <> vbNullString Then sSql = sSql & [Ô][ô][Ô] & Trim(Me.txtRgIe.Text) & [Ô][ô],[Ô] Else sSql = sSql & [Ô]NULL, [Ô]
If Me.txtEndereco.Text <> vbNullString Then sSql = sSql & [Ô][ô][Ô] & Trim(Me.txtEndereco.Text) & [Ô][ô],[Ô] Else sSql = sSql & [Ô]NULL, [Ô]
If Me.txtComplemento.Text <> vbNullString Then sSql = sSql & [Ô][ô][Ô] & Trim(Me.txtComplemento.Text) & [Ô][ô],[Ô] Else sSql = sSql & [Ô]NULL, [Ô]
If Me.txtBairro.Text <> vbNullString Then sSql = sSql & [Ô][ô][Ô] & Trim(Me.txtBairro.Text) & [Ô][ô],[Ô] Else sSql = sSql & [Ô]NULL, [Ô]
If Me.mskCep.ClipText <> vbNullString Then sSql = sSql & [Ô][ô][Ô] & Val(Me.mskCep.ClipText) & [Ô][ô],[Ô] Else sSql = sSql & [Ô]NULL, [Ô]
If Me.mskFoneRes.Text <> vbNullString Then sSql = sSql & [Ô][ô][Ô] & Val(Me.mskFoneRes.ClipText) & [Ô][ô],[Ô] Else sSql = sSql & [Ô]NULL, [Ô]
If Me.mskFoneCom.Text <> vbNullString Then sSql = sSql & [Ô][ô][Ô] & Me.mskFoneCom.ClipText & [Ô][ô],[Ô] Else sSql = sSql & [Ô]NULL, [Ô]
If Me.mskFoneCel.Text <> vbNullString Then sSql = sSql & [Ô][ô][Ô] & Val(Me.mskFoneCel.ClipText) & [Ô][ô],[Ô] Else sSql = sSql & [Ô]NULL, [Ô]
If Me.txtEmail.Text <> vbNullString Then sSql = sSql & [Ô][ô][Ô] & Val(Trim(Me.txtEmail.Text)) & [Ô][ô],[Ô] Else sSql = sSql & [Ô]NULL, [Ô]
If Me.txtObs.Text <> vbNullString Then sSql = sSql & [Ô][ô][Ô] & Trim(Me.txtObs.Text) & [Ô][ô],[Ô] Else sSql = sSql & [Ô]NULL, [Ô]
If wCodCid <> vbNullString Then sSql = sSql & [Ô][ô][Ô] & wCodCid & [Ô][ô][Ô] Else sSql = sSql & [Ô]NULL [Ô]
sSql = sSql & [Ô])[Ô]

[ô]Command para executar a ação
With ConConexao
.ActiveConnection = CONEXAO
.CommandType = adCmdText
.CommandText = sSql
[ô] para evitar de perder os dados antigos
[ô] em caso de erro durante a operação
CNN.BeginTrans
.Execute
[ô] finaliza o processo e encerra o processo
[ô] de inserção do registro no B.D.
CNN.CommitTrans
End With
[ô]Fecha e retira a recordset da memória
RsCli.Close
Set RsCli = Nothing
[ô]Abre e limpa novamente a tabela para add um novo registro
Call ABRE_TABELA

erro:
If Err.Number <> 0 Then
MsgBox [Ô]Aconteceu um erro inesperado com o sistema![Ô] & vbNewLine & [Ô]***************************************************[Ô] & vbNewLine & _
[Ô]Número do erro: [Ô] & Err.Number & vbNewLine & _
[Ô]Detalhes do erro: [Ô] & Err.Description & vbNewLine & _
[Ô]Contate o Suporte ![Ô], vbCritical, [Ô]Atenção:[Ô]
Err.Number = 0
[ô]RETIREI O END PQ ELE ENCERRA A APLICAÇÃO - 22/01/2010
[ô]End
Exit Sub
End If
RPMARQUES 29/01/2011 09:39:16
#363757
A QUESTÃO DO BANCO NÃO SALVAR JA FOI SOLUCIONADA....
ERA NA QUESTÃO DA CONVERSÃO DE UM CAMPO...

AGORA...QNDO A QUESTÃO DE EU EXCLUIR UM MASKEDITBOX E CRIAR ELE DENOVO...
NÃO ESTOU COPIANDO NEM COLADO....
ELE Ñ PEGA A MÁSCARA...
TO COM WIN 7 COMO SISTEMA OPERACIONAL....
NÃO SEI O QUE FAZER PRA SOLUCIONAR....
ALGUéM TEM ALGUMA LUZ PRA ME DAR???
CHARLESTON10 29/01/2011 11:16:14
#363758
Antes de Executar o seu projeto Aperte (F8) ou (F9) q ele vai executar passo a passo por codigo e vai parar onde estiver o erro
tentai
RPMARQUES 29/01/2011 11:49:09
#363759
MAS A QUESTÃO NÃO ESSA...ELE Ñ DA ERRO...A QUESTÃO DO ERRO EU JA SOLUCIONEI...

O QUE EU NÃO CONSIGO ENTENDER é PQ QNDO EU CRIO A MASKEDITBOX ELE NÃO FICA COM A CONFIGURAÇÃO QUE EU SETO...

ELE FICA COMO SE FOSSE UM TEXTBOX NORMAL...
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar