Hallo liebe Gemeinde, ich habe ein kleines Problem. Bei folgendem Quellcode erscheint leider immer ein Fehler.
Die Stelle TextBox1.Text = lesen.GetString("Name") weist auf folgenden Fehler hin.
(System.InvalidCastException: "Ungültige Konvertierung von der Zeichenfolge Name in Typ Integer."
Innere Ausnahme
FormatException: Input string was not in a correct format.)
Leider komme ich nicht dahinter, was dies zu bedeuten hat.
Kann mir vielleicht jemand nachhelfen :(.
Grüße qwery
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
Dim connection As New SqlConnection("Server=qwerty; Database= Anmeldung; Integrated Security = true")
Dim lesen As SqlDataReader
Try
connection.Open()
Dim Query As String
Query = "select * from Bearbeiter where Name = '" & ListBox1.Text & "'"
Dim befehl As New SqlCommand(Query, connection)
lesen = befehl.ExecuteReader
While lesen.Read
TextBox1.Text = lesen.GetString("Name")
TextBox2.Text = lesen.GetString("Kennwort")
End While
connection.Close()
Catch ex As SqlException
MessageBox.Show(ex.Message)
Finally
connection.Dispose()
End Try
End Sub
Die Stelle TextBox1.Text = lesen.GetString("Name") weist auf folgenden Fehler hin.
(System.InvalidCastException: "Ungültige Konvertierung von der Zeichenfolge Name in Typ Integer."
Innere Ausnahme
FormatException: Input string was not in a correct format.)
Leider komme ich nicht dahinter, was dies zu bedeuten hat.
Kann mir vielleicht jemand nachhelfen :(.
Grüße qwery
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
Dim connection As New SqlConnection("Server=qwerty; Database= Anmeldung; Integrated Security = true")
Dim lesen As SqlDataReader
Try
connection.Open()
Dim Query As String
Query = "select * from Bearbeiter where Name = '" & ListBox1.Text & "'"
Dim befehl As New SqlCommand(Query, connection)
lesen = befehl.ExecuteReader
While lesen.Read
TextBox1.Text = lesen.GetString("Name")
TextBox2.Text = lesen.GetString("Kennwort")
End While
connection.Close()
Catch ex As SqlException
MessageBox.Show(ex.Message)
Finally
connection.Dispose()
End Try
End Sub