✔ VBA Dashboards Specialist®: VBA Access - Méetodos de Conexão ao SQL Server

8 de abril de 2013

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

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba 3 Calendários Customizáveis de 2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

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