Visual Basic

Zapis do bazy danych 2

Zapis do bazy danych 2
Visual Basic

Program: zapisujący wprowadzone przez użytkownika dane (formatka).

Do bazy danych umieszczonej na lokalnym serwerze SQL. Jak i pobierający dane, po czym wprowadzający do listboxa.

Plik wymagany plik do poprawnego działania programu

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

Galeria:

Wykonanie.
Wykonanie.
Formatka.
Formatka.

Kod programu:

Dim polaczenie As New ADODB.Connection
Dim komunikator As New ADODB.Recordset
Dim output As Integer

Private Sub CommandButton1_Click()

    polaczenie.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=127.0.0.1; DATABASE=lapart; USER=root; Option=3"
    
    sqlstr = "SELECT * FROM grupa_klienta"
    komunikator.Open sqlstr, polaczenie
    Do Until komunikator.EOF
        output = komunikator.Fields(0) + 1
        komunikator.MoveNext
    Loop
    komunikator.Close
    
    sql_str = "INSERT INTO grupa_klienta SET idgrupa_klienta=" + CStr(output) + ", nazwa='" + TextBox1.Value + "', 
    uwagi_1='" + TextBox2.Value + "', uwagi_2='" + TextBox3.Value + "'"
    polaczenie.Execute sql_str
    polaczenie.Close

End Sub

Private Sub CommandButton2_Click()

    polaczenie.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=127.0.0.1; DATABASE=lapart; USER=root; Option=3"
    
    sqlstr = "SELECT * FROM miasta"
    komunikator.Open sqlstr, polaczenie
    Do Until komunikator.EOF
        output = komunikator.Fields(0) + 1
        komunikator.MoveNext
    Loop
    komunikator.Close
    
    sql_str = "INSERT INTO miasta SET ID_MIASTA=" + CStr(output) + ", Miasto='" + TextBox5.Value + "'"
    polaczenie.Execute sql_str
    polaczenie.Close

End Sub

Private Sub CommandButton3_Click()

    polaczenie.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=127.0.0.1; DATABASE=lapart; USER=root; Option=3"
    
    sqlstr = "SELECT * FROM wojewodztwa"
    komunikator.Open sqlstr, polaczenie
    Do Until komunikator.EOF
        output = komunikator.Fields(0) + 1
        komunikator.MoveNext
    Loop
    komunikator.Close
    
    sql_str = "INSERT INTO wojewodztwa SET ID_WOJEWODZTWA=" + CStr(output) + ", wojewodztwo='" + TextBox6.Value + "'"
    polaczenie.Execute sql_str
    polaczenie.Close

End Sub