MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Código correto para ambiente multiusuário no mysql

    Compartilhe

    ADEMIRANSELMO
    Novato
    Novato

    Respeito às Regras 100%

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

    Código correto para ambiente multiusuário no mysql

    Mensagem  ADEMIRANSELMO em Qui 11 Dez 2014, 14:22

    Olá amigos,

    Gostaria de saber se os códigos estão elaborados de maneira correta para atuar em um ambiente multiusuário (bd mysql):

    Código 1:

       DoCmd.Hourglass True
       
       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 "Update tb_pessoa set nm_pessoa ='" & Forms!FuncionarioAlterar.CFuncionario & "',nm_mae ='" & Forms!FuncionarioAlterar.Mae & "',dt_nascimento='" & Format(CNascimento, "yyyy/mm/dd") & "' WHERE nr_cpf ='" & Forms!FuncionarioAlterar.CCPF & "'"
         
       Set rs = New ADODB.Recordset
       rs.CursorLocation = adUseServer
       
       conn.Close
       
    DoCmd.Hourglass False


    Código 2:

    DoCmd.Hourglass True
       
       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 & "','" & Format(CNascimento, "yyyy/mm/dd") & "');"
       
       
       Set rs = New ADODB.Recordset
       rs.CursorLocation = adUseServer
       
       conn.Close
       
    DoCmd.Hourglass False

    Grato pela atenção!!!!

      Data/hora atual: Sab 03 Dez 2016, 19:38