Hallo,
ich programmiere gerade ein Programm mit einer Datenbankanbindung. Doch irgendwo sind dort Fehler und ich finde sie nicht...vllt. könnt ihr ja helfen...
Ich kann die vorhandenen DB Einträge sehen aber mehr auch nicht!
[Edit 1] Fehler wurden beschrieben
ich programmiere gerade ein Programm mit einer Datenbankanbindung. Doch irgendwo sind dort Fehler und ich finde sie nicht...vllt. könnt ihr ja helfen...
Ich kann die vorhandenen DB Einträge sehen aber mehr auch nicht!
VB.NET-Quellcode
- Public Class frmXenios
- Dim con As New OleDb.OleDbConnection
- Dim cmd As New OleDb.OleDbCommand
- Dim reader As OleDb.OleDbDataReader
- Dim pnummer As New ArrayList
- Private Sub frmXenios_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- con.ConnectionString = _
- "Provider=Microsoft.Jet.OLEDB.4.0;" & _
- "Data Source=A:/KABnet/System/KABnet.mdb"
- cmd.Connection = con
- btnLaden_Click(sender, e)
- End Sub
- Private Sub btnLaden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLaden.Click
- allesehen()
- End Sub
- Sub allesehen()
- Try
- con.Open()
- cmd.CommandText = "select * from Xenios"
- Ausgabe()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- con.Close()
- txtE_Mail.Text = ""
- txtName.Text = ""
- txtP_Nummer.Text = ""
- txtVorname.Text = ""
- txtX_Ereignis.Text = ""
- txtX_PW.Text = ""
- txtZugang.Text = ""
- End Sub
- Sub ausgabe()
- reader = cmd.ExecuteReader
- lstBox_Xenios.Items.Clear()
- pnummer.Clear()
- Do While reader.Read()
- lstBox_Xenios.Items.Add(reader("name") & " | " _
- & reader("vorname") & " | " _
- & reader("personalnummer") & " | " _
- & reader("email") & " | " _
- & reader("xeniosereignis") & " | " _
- & reader("xeniospasswort") & " | " _
- & reader("xenioszugang"))
- pnummer.Add(reader("personalnummer"))
- Loop
- reader.Close()
- End Sub
- Private Sub btnEinfügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEinfügen.Click
- Dim anzahl As Integer
- If txtP_Nummer.Text = "" Then
- MsgBox("Bitte mindestens eine " _
- & "Personalnummer eingetragen")
- Exit Sub
- End If
- Try
- con.Open()
- cmd.CommandText = _
- "insert into Xenios " & _
- "(name, vorname, personalnummer, " & _
- " email, xeniosereignis, xeniospasswort," & _
- " xenioszugang)" & _
- " values (`" & _
- txtName.Text & "', '" & _
- txtVorname.Text & "', " & _
- txtP_Nummer.Text & "', " & _
- txtE_Mail.Text & "', " & _
- txtX_Ereignis.Text & "', " & _
- CChar(txtX_PW.Text) & "', " & _
- CDate(txtZugang.Text) & "')"
- 'msgbix (cmd.commandtext)
- anzahl = cmd.ExecuteNonQuery()
- If anzahl > 0 Then
- MsgBox("Es wurde ein Datensatz eingefügt")
- End If
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- con.Close()
- allesehen()
- End Sub
- Private Sub lstBox_Xenios_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstBox_Xenios.SelectedIndexChanged
- Try
- con.Open()
- cmd.CommandText = _
- "select * from Xenios " _
- & "where personalnummer = " _
- & pnummer(lstBox_Xenios.SelectedIndex)
- reader = cmd.ExecuteReader
- reader.Read()
- txtName.Text = reader("name")
- txtVorname.Text = reader("vorname")
- txtP_Nummer.Text = reader("personalnummmer")
- txtE_Mail.Text = reader("email")
- txtX_Ereignis.Text = reader("xeniosereignis")
- txtX_PW.Text = reader("xeniospasswort")
- txtZugang.Text = reader("xenioszugang")
- reader.Close()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- con.Close()
- End Sub
- Private Sub btnÄndern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnÄndern.Click
- Dim anzahl As Integer
- If txtP_Nummer.Text = "" Then
- MsgBox("Bitte einen Datensatz auswählen " _
- & "und mindestens eine Personalnummer " _
- & "eintragen")
- Exit Sub
- End If
- Try
- con.Open()
- cmd.CommandText = _
- "update Xenios set " & _
- "name = '" & txtName.Text & "', " & _
- "vorname = '" & txtVorname.Text & "', " & _
- "personalnummer = " _
- & txtP_Nummer.Text & ", " & _
- "email= = " _
- & txtE_Mail.Text & ", " & _
- "xeniosereignis = '" _
- & txtX_Ereignis.Text & "' " & _
- "xeniospasswort = '" _
- & txtX_PW.Text & "' " & _
- "xenioszugangugang = '" _
- & txtZugang.Text & "' " & _
- "where personalnummer = " _
- & pnummer(lstBox_Xenios.SelectedIndex)
- 'MsgBox(cmd.CommandText)
- anzahl = cmd.ExecuteNonQuery()
- If anzahl > 0 Then
- MsgBox("Es wurde ein Datensatz geändert")
- End If
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- con.Close()
- allesehen()
- End Sub
- Private Sub btnLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLöschen.Click
- Dim anzahl As Integer
- If txtP_Nummer.Text = "" Then
- MsgBox("Bitte einen Datensatz auswählen")
- Exit Sub
- End If
- If MsgBox("Wollen Sie den ausgewählten " _
- & "Datensatz wirklich löschen?", _
- MsgBoxStyle.YesNo) = MsgBoxResult.No Then
- Exit Sub
- End If
- Try
- con.Open()
- cmd.CommandText = _
- "delete from Xenios " & _
- "where personalnummer = " & _
- pnummer(lstBox_Xenios.SelectedIndex)
- 'MsgBox(cmd.CommandText)
- anzahl = cmd.ExecuteNonQuery()
- If anzahl > 0 Then
- MsgBox("Es wurde ein Datensatz gelöscht")
- End If
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- con.Close()
- allesehen()
- End Sub
- Private Sub btnSuchen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuchen.Click
- If txtName.Text = "" Then
- MsgBox("Bitte einen Such-Namen eintragen")
- Exit Sub
- End If
- Try
- con.Open()
- cmd.CommandText = _
- "select * from Xenios where name like '%" _
- & txtName.Text & "%'"
- 'MsgBox(cmd.CommandText)
- ausgabe()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- con.Close()
- End Sub
- End Class
[Edit 1] Fehler wurden beschrieben