Pobieranie danych z bazy MySQL w arkuszu Excela
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"
Best Aplications