Visual Basic

Wypisanie całej bazy

Wypisanie całej bazy
Visual Basic

Program: wypisujący zawartość tabeli podanej przez użytkownika.

Plik bazy danych konieczny do działania programu.

Kompilator: Microsoft Excel

Kod programu:

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

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