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

    Resgatar Valores de Variáveis em Access VBA para Executar Procedure em SQL

    Compartilhe

    wesleymeim
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 20/08/2014

    Resgatar Valores de Variáveis em Access VBA para Executar Procedure em SQL

    Mensagem  wesleymeim em Seg 22 Set 2014, 13:43

    Bom dia!

    Gostaria de saber se tem alguém que pode me ajudar com a seguinte situação:

    Tenho duas Procedures no SQL Server 2008 que trabalham executando consultas por datas, como mostra abaixo:

    A Primeira Procedure trabalha com o seguinte código:

    begin

    SELECT dtemi_nf,num_pedido, id_cliente,Sum(prliq_nf) AS TotalVendido
    FROM ods_nf
    where dtemi_nf between @dtini and @dtfim
    GROUP BY num_pedido,
    id_cliente,dtemi_nf
    order by dtemi_nf

    end

    e a Segunda com o código abaixo:

    begin

    exec sp_testerm '2014-07-15','2014-07-30'

    end

    A ideia da segunda procedure é executar a primeira procedure que se chama sp_testerm com as datas que estão acima.

    Gostaria de fazer o seguinte:

    Tenho duas caixas de texto em um formulário access onde gostaria de passar os valores das mesmas para os valores das datas que estão acima dentro da procedure.

    Achei um exemplo de código em VBA para Access que está executando a procedure, mais a questão é que não consigo passar os valores das caixas de texto para a procedure.

    Segue o código do VBA Access abaixo:

    Private Sub Comando4_Click()
    Dim cmd As ADODB.Command

    Set cmd = New ADODB.Command

    With cmd
    .ActiveConnection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=teste;Data Source=14.121.111.34;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=DEBRBRG310F27X;Use Encryption for Data=False;Tag with column collation when possible=False"
    .CommandType = adcmdText
    .CommandText = "sp_testerm, txt_dtinicial, txt_dtfim"
    .Execute
    End With

    cmd.ActiveConnection.Close

    End Sub


    No código acima quando eu coloco apenas a linha .CommandText = "sp_testerm" a procedure funciona, mais quando tento colocar para resgatar os valores das caixas de texto do formulário que são: txt_dtinicial e txt_dtfim o código para na linha do .Execute


    Alguém poderia me ajudar?

    Obrigado.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: Resgatar Valores de Variáveis em Access VBA para Executar Procedure em SQL

    Mensagem  Alexandre Neves em Seg 22 Set 2014, 19:28

    Boa noite,
    Em vez de
    .CommandText = "sp_testerm, txt_dtinicial, txt_dtfim"
    coloque
    .CommandText = "sp_testerm", txt_dtinicial, txt_dtfim


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Qua 07 Dez 2016, 18:15