Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

...

Views

8 de abril de 2013

VBA Access - Méetodos 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, 



LinkWithin

Related Posts Plugin for WordPress, Blogger...

Vitrine