Visual Basic

Wypisanie zawartości tabeli z bazy

Wypisanie zawartości tabeli z bazy
Visual Basic

Program: pobierający nazwy wszystkich tabel z bazy danych SQL, a następnie wrzucający zawartość do listboxa.

Gdzie użytkownik może sobie wybrać nazwę tabeli oraz wypisać całą jej zawartość.

Kompilator: Microsoft Excel
Baza danych: MySQL (gotowa baza danych)

Galeria:

Wypisywanie zawartości.
Wypisywanie zawartości.
Aktualizacja tabel.
Aktualizacja tabel.

Kod programu:

Dim polaczenie As New ADODB.Connection
Dim komunikator As New ADODB.Recordset
Sub aktualizuj_tabele()

    polaczenie.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=127.0.0.1; DATABASE=lapart; USER=root; PASSWORD=123; Option=3"
    strQuery_show = "show tables"
    komunikator.Open strQuery_show, polaczenie
    i = 1
    Do Until komunikator.EOF
        Cells(i, 1) = komunikator.Fields(0)
        komunikator.MoveNext
        i = i + 1
    Loop
    komunikator.Close
    polaczenie.Close
    
End Sub

Sub wypisz_zawartosc()

    polaczenie.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=127.0.0.1; DATABASE=lapart; USER=root; PASSWORD=123; Option=3"
    sql_str = "SELECT * FROM " + Sheets("Arkusz1").Cells(Sheets("Arkusz1").Cells(1, 4), 1)
    komunikator.Open sql_str, polaczenie
    With Cells
        .ClearContents
        .CopyFromRecordset komunikator
    End With
    komunikator.Close
    polaczenie.Close

End Sub