MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Problemas com Insert

    Compartilhe
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Problemas com Insert

    Mensagem  formiga10x em Qua 01 Abr 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.
    [Você precisa estar registrado e conectado para ver esta imagem.]

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


    Última edição por formiga10x em Qua 01 Abr 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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Problemas com Insert

    Mensagem  Avelino Sampaio em Qua 01 Abr 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
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Problemas com Insert

    Mensagem  formiga10x em Qua 01 Abr 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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Problemas com Insert

    Mensagem  Avelino Sampaio em Qua 01 Abr 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
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Problemas com Insert

    Mensagem  formiga10x em Qua 01 Abr 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
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Problemas com Insert

    Mensagem  formiga10x em Qua 01 Abr 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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Problemas com Insert

    Mensagem  Avelino Sampaio em Qua 01 Abr 2015, 12:44

    Copie e cole aqui um valor real criptografado.

    No aguardo
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Problemas com Insert

    Mensagem  formiga10x em Qua 01 Abr 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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Problemas com Insert

    Mensagem  Avelino Sampaio em Qua 01 Abr 2015, 13:09

    Coloquei ele fixo e gravou

    varteste = "äY{,Wñ8"

    Experimente com ele fixo

    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Problemas com Insert

    Mensagem  formiga10x em Qua 01 Abr 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

      Data/hora atual: Seg 26 Jun 2017, 21:42