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

    [Resolvido]Insert campo tipo data em um banco mysql

    avatar
    ADEMIRANSELMO
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 05/12/2014

    [Resolvido]Insert campo tipo data em um banco  mysql Empty [Resolvido]Insert campo tipo data em um banco mysql

    Mensagem  ADEMIRANSELMO 5/12/2014, 11:17

    Olá amigos bom dia,

    Estou executando um insert em bd mysql através de um formulário ms access utilizando o código abaixo, a execução funciona, porém o campo tipo data (dt_nascimeto), aprece nulo quando vou verificar na base, gostaria de saber como fazer a formatação do campo para que seja reconhecido no mysql.

    Dim ConnectionString As String
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset


    ConnectionString = "DRIVER={MySQL ODBC 5.2 Unicode Driver};SERVER=coosaude.com;PORT=3306;" _
    & ";DATABASE=coosaude_db;UID=coosaude_ademir;PASSWORD=u!wUaevqCTI[;OPTION=3;"

    conn.Open ConnectionString

    conn.CursorLocation = adUseClient

    conn.Execute "Insert into tb_pessoa (nm_pessoa,nr_cpf,nm_mae,dt_nascimento) Values ('" & Forms!FuncionarioInclusao.CFuncionario & "','" & Forms!FuncionarioInclusao.CCPF & "','" & Forms!FuncionarioInclusao.Mae & "','" & Forms!FuncionarioInclusao.CNascimento & "');"

    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseServer

    conn.Close

    DoCmd.Hourglass False

    Grato pela atenção!!!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Insert campo tipo data em um banco  mysql Empty Re: [Resolvido]Insert campo tipo data em um banco mysql

    Mensagem  JPaulo 5/12/2014, 11:24

    Teste utilizando o CDate;

    CDate(Forms!FuncionarioInclusao.CNascimento)



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Insert campo tipo data em um banco  mysql Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Insert campo tipo data em um banco  mysql Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Insert campo tipo data em um banco  mysql Folder_announce_new Instruções SQL como utilizar...
    avatar
    ADEMIRANSELMO
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 05/12/2014

    [Resolvido]Insert campo tipo data em um banco  mysql Empty Teste utilizando o CDate;

    Mensagem  ADEMIRANSELMO 5/12/2014, 23:53

    Olá JP, boa noite

    tentei implementar a função CDate no código das seguintes maneiras:

    conn.Execute "Insert into tb_pessoa (nm_pessoa,nr_cpf,nm_mae,dt_nascimento) Values ('" & Forms!FuncionarioInclusao.CFuncionario & "','" & Forms!FuncionarioInclusao.CCPF & "','" & Forms!FuncionarioInclusao.Mae & "', 'CDate(Forms!FuncionarioInclusao.CNascimento)');"


    conn.Execute "Insert into tb_pessoa (nm_pessoa,nr_cpf,nm_mae,dt_nascimento) Values ('" & Forms!FuncionarioInclusao.CFuncionario & "','" & Forms!FuncionarioInclusao.CCPF & "','" & Forms!FuncionarioInclusao.Mae & "', CDate(Forms!FuncionarioInclusao.CNascimento));"


    A primeira ocorreu o insert no banco, porém o campo continuou nulo, a segunda deu erro conforme figura em anexo.

    Aguardo retorno,

    Grato pela atenção!!!!
    avatar
    ADEMIRANSELMO
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 05/12/2014

    [Resolvido]Insert campo tipo data em um banco  mysql Empty Utilizando o format para enviar campo data

    Mensagem  ADEMIRANSELMO 9/12/2014, 00:50

    Olá JPaulo,

    Fiz umas correções aqui no meu código e deu certo.

    Ficou dessa maneira:

    conn.Execute "Insert into tb_pessoa (nm_pessoa,nr_cpf,nm_mae,dt_nascimento) Values ('" & Forms!FuncionarioInclusao.CFuncionario & "','" & Forms!FuncionarioInclusao.CCPF & "','" & Forms!FuncionarioInclusao.Mae & "','" & Format(CNascimento, "yyyy/mm/dd") & "');"

    Grato pela ajuda!!!

    Conteúdo patrocinado


    [Resolvido]Insert campo tipo data em um banco  mysql Empty Re: [Resolvido]Insert campo tipo data em um banco mysql

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:18