ERROR 13 - TYPE MISMATCH

 Tópico anterior Próximo tópico Novo tópico

ERROR 13 - TYPE MISMATCH

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#485285 - 08/11/2018 16:21:16

NICKTHOM
BARUERI
Cadast. em:Outubro/2018


Boa Tarde.
Sou programadora, mas a muito tempo não faço programação.
Atualmente trabalho em outra área, resolvi montar um programinha para onde trabalho.
Só que estou tendo dificuldade na hora de salvar os dados.
Trabalho com o Banco de Dados do Access 2.013.

Da Erro 13 -  Type Mismatch

Sei que tem haver com o tipo de campo, mas são todos campos de texto longo no banco de dados

Segue as linhas de comando, quem puder me ajudar ficarei muito agradecida.

Dim adCmdPaciente As New ADODB.Command
Dim CodCliente As Long


With adCmdPaciente

       .CommandText = "INSERT INTO Cadastro (Nome, DtEntrevista, Tel, Email) Values (?, ?, ?, ?)"

        .Parameters.Append .CreateParameter("Nome", adVarChar, adParamInput, 30)
        .Parameters.Append .CreateParameter("DtEntrevista", adVarChar, adParamInput, 20)
        .Parameters.Append .CreateParameter("Tel", adVarChar, adParamInput, 30)
        .Parameters.Append .CreateParameter("Email", adVarChar, adParamInput, 30)
                
        
        .Parameters("Nome") = txtNome.Text
        .Parameters("DtEntrevista") = txtDtEntrevista.Text
        .Parameters("Tel") = txtTel.Text
        .Parameters("Email") = txtEmail.Text
        
        
        .Execute

Alguém poderia me ajudar onde estou errando, pois pelo que entendo a instrução está correta.
Obrigada.

Juntos Somos Mais Forte

#485289 - 08/11/2018 16:54:30

JABA
CABO FRIO
Cadast. em:Agosto/2005


msdn.microsoft.com/pt-br/vba/language-reference-vba/articles/type-mismatch-error-13

É algum tipo que ficou incompatível. Se eu fosse fazer uma aposta diria que é o campo DtEntrevista, mais precisamente em Parameters("DtEntrevista") = txtDtEntrevista.Text. Talvez esteja ocorrendo algum conflito aí.

_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



#485357 - 12/11/2018 14:21:30

NICKTHOM
BARUERI
Cadast. em:Outubro/2018


Citação:
:
msdn.microsoft.com/pt-br/vba/language-reference-vba/articles/type-mismatch-error-13

É algum tipo que ficou incompatível. Se eu fosse fazer uma aposta diria que é o campo DtEntrevista, mais precisamente em Parameters("DtEntrevista") = txtDtEntrevista.Text. Talvez esteja ocorrendo algum conflito aí.


Ok Obrigada.
Vou dar uma olhada pra ver se é isso.

Juntos Somos Mais Forte

#485360 - 12/11/2018 16:13:37

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Realmente isso deve ser a data mesmo, ficaria dessa forma a data no access
.Parameters("DtEntrevista") = #" & format(cdate(txtDtEntrevista.Text),"MM-DD-YYYY")  & "# "


Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


#485363 - 12/11/2018 17:10:49

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Será mesmo ALVAROVB2009.
Faça uma verificação.



#485384 - 13/11/2018 13:54:20

NICKTHOM
BARUERI
Cadast. em:Outubro/2018


Boa Tarde.
Mudei o nome do campo na tabela, e tbm alterei o nome da caixa de texto.
E deu certo, não está mais dando o erro.
Devia estar em conflito.
Obrigada pela ajuda de vocês

Juntos Somos Mais Forte

#485385 - 13/11/2018 14:46:37

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Não deixe o tópico aberto.
Obteve o resultado então finalize.



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário