Conectando-se ao DB2

Conectando-se ao DB2

Abaixo está uma pequena rotina VBA executada no MS Excel para consultar uma tabela usando o driver de ODBC. Precisa limpar um pouco, declarar minhas variáveis, etc, mas funciona.

Eu sempre achei difícil deixar um exemplo completo disso na Web. Tenho certeza que existe algum exemplo completo disso por aí, mas quis deixar minha contribuição breve. Essa versão é boa devido ao usuário precisar de uma conexão ODBC em sua máquina. Automaticamente limitando o acesso cliente a um login que deva funcionar.

Sub transfer()

Dim varState As String

Set CS = CreateObject(“ADODB.Connection”)Set RS = CreateObject(“ADODB.Recordset”)

‘Retrieve values from Cells on the sheet to use as selections in the query belowvarState = ActiveSheet.Range(“C2”).ValuevarFrom_Date = ActiveSheet.Range(“B3”).ValuevarTo_Date = ActiveSheet.Range(“B4”).Value‘ ISeries connection String‘ConnectString = “Driver={ISeries Access ODBC Driver};System=10.1.4.1;Uid=xxxxx;Pwd=xxxxx;Library=PWRDTA41;QueryTimeout=0”ConnectString = “Driver={ISeries Access ODBC Driver};System=10.1.4.1;Library=PWRDTA41;QueryTimeout=0”

CS.Open (ConnectString)

SqlString = “SELECT hhicusn , C.FFDCNMB, C.FFDSTEB, hhiclsn, SUM(hhiqysa), SUM(hhiexsn), SUM(hhiexac) ” & _” FROM pwrdta41.hhiorddp ” & _” left outer join PWRDTA41.FFDCSTBP c” & _” ON hhicusn = c.ffdcusn and” & _” hhidivn = c.ffddivn and” & _” c.ffdcmpn = hhicmpn and” & _” c.ffddptn = hhidptn” & _” WHERE hhidtei between ” & varFrom_Date & ” and ” & varTo_Date & _” and hhiclsn = ‘105’ and c.ffdsteb = ‘” & varState & “‘” & _” GROUP BY hhicusn, c.ffdcnmb, c.ffdsteb, hhiclsn” & _” ORDER BY hhicusn”

‘Message box can be used for debugging the SQL statement‘MsgBox (SqlString)

RS.Open SqlString, CS

‘Clear Previous contents of CellsCells.SelectActiveSheet.Range(“A7:Z65535”).ClearContents‘copy the Recordset to excel sheet starting at A7ActiveSheet.Range(“A7”).CopyFromRecordset RS

‘Close Connection and RecordSetRS.CloseCS.Close‘Reset cell back to A1ActiveSheet.Range(“A1”).Select

End Sub

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

            

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

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

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

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

VBA Excel - Conectando-se à distância através do IP

| Blog Office VBA | Blog Excel | Blog Access |

Talvez tenha se deparado com a necessidade de plugar-se a um Banco de Dados à distância, em outra rede, ou num servidor externo à rede que utiliza. Como fazer referência a ele utilizando uma conexão ODBC?

No exemplo a seguir temos a conexão a um banco MySQL. O código abaixo será útil nessa experiência, apenas certifique-se de utilizar a versão correta do Driver de ODBC.

Sub DeleteMySQLDatabase()

Dim Database_Name As String

Dim User_ID As String

Dim Password As String

Dim Cn As ADODB.Connection

Dim Server_Name As String

Dim SQLStr As String

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

Let Server_Name = Sheets(3).Range("B24").Value               ' IP number or servername

Let Database_Name = Sheets(3).Range("B21").Value             ' Name of database

Let User_ID = Sheets(3).Range("B25").Value                   ' ID user or username

Let Password = Sheets(3).Range("B23").Value                  ' Password

Let Tabellen = Sheets(3).Range("B22").Value                  ' Name of table to write to

Let auxilia = Sheets(1).Range("L16").Value

Let ID = Sheets(1).Cells(auxilia, "A").Value

Let SQLStr = "DELETE FROM " & Tabellen & " WHERE ID = '" & ID & "';"

Set Cn = New ADODB.Connection

Cn.Open "Driver={MySQL ODBC 3.51 Driver};Server=" & Server_Name & ";Database=" & Database_Name & _

";Uid=" & User_ID & ";Pwd=" & Password & ";"

Cn.Execute SQLStr

Set rs = Nothing

Cn.Close

Set Cn = Nothing

End Sub

Outros artigos:

O que é ODBC?

Reference

Tags: VBA, Excel, SQL, MySQL, ODBC, connect, Database, Banco de Dados, conexão, server, servidor, IP