none
Modulo para se conectar no SQL Server RRS feed

  • Pergunta

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

    quarta-feira, 1 de fevereiro de 2012 13:56

Todas as Respostas

  • 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!!!

    quarta-feira, 1 de fevereiro de 2012 16:58
  • 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

    quarta-feira, 1 de fevereiro de 2012 18:48