Views

Histats

Vitrine

VBA Access - Métodos de Conexão ao SQL Server - Methods of Connecting to SQL Server




Em algum momento, pode ser necessário fazer uma conexão a uma fonte de dados externos residente em um banco de dados SQL Server. Existem basicamente três métodos distintos para criar esta conexão. Descreverei brevemente cada método abaixo, e então, demonstrarei as técnicas adequadas de codificação necessárias para implementar cada método.




1. Métodos de Conexão com SQL Server



Fornecer informações de conexão como um argumento para o método Open do objeto Connection.





Use a propriedade ConnectionString do objeto de conexão.




Define as propriedades do objeto de conexão.



2. Pressupostos (Assumptions)



Data Source = "(local)"


Database/Initial Catalogue = "pubs"


User ID = "ADezii"


Password = "r16G37P99J"



3. Implementações do código



'1º Método - Conecte-se a informação com um argumento para o método Open de conexão ao objeto.



Dim cnn As ADODB.Connection





Set cnn = New ADODB.Connection




cnn.Open "Provider=SQLOLEDB;" & _


                   "Data Source=(local);" & _


                   "Database=pubs;" & _


                   "User ID=ADezii;" & _


                   "Password=r16G37P99J"




'Teste de validação da conexão.


Debug.Print cnn.ConnectionString




cnn.Close





Set cnn = Nothing




'2º Método - Use a propriedade ConnectionString de conexão ao objeto.


Dim cnn As ADODB.Connection

Set cnn = New ADODB.Connection
Let cnn.ConnectionString = "Provider=SQLOLEDB;" & _
"Data Source=(local);" & _
"Database=pubs;" & _
"User ID=ADezii;" & _
"Password=r16G37P99J"

cnn.Open

'Teste de validação da conexão. 
Debug.Print cnn.ConnectionString

cnn.Close
Set cnn = Nothing



'3º Método - Configure o conjunto de propriedades de conexão ao objeto.




Dim cnn As ADODB.Connection



Set cnn = New ADODB.Connection


With cnn

  Let .Provider = "SQLOLEDB"

  Let .Properties("Data Source") = "(local)"

  Let .Properties("Initial Catalog") = "pubs"

  Let .Properties("User ID") = "ADezii"

  Let .Properties("Password") = "r16G37P99J"

  Let .Open

End With


'Teste de validação da conexão. 

Debug.Print cnn.ConnectionString


cnn.Close



Set cnn = Nothing




Tags: VBA, Access, SQL Server, SQL, connection, conexão, 




✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias