Modulo para se conectar no SQL Server

Question

Pessoal, temos um banco de dados em access que possui linked tables e quando disponibilizo em rede , gostaria que não precisasse fazer a conexão em cada máquina que for utilizar.

Acredito que se tivesse uma macro com a ação de se conectar através de uma string de conexão funcionaria. Mas não tenho nenhum conhecimento em VB , portanto precisaria que me ajudassem desde o início quando for criar a macro ou o módulo.

Muito obrigado.

Answer 1

Junior,

Acredito que você consiga gerar a conexão Assim:

1º - Abra o excel -> Alt + f11 (vc abrirá o vba)

2º - Clique Inserir > Módulo (o modulo foi criado)

3º - coloque o codigo abaixo:

Sub testeSql()

Dim Cmd As New ADODB.Command
Dim Cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim StrCon As String


Set Cnn = New ADODB.Connection
Set Cmd = New ADODB.Command

StrCon =  Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=True;User ID=sa;Password=SUASENHA;Initial Catalog=SEUBANCODEDADOS;Data Source=SEUSERVIDOR
          
          MsgBox StrCon
          
Cnn.Open StrCon

End Sub

4º Após colocar seus dados, conforme o banco, vc pode testar com o F5.

 

Espero ter ajudado!!!

Answer 2

Fábio, primeiramente obrigado pela atenção!

Sobre a conexão eu não consegui, na verdade gostaria de conectar do access para o Sql usando "OLE DB/SQL Server Native Client 10.0" ou algum similar tem possibilidade?

Mais uma vez obrigado