Hallo,
wenn ich bei VB.Net einen Eintrag nur zum Testen in meine Tabelle machen will gibt er mir einen Fehler aus
("You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use
near 'Alter, EMail) Values ('hallo', '18', 'hallo1')' at line 1
Ja, hier mal der Code:
Ich Danke im Voraus
wenn ich bei VB.Net einen Eintrag nur zum Testen in meine Tabelle machen will gibt er mir einen Fehler aus
("You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use
near 'Alter, EMail) Values ('hallo', '18', 'hallo1')' at line 1
Ja, hier mal der Code:
Quellcode
- Imports MySql
- Imports MySql.Data
- Imports MySql.Data.MySqlClient
- Imports System.Data.OleDb
- Public Class Form1
- Public con As New MySqlConnection
- Public cmd As New MySqlCommand
- Public reader As MySqlDataReader
- Public anzahl As Integer
- Public Sub Provider()
- con.ConnectionString = "server=localhost;user id=root;password=;database=Test;"
- cmd.Connection = con
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim Name As String = "hallo"
- Dim Alter As Integer = "18"
- Dim EMail As String = "hallo1"
- Try
- Provider() 'Verbindung zur Db öffnen
- con.Open()
- cmd.CommandText = "INSERT INTO Benutzer(Name, Alter, EMail) VALUES ('" & Name & "', '" & Alter & "', '" & EMail & "')" 'Der Befehl für die DB
- anzahl = cmd.ExecuteNonQuery 'anzahl enthält nun ein Wert alle geänderten/ hinzugefügten/ gelöschten Einträge
- con.Close() 'Verbindung zur DB schließen
- If anzahl > 0 Then 'Nun wird kontrolliert ob überhaupt ein Eintrag hinzugefügt geworden ist, wenn ja dann die MSG
- MsgBox("Sie haben einen Eintrag gemacht", MsgBoxStyle.Information)
- End If
- Catch ex As Exception
- con.Close() 'ich schließe hier ebenfalls die Verbindung, weil wenn ein Fehler in dem oberen code passiert, passiert er vor dem schließen der Verbindung. Wenn ich das nicht machen würde käme der Fehler das die Verbindung noch offen ist, wenn ich das nächste mal eine Verbindung öffne.
- MsgBox(ex.Message)
- End Try
- End Sub
- End Class
Ich Danke im Voraus