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

    Access VBA x SQL Server 2008

    avatar
    wesleymeim
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Access VBA x SQL Server 2008 Empty Access VBA x SQL Server 2008

    Mensagem  wesleymeim 10/9/2014, 13: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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Access VBA x SQL Server 2008 Empty Re: Access VBA x SQL Server 2008

    Mensagem  Alexandre Neves 11/9/2014, 06: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: 24/11/2024, 01:18