MySQL Befehl ausführen lassen

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von Fire88.

    MySQL Befehl ausführen lassen

    Hey VBler

    Ich bin es wider und bringe schon wider die nächste frage.
    ich arbeite nun gerade an einem etwas größerem Projekt, das noch einiges machen muss.

    nur habe ich aber schon zu beginn eigentlich eine kleine Wissenslücke mit der ich aber das ganze vorhaben nicht realisieren kann.

    Ich möchte eine Verbindung zu einer MySQL-DB aufbauen und da dann eine Querry ausführen lassen.
    nun gut, verbinden geht ohne weiteres, doch die querry wird nicht angenommen oder übergeben.

    Weiß einer wo der Fehler ist? Den Visualstudio Ultimate gibt bei mir keinen Fehler aus. auch der try catch block nicht.

    hier der Surce:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports MySql
    2. Imports MySql.Data
    3. Imports MySql.Data.MySqlClient
    5. Public Class Login
    10. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    11. Dim conn As New MySqlConnection
    12. Dim myConnectionString As String
    13. myConnectionString = "server=" & TextBox1.Text & ";" & "uid=" & TextBox2.Text & ";" & "pwd=" & TextBox3.Text & ";"
    14. conn.ConnectionString = myConnectionString
    17. Dim myCommand As New MySqlCommand
    18. Dim myAdapter As New MySqlDataAdapter
    19. Dim myData As New DataTable
    20. Dim SQL As String
    22. Try
    24. conn.Open()
    25. SQL = "INSERT INTO pscdatenb.data_table (id, local_name, pw) VALUES ('18', 'hund', 'fryle');"
    27. conn.Clone()
    28. Catch ex As Exception
    29. MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    30. End Try
    33. End Sub
    34. End Class


    mfg

    VB.NET-Quellcode

    1. Dim conn As New MySqlConnection
    2. Dim myConnectionString As String
    3. dim cmd as new mysqlcommand
    4. con.Connectionstring= "server=" & TextBox1.Text & ";" & "uid=" & TextBox2.Text & ";" & "pwd=" & TextBox3.Text & ";"
    5. cmd.Connection= con
    7. con.Open
    8. Dim myCommand As New MySqlCommand
    9. Dim myAdapter As New MySqlDataAdapter
    10. Dim myData As New DataTable
    12. Try
    14. conn.Open()
    15. myCommand.CommandText = "INSERT INTO pscdatenb.data_table (id, local_name, pw) VALUES ('18', 'hund', 'fryle');"
    16. mycommand.ExecuteNonQuery
    17. conn.Clone()
    18. Catch ex As Exception
    19. MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    20. End Try
    23. End Sub

    Ich hab den Post oben mal Editiert da ich mich verlesen hatte

    machs so:

    VB.NET-Quellcode

    1. Dim conn As New MySqlConnection
    2. Dim myConnectionString As String
    3. dim cmd as new mysqlcommand
    4. con.Connectionstring= "server=" & TextBox1.Text & ";" & "uid=" & TextBox2.Text & ";" & "pwd=" & TextBox3.Text & ";"
    5. cmd.Connection= con
    7. con.Open
    8. Dim myCommand As New MySqlCommand
    9. Dim myAdapter As New MySqlDataAdapter
    10. Dim myData As New DataTable
    12. Try
    13. conn.Open()
    14. myCommand.CommandText = "INSERT INTO pscdatenb.data_table (id, local_name, pw) VALUES ('18', 'hund', 'fryle');"
    15. mycommand.ExecuteNonQuery
    16. conn.Clone()
    17. Catch ex As Exception
    18. MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    19. End Try
    22. End Sub

    Spoiler anzeigen

    Patrick1993 schrieb:

    machs so:

    VB.NET-Quellcode

    1. Dim conn As New MySqlConnection
    2. Dim myConnectionString As String
    3. dim cmd as new mysqlcommand
    4. con.Connectionstring= "server=" & TextBox1.Text & ";" & "uid=" & TextBox2.Text & ";" & "pwd=" & TextBox3.Text & ";"
    5. cmd.Connection= con
    7. con.Open
    8. Dim myCommand As New MySqlCommand
    9. Dim myAdapter As New MySqlDataAdapter
    10. Dim myData As New DataTable
    12. Try
    13. conn.Open()
    14. myCommand.CommandText = "INSERT INTO pscdatenb.data_table (id, local_name, pw) VALUES ('18', 'hund', 'fryle');"
    15. mycommand.ExecuteNonQuery
    16. conn.Clone()
    17. Catch ex As Exception
    18. MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    19. End Try
    22. End Sub



    nun kommt das
    Warnung 1 Nicht verwendete lokale Variable: "myConnectionString". C:\Users\Fire\AppData\Local\Temporary Projects\MySQL_Connector\Login.vb 13 13 MySQL_Connector

    aber es ist ja nur ne wahrnung. werde es gleich testen ob die querry geht auf die art

    problem Patrick.
    myCommand hat immer noch keine Verbindung.
    Du deklariertst zwar cmd, benutzt es aber nicht.

    VB.NET-Quellcode

    1. Dim conn As New MySqlConnection
    2. 'toastbrot
    3. conn.Open()
    4. cmd.Connection = conn
    5. cmd.CommandText = "INSERT INTO [...]"
    6. cmd.ExecuteNonQuery()


    Warnung: ignorieren^^

    den myCOnnectionstring kannst du dir schenken da du ja die daten ein paar zeilen drunter einträgst

    VB.NET-Quellcode

    1. Dim conn As New MySqlConnection
    2. dim cmd as new mysqlcommand
    3. con.Connectionstring= "server=" & TextBox1.Text & ";" & "uid=" & TextBox2.Text & ";" & "pwd=" & TextBox3.Text & ";" cmd.Connection= con
    4. con.Open
    6. Try
    7. conn.Open()
    8. cmd.CommandText = "INSERT INTO pscdatenb.data_table (id, local_name, pw) VALUES ('18', 'hund', 'fryle');"
    9. mycommand.ExecuteNonQuery
    10. conn.Clone()
    11. Catch ex As Exception
    12. MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    13. End Try
    16. End Sub


    So nun sollte es gehen habs mal ein wenig aufgeräumt

    und gleich verschlimmbessert.
    Wenn der Code nicht geht

    VB.NET-Quellcode

    1. Dim conn As New MySqlConnection
    2. dim cmd as new mysqlcommand
    3. conn.Connectionstring= "server=" & TextBox1.Text & ";" & "uid=" & TextBox2.Text & ";" & "pwd=" & TextBox3.Text & ";"
    4. Try
    5. conn.Open()
    6. cmd.connection = conn
    7. cmd.CommandText = "INSERT INTO pscdatenb.data_table (id, local_name, pw) VALUES ('18', 'hund', 'fryle');"
    8. mycommand.ExecuteNonQuery()
    9. conn.Close()
    10. Catch ex As Exception
    11. MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    12. End Try

    dann ist was im Argen bei dir.

    VB.NET-Quellcode

    1. cmd.CommandText = "INSERT INTO pscdatenb.data_table (id, local_name, pw) VALUES ( '" & '18' & 'hund' & 'fryle' & "')"


    jetzt aber

    AliveDevil schrieb:

    Dim conn As New MySqlConnection dim cmd as new mysqlcommand conn.Connectionstring= "server=" & TextBox1.Text & ";" & "uid=" & TextBox2.Text & ";" & "pwd=" & TextBox3.Text & ";" Try conn.Open() cmd.connection = conn cmd.CommandText = "INSERT INTO pscdatenb.data_table (id, local_name, pw) VALUES ('18', 'hund', 'fryle');" mycommand.ExecuteNonQuery() conn.Close() Catch ex As Exception MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try


    Fehler
    Fehler 1 "mycommand" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\Fire\AppData\Local\Temporary Projects\MySQL_Connector\Login.vb 19 13 MySQL_Connector

    Ich habe dir deinen code gesäubert und ein wenig angepasst #11 so sollte es keine probleme mehr geben

Facebook
Telefonspende