Hallo,
nach langer suche um Internet ohne Erfol entschied ich mich mein Problem erfahrenen Leuten mitzuteilen.
Ich verusche mich an einer Datenbankanbindung (MS Access 2003) hier möchte ich eine Update, Insert und Delete Funktion verwenden. Das Laden der Datenbank klappt schonmal gut. Der rest leider nicht.
Das das mein erste Kontakt mit Datenbank ist habe ich auch überhauptkeine Ahnung. Der Quelltext ist von einer Online Community VB-fun.de
Private dbpath As String = System.IO.Path.Combine(Application.StartupPath, "Dataset.mdb")
Private Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbpath & ";")
Private sql As String = "SELECT * FROM [User];"
Private cmd As New OleDbCommand(sql, Conn)
Private da As New OleDbDataAdapter(cmd)
Private ds As New DataSet
Public Sub Load_Table()
Try
Conn.Open()
ds.Clear()
da.Fill(ds, "User")
Form1.DataGrid1.DataSource = ds.Tables("User")
Form1.cbUser.DataSource = ds
Form1.cbUser.DisplayMember = "User.Username"
Catch ex As OleDbException
MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Finally
Conn.Close()
End Try
End Sub
So fängt alles an und klappt auch noch ganz gut nur jetzt fällt er auf die Schnauze...
Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
Try
Conn.Open()
Dim row As DataRow = ds.Tables("User").NewRow
row("User") = User
row("Passwort") = PW
row("Mail") = Email
row("Datum") = Date.Now
ds.Tables("User").Rows.Add(row)
[COLOR="SeaGreen"][U] da.Update(ds, "User")[/U][/COLOR]
MessageBox.Show("Neuer Datensatz Username " & User & " hinzugefügt!", "Neuer Datensatz", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As OleDbException
MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
Finally
Conn.Close()
End Try
Load_Table()
bei der von mir Makierten stellen springt der Debugger direkt in denn Catch Teil... .
Ich weiß nicht warum und bitte um hilfe.
Gruß
Chris