Visual Basic

Zapis do bazy danych

Zapis do bazy danych
Visual Basic

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

Do bazy danych umieszczonej na lokalnym serwerze SQL.

Plik wymagany plik do poprawnego działania programu

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

Galeria:

Program w akcji.

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; PASSWORD=123; Option=3"
    
    sqlstr = "SELECT * FROM firma"
    komunikator.Open sqlstr, polaczenie
    Do Until komunikator.EOF
        output = komunikator.Fields(0) + 1
        komunikator.MoveNext
    Loop
    komunikator.Close
    
    sql_str = "INSERT INTO firma SET id_firma=" + CStr(output) + ", nazwa=" + TextBox1.Value + ", nr_mieszkania=" + 
    TextBox2.Value + ", ulica=" + TextBox3.Value + ", Nip=" + TextBox4.Value + ", nr_domu=" + TextBox5.Value + ", 
    e_mail=" + TextBox6.Value
    polaczenie.Execute sql_str
    polaczenie.Close

End Sub