MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Problemas com Insert

    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    Problemas com Insert Empty Problemas com Insert

    Mensagem  formiga10x 1/4/2015, 10:45

    Bom dia a todos.
    Pessoal estou com uma dificuldade para salvar um campo criptografado. Se eu usar campos acoplados funciona legal porém como não gosto de trabalhar com assistentes e campos acoplados tem que ser no insert mesmo mas está dando erro ao salvar se os dados tiverem ??? !!! ...

    Vejam as imagens.



    Texto exemplo que não salva.
    Problemas com Insert 2626r6v

    Desde já agradeço e tenham um ótimo dia.


    Última edição por formiga10x em 1/4/2015, 17:51, editado 2 vez(es)


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    Problemas com Insert Empty Re: Problemas com Insert

    Mensagem  Avelino Sampaio 1/4/2015, 11:06

    Olá!

    Fiz um teste aqui e gravou normal

    currentdb.Execute "INSERT INTO tblTeste (NomePaciente, obs) VALUES ('Formiga','" & "????!!!..." & "')"

    Mostre a sua consulta completa

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    Problemas com Insert Empty Re: Problemas com Insert

    Mensagem  formiga10x 1/4/2015, 11:30

    Olá Mestre Avelino.

    Código:
            Encriptar = Form_Contatos.txtDiario
            Varteste = EncriptaStr(Encriptar)
            'Form_Contatos.txtDiario = Varteste
            
        If MsgBox("Confirmar a Gravação do Registro? ", vbYesNo + vbInformation, "CEV-Controle de Estoque e Vendas") = vbYes Then
        
            CurrentDb.Execute "Insert Into tbldiario (texto) values ( '" & Varteste & "')" 'Este é um teste para saber se é a variável já criptografada que está dando erro. E deu...
            CurrentDb.Execute "Insert Into tblDiario (Data,Texto,Titulo,UserLogado) Values ('" & Form_Contatos.txtData & "',""" & Varteste & """,""" & Form_Contatos.txtTitulo & """,'" & Form_Contatos.txtUserContato & "')"
                

    Gostaria de salvar a variável Varteste que já vai criptografada porém só salva se não tiver estes caracteres ??? <> !!! etc

    Para ficar mais fácil a resolução segue o bd desde já agradeço a ajuda.

    Link


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    Problemas com Insert Empty Re: Problemas com Insert

    Mensagem  Avelino Sampaio 1/4/2015, 11:53

    Realizei um novo teste e funcionou

    Dim varteste
    varteste = "A?v?e?l!n!.0)"
    CurrentDb.Execute "INSERT INTO tblteste (Nomepaciente,obs) VALUES ('Formiga3','" & varteste & "');"


    Sugestões:

    - Teste com um valor fixo na variável como fiz:

    varteste = "A?v?e?l!n!.0)"

    - Troque os nomes dos campos DATA e TEXTO ( algo como DataLançamento e TextoCrip )

    - Acrescente a função Cstr()

    CurrentDb.Execute "INSERT INTO tblteste (Nomepaciente,obs) VALUES ('Formiga3','" & CStr(varteste) & "');"

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    Problemas com Insert Empty Re: Problemas com Insert

    Mensagem  formiga10x 1/4/2015, 12:05

    Persiste o erro mesmo convertendo...
    Se for com campo acoplado funciona perfeitamente pale
    Código:
            CurrentDb.Execute "INSERT INTO tblDiario (TextoCrip) VALUES ('" & CStr(Varteste) & "');"


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    Problemas com Insert Empty Re: Problemas com Insert

    Mensagem  formiga10x 1/4/2015, 12:17

    Mestre testei com o valor que sugeriu Varteste = "A?v?e?l!n!.0)" gravou normalmente.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    Problemas com Insert Empty Re: Problemas com Insert

    Mensagem  Avelino Sampaio 1/4/2015, 12:44

    Copie e cole aqui um valor real criptografado.

    No aguardo


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    Problemas com Insert Empty Re: Problemas com Insert

    Mensagem  formiga10x 1/4/2015, 12:48

    macarrão
    äY{,Wñ8


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    Problemas com Insert Empty Re: Problemas com Insert

    Mensagem  Avelino Sampaio 1/4/2015, 13:09

    Coloquei ele fixo e gravou

    varteste = "äY{,Wñ8"

    Experimente com ele fixo



    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    Problemas com Insert Empty Re: Problemas com Insert

    Mensagem  formiga10x 1/4/2015, 13:11

    Este valor grava o problema é quando tem espaço ou mesmo !!! / ?? ..


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    Conteúdo patrocinado


    Problemas com Insert Empty Re: Problemas com Insert

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 12:02