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.
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.