Visual Basic Forum

feldweibel · Newbie Anmeldedatum: 17.06.2011 Beiträge: 4

Hallo zusammen

Ich habe folgendes Problem. Jedesmal wenn der "speichern" Button gedrückt wird, löscht es mir in der AccessDatenbank die Tabelle uebergaberapport. Kann mir wer helfen?

Private Sub btn_speichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_speichern.Click
Dim AccessDB As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=X:\Users\User\Documents\Visual Studio 2010\Projects\KaJo\KaJo_Data_Secretary\KaJo_Data_Secretary\bin\Debug\db_main.accdb")

Dim AccessCommand As OleDb.OleDbCommand = AccessDB.CreateCommand
AccessDB.Open()

'Neuer Datensatz hinzufügen
AccessCommand.CommandText = "INSERT INTO uebergaberapport (ID, erstelltam, erstelltum, erstelltvon, gültigbis, imauftragvon, bemerkung, status) Values" & _
"("", '" & Me.lbl_datum.Text & "', '" & Me.lbl_zeit.Text & "', '" & Me.tbox_erstelltvon.Text & "', '" & Me.tbox_gültigbis.Text & "', '" & Me.tbox_imauftragvon.Text & "', '" & Me.rtbox_eintrag.Text & "', 'aktiv' )"

Me.Close()
End Sub

Danke für eure Hilfe.

Gruss Joël
_________________