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

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

    avatar
    wesleymeim
    Novato
    Novato


    Respeito às regras : 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 Empty Resgatar Valores de Variáveis em Access VBA para Executar Procedure em SQL

    Mensagem  wesleymeim 22/9/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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 22/9/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: 29/3/2024, 00:42