Datenbank erstellen und verbinden ?

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von Patrick1993.

    Datenbank erstellen und verbinden ?

    Guten Morgen,

    bin auf der suche nach einem Tutorial, wie es funktioniert sich mit Visual Basic 2008 express eine eigene datenbank zu erstellen und auf diese zu connecten.
    Google findet nur mehr steinaltes zeug ^^

    mfg

    Servus...

    du musst im prinzip nur einen MySQL-Server zur verfügung haben, darauf erstellst du einen user mit dazugehöriger datenbank.
    Anschließend musst du in VB die MySQL.Data.dll bei Verweise mit einbinden und die Verbindung herstellen...


    VB.NET-Quellcode

    1. Imports MySQL.Data.MySqlClient
    5. Dim conn As MySqlConnection
    6. conn = New MySqlConnection
    7. conn.ConnectionString = "server=deinserver.de; uid=username; password=dein_passwort; database=name_der_datenbank"
    8. conn.Open()
    10. 'deine SQL-Befehle
    11. conn.Close()



    gruß
    tomml

    Danke für deine antwort, aber so weit war ich auch shon, ich hab jetzt aber trotzdem dein bsp. "nachgemacht" aber dieser fehler kommt ;(

    VB.NET-Quellcode

    1. Imports MySql.Data.MySqlClient
    3. Public Class Form1
    6. Dim conn As MySqlConnection
    7. conn = New MySqlConnection
    8. conn.ConnectionString = "server=db4free.net:3306; uid=xxxx; password=xxxxx12; database=xxxtl"
    10. conn.Close()
    13. End Class


    mfg

    alles klar, hab das oben ganz übersehen...
    du könntest das ganze auch in Form1_Load einbauen...


    gruß
    tomml

    ps: um die my.cnf zu editieren, brauchst du zugriff auf den SQL-server direkt (mit phpmyadmin geht das nicht)... aber wenn der connect nun funktioniert, wird die bind-address schon richtig umgestellt sein :)

    vielen dank für deine hilfe ;)

    kurze frage,,,

    wollte bereits einen eintrag erstellen dann kam aber dieser fehler:

    Der Schöüssel darf nicht NULL sein
    Parametername:Key

    was nun ?

    hier mein code


    VB.NET-Quellcode

    1. Imports MySql.Data.MySqlClient
    4. Public Class Form1
    7. Public con As New MySqlConnection
    8. Public cmd As New MySqlCommand
    9. Public reader As MySqlDataReader
    10. Public anzahl As Integer
    13. Public Sub Provider()
    14. con.ConnectionString = "server=db4xxxxxx6; uid=xxxxx; password=myyyyy12; database=myyyyyy"
    15. cmd.Connection = con
    16. End Sub
    24. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    25. Try
    27. con.Open()
    28. cmd.CommandText = "INSERT INTO Benutzer(Name, Alter, EMail) VALUES ('" & textbox1.text & "') "
    29. anzahl = cmd.ExecuteNonQuery
    30. con.Close()
    31. If anzahl > 0 Then
    32. MsgBox("Eintrag erfolgreich!", MsgBoxStyle.Information)
    33. End If
    34. Catch ex As Exception
    35. con.Close()
    36. MsgBox(ex.Message)
    37. End Try
    41. End Sub
    43. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    45. End Sub
    46. End Class

    wenn du die values übergibst, darf das nicht in einem string sein....
    ich würde das so lösen:

    VB.NET-Quellcode

    1. cmd.CommandText = "INSERT INTO Benutzer(Name, Alter, EMail) VALUES ('" & name.text & "', '" & alter.text & "', '" & EMail.text & "') "

    Hallo !



    geht immernoch ned .. auch wenn ich strings verwende brings nix

    VB.NET-Quellcode

    1. Imports MySql.Data.MySqlClient
    4. Public Class Form1
    7. Public con As New MySqlConnection
    8. Public cmd As New MySqlCommand
    9. Public reader As MySqlDataReader
    10. Public anzahl As Integer
    13. Public Sub Provider()
    14. con.ConnectionString = "server=db4free.net:3306; uid=mathis1112; password=mathis12; database=mathishuettl"
    15. cmd.Connection = con
    16. End Sub
    24. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    25. Try
    27. con.Open()
    28. cmd.CommandText = "INSERT INTO Benutzer(Name, Alter, EMail) VALUES ('" & Person.Text & "', '" & alter.Text & "', '" & EMail.Text & "') "
    30. anzahl = cmd.ExecuteNonQuery
    31. con.Close()
    32. If anzahl > 0 Then
    33. MsgBox("Eintrag erfolgreich!", MsgBoxStyle.Information)
    34. End If
    35. Catch ex As Exception
    36. con.Close()
    37. MsgBox(ex.Message)
    38. End Try
    42. End Sub
    44. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    46. End Sub
    47. End Class


    ps: sind diese
    ('" & Person.Text & "', '" & alter.Text & "', '" & EMail.Text & "') "
    textboxen mit anderem name oder was haben die etwas "persönliches" mit mysql zu tun ?

    mfg

    Hast du in deiner Datenbank die Spalte mit Null eingestellt ??
    Wenn es keine Nummer ist lass das Null weg.

    Die Textboxen wurden nur umbenannt.

    Standard heissen die Textbox1 und Textbox2 usw.
    Diese kannst du ubenennen in z.b. txtPerson oder txtAlter etc

    Das hat den sinn das du einfacher klar kommst wenn du fehler bekommst.

    Was ich dir aber auch ans Herz legen will ist Option Strict On damit wird dir einiges der Fragen erspart sofern Option Strict on dir einiges an Fehlern behebt bzw vorkaut und dir das richtige anzeigt.

    sry, aber hab nochmal ein problem.... ich hab nun ein für mich einfach verständlicheres beispiel für mich gewählt.




    hier der code:

    VB.NET-Quellcode

    1. Imports MySql.Data.MySqlClient
    5. Public Class Form1
    7. Dim ServerString As String = "server=localhost;User id=root;Password=root;Database=Kunden"
    8. Dim SQLConnection As MySqlConnection = New MySqlConnection
    15. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    17. SQLConnection.ConnectionString = ServerString
    19. Try
    20. If SQLConnection.State = ConnectionState.Closed Then
    21. SQLConnection.Open()
    22. MsgBox("Suscessfully Connected to MySQL Database")
    23. Else
    24. SQLConnection.Close()
    25. MsgBox("Connection is Closed")
    26. End If
    27. Catch ex As Exception
    28. MsgBox(ex.ToString)
    30. End Try
    31. End Sub
    33. Public Sub SaveNames(ByRef SQLStatement As String)
    34. Dim cmd As MySqlCommand = New MySqlCommand
    36. With cmd
    37. .CommandText = SQLStatement
    38. .CommandType = CommandType.Text
    39. .Connection = SQLConnection
    40. .ExecuteNonQuery()
    43. End With
    45. SQLConnection.Close()
    46. MsgBox("Suscessfully Added!")
    47. SQLConnection.Dispose()
    50. End Sub
    52. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    53. Dim SQLStatement As String = "INSERT INTO Kunden(Vorname, Nachname, Adresse, PLZ, Ort, Tel, Kundennummer) VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "')"
    55. SaveNames(SQLStatement)
    57. End Sub
    58. End Class

    Dim SQLStatement As String = "INSERT INTO Kunden(Vorname, Nachname, Adresse, PLZ, Ort, Tel, Kundennummer) VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "';)"
    SQLStatement.Connection = SQLConnection
    SQLStatement.ExecutenonQuery()