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

    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.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6445
    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: Seg 23 Out 2017, 05:25