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.ConnectionSet cnn = New ADODB.ConnectionLet 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.ConnectionStringcnn.CloseSet 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,
Nenhum comentário:
Postar um comentário