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


    [Resolvido]Access - VBA > Como chamar Stored Procedure do Mysql.

    marcos_novack
    marcos_novack
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/01/2011

    [Resolvido]Access - VBA > Como chamar  Stored Procedure do Mysql. Empty [Resolvido]Access - VBA > Como chamar Stored Procedure do Mysql.

    Mensagem  marcos_novack em 22/6/2019, 20:02

    Olá Pessoal

    Tenho uma duvida, qual jeito certo de chamar uma Stored Procedure no código VBA.

    Estou usando assim:

    Código:
    Set rs = Cn.Execute("Call inc.Relatorio_ProgMalha_Ref('" & Me.semanainicial & "')") 'Mysql

    obrigado
    marcelo3092
    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    Registrado : 19/08/2010

    [Resolvido]Access - VBA > Como chamar  Stored Procedure do Mysql. Empty Re: [Resolvido]Access - VBA > Como chamar Stored Procedure do Mysql.

    Mensagem  marcelo3092 em 22/6/2019, 23:46

    Ola amigo boa noite eu chamo assim.

    Abro a conexão e coloco a proc no parametro dentro de uma function

    Código:
    Public Function Carrega_Mensagens()

    'Linha = Me.Lista_Mensagem.ListIndex + 1

    'Me.Texto51 = Me.Lista_Mensagem.Column(1, Linha)

    Razao = DLookup("Razao_Social", "temp_cliente_login")
    Cod = DLookup("Cod_Cliente", "temp_cliente_login")
    DateM = Format(Me.Texto51, "yyyy-mm-dd")

    sSQL = "CAll sp_Chat_Carrega_Mensagens(" & Cod & " , '" & DateM & "')"
    Conexao_Open (sSQL)

    Set Me.Lista_Mensagem.Recordset = rs
    Me.Lista_Mensagem.Requery

    rs.Close
    Set rs = Nothing
    End Function



    a proc e essa

    Código:
    CREATE DEFINER=`root`@`localhost` PROCEDURE `sp_Chat_Carrega_Mensagens`(IN p_cod_cliente int(11), IN p_data_mensagem date)
    BEGIN
    Select
    `Status`,
    Mensagem,
    Data_Mensagem,
    Cod_Cliente,
    Razao_Social,
    Cod_Mensagem,
    Data_Retorno,
    Hora,
    Empresa_Visualizado,
    Primeiro_Nome,
    Cliente_Visualizado

    From Chat
    Where
    cod_cliente = p_cod_cliente AND Data_Mensagem BETWEEN p_data_mensagem AND p_data_mensagem order by Hora Desc ;

    end


    e a conexao open

    Código:
    Public Function Conexao_Open(csql)

    On Error GoTo meuerro

       Call MySQL_Server    'Carrega parametros do servidor


      If cn.State = 1 Then
          cn.Close
      End If

      If rs.State = 1 Then
           cn.Close
      End If
     

    'cn.Open "driver={MySQL ODBC 5.3 Unicode driver};server=" & MyslqServidor & ";database=" & MyslqDatabase & ";uid=" & MyslqUsuario & "; pwd=" & MyslqSenha
       cn.Open "driver={" & MyslqDriver & "};server=" & MyslqServidor & ";database=" & MyslqDatabase & ";uid=" & MyslqUsuario & "; pwd=" & MyslqSenha
       rs.CursorLocation = adUseClient
       rs.Open csql, cn, adOpenDynamic, adLockOptimistic

    meuerro:
    If Err.Number = 80004005 Then
    MsgBox " Não há Conexão com a Internet"
    End If

    End Function


    Espero ter ajudado
    marcos_novack
    marcos_novack
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 19/01/2011

    [Resolvido]Access - VBA > Como chamar  Stored Procedure do Mysql. Empty Re: [Resolvido]Access - VBA > Como chamar Stored Procedure do Mysql.

    Mensagem  marcos_novack Ontem à(s) 22:53

    Boa Noite Marcelo

    Perdão pela demora no retorno, fiz algumas pesquisa no Google e no site do http://www.macoratti.net/dao_ado2.htm, encontrei o que precisava.

    Uma explicação sobre abrir um Record set com método execute os dados são somente leitura, e com open posso alterá-los.

    Minha duvida era se tinha um método diferente para chamar as Stored Procedures, como eu uso somente para carregar as listbox dos forms e relatórios esta ok.

    Estou satisfeito e agradeço por postar seu exemplo com método open Marcelo.

    ...............Agora se tiver algum mestre que quiser dar um pitaco, estamos aqui para aprender

    abraço.

    Conteúdo patrocinado

    [Resolvido]Access - VBA > Como chamar  Stored Procedure do Mysql. Empty Re: [Resolvido]Access - VBA > Como chamar Stored Procedure do Mysql.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 00:14