VBA Excel - Extraindo dados do MySQL - Extract, Get Data from MySQL PHP



É sempre importante relembrar o básico: O código abaixo mostra como podemos extrair os dados de um Banco MySQL, gravando-os na planilha do Excel. Alguns podem até usá-lo para controlar a extração de grandes quantidades de dados como o desenvolvimento PHP para web.

Este código é oportuno para usarmos quando precisamos de um banco de dados MySQL que está num site, por exemplo, e precisa realizar uma grande atualização de dados. Basta automatizarmos o processo e obtermos os dados que precisamos.

Para que seja capaz de executar o código VBA certifique-se de ter habilitado o Microsoft ActiveX Data Objects Library XX. Além de uma conexão checada de ODBC para o MySQL instalada no computador onde a aplicação rodará.




Sub ExDataFromMySQL()

Dim Password As String

Dim SQLStr As String

Dim Cn As ADODB.Connection

Dim Server_Name As String

Dim User_ID As String

Dim Database_Name As String

Dim rs As ADODB.Recordset


Set rs = New ADODB.Recordset

     

Range("A2:BB90000").ClearContents



Let Server_Name = Range("e4").Value             ' IP number or servername

Let Database_Name = Range("e1").Value         ' Name of database

Let User_ID = Range("h1").Value                      ' id user or username

Let Password = Range("e3").Value                    ' Password

Let Tabellen = Range("e2").Value                     ' Name of table to write to



Let SQLStr = "SELECT * FROM " & Tabellen

     

Set Cn = New ADODB.Connection


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

     

rs.Open SQLStr, Cn, adOpenStatic

    

Dim myArray()



Let myArray = rs.GetRows()

Let kolumner = UBound(myArray, 1)

Let rader = UBound(myArray, 2)



For K = 0 To kolumner

Let Range("A5").Offset(0, K).Value = rs.Fields(K).Name


For R = 0 To rader

       Let Range("A5").Offset(R + 1, K).Value = myArray(K, R)

Next

Next



rs.Close


Set rs = Nothing


Cn.Close


Set Cn = Nothing

End Sub

Tags: VBA, Excel, Banco de Dados, MySQL, SQL, extract, extrair, dados, data, Get, PHP, ODBC, connection, MySQL, 


Nenhum comentário:

Postar um comentário

diHITT - Notícias