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

    Access VBA x SQL Server 2008

    Compartilhe

    wesleymeim
    Novato
    Novato

    Respeito às Regras 100%

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

    Access VBA x SQL Server 2008

    Mensagem  wesleymeim em Qua 10 Set 2014, 18:43

    Boa tarde!

    Gostaria de saber se alguém poderia me ajudar com a seguinte ação:

    Tenho um formulário no Access com um txtbox chamado de txt_nome e um botão onde gostaria que ao clicar no botão o mesmo mostrasse o resultado de uma consulta que estou fazendo no SQL Server 2008 no txtbox.

    Segue o código que estou usando:

    Private Sub Comando0_Click()
    Dim cn As New ADODB.Connection
    Dim servidor As String
    Dim bd As String
    Dim rscons As New Recordset
    Dim sql As String

    servidor = "10.123.121.21"
    bd = "Testebd"

    cn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True"
    cn.Properties("Data Source").Value = servidor
    cn.Properties("Initial Catalog").Value = bd

    cn.Open

    MsgBox "Conexão Efetuada com Sucesso!!!"

    nomecad = txt_nome

    Set rscons = New ADODB.Recordset
    Set rscons.ActiveConnection = cn
    rscons.CursorLocation = adUseClient


    sql = "select nome from tbl_teste where nome='João'"

    rscons.Open sql

    MsgBox "Consulta Efetuada com Sucesso!!!"

    End Sub


    Desde já agradeço.

    Obrigado.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Access VBA x SQL Server 2008

    Mensagem  Alexandre Neves em Qui 11 Set 2014, 11:23

    Bom dia,
    rscons.Open sql
    TxtSuaCaixa=rscons(0)
    rscons.close
    set rscons=nothing


    .................................................................................
    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: Qui 08 Dez 2016, 00:05