Pobieranie danych z bazy MySQL w arkuszu Excela

Pobieranie z bazy danych MySQL

Aby rozpocząć pobieranie z bazy MySQL należy w programie Excela zainicjować połaczenie z bazą. Pytanie łączenia wpisujemy w jednej z komórek arkusza. Warunkiem koniecznym jest zainstalowanie źródła danych ODBC w systemie. W tym celu w Administratorze źródeł danych musimy wcześniej zainstalować naszą bazę danych. Następnie odwołujemy się do niej w pytaniu "Pytanielacz" gdzie podajemy utworzony DSN czyli nazwę łącza bazy z ODBC bazę , serwer bazy i hasło.
Sheets("sql komputery").Select
'laczenie z baza
'Range("B5").Select
'Pytanielacz = ActiveCell.Text
Pytanielacz = "DSN=BOCAR2;DATABASE=bocar_wkp;SERVER=marixxx.iq.pl;UID=bocar_wkp;PWD=xxxxxxxxx"


' polaczenie ADO
Dim cnn As New ADODB.Connection
Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command
Dim i, j As Integer

' Otwarcie połączenia
Set cnn = New Connection
cnn.Open "DRIVER={MariaDB ODBC 3.1 Driver};" & Pytanielacz

Do testowania konieczne będzie wywołanie okienka modalnego MsgBox.
'MsgBox "Connection successful", , "VBATools.pl"