vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: Fehler bei OleDataAdapter.update 
Autor: worldofavatar
Datum: 28.01.04 11:30

Danke für die Antwort.
Bekomme trotzdem den selben Fehler.
Habe es jetzt wie folgt umgesetzt!

Private Sub butÄndern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butÄndern.Click
Dim myUpdateQuery As String
Dim myConnection As New OleDb.OleDbConnection(myConnectionString)

If CStr(txt_FKZ2.Text)<>"" Then
myUpdateQuery = "UPDATE TAB_33FKZ SET [Ursp_FKZ] = '" & CStr(txt_ursp_FKZ.Text) & "', fkzzif = '" & CStr(txt_FKZ1.Text) & "', fkz_p = " & CSng(txt_FKZ1_p.Text) & ", fkzzif2 = '" & CStr(txt_FKZ2.Text) & "', fkz2_p = " & CSng(txt_FKZ2_p.Text) & ", valid = '" & txt_valid.Text & "', void = '" & txt_valid.Text & "' WHERE (id = " & CInt(txt_id.Text) & ")"
Else
myUpdateQuery = "UPDATE TAB_33FKZ SET [Ursp_FKZ] = '" & CStr(txt_ursp_FKZ.Text) & "', fkzzif = '" & CStr(txt_FKZ1.Text) & "', fkz_p = " & CSng(txt_FKZ1_p.Text) & ", valid = '" & txt_valid.Text & "', void = '" & txt_void.Text & "' WHERE (id = " & CInt(txt_id.Text) & ")"
End If

Dim myCommand As New OleDb.OleDbCommand(myUpdateQuery)
myCommand.Connection = myConnection
Try
myConnection.Open()
Catch ex As Exception
MsgBox("Beim Datenbankaufbau ist folgender Fehler aufgetreten: " _
& vbNewLine & ex.Message, MsgBoxStyle.Critical, "DB-Fehler")
End Try

Try
Dim anz As Int16 = myCommand.ExecuteNonQuery()
MsgBox("Es wurde " & anz & "Zeile erfolgreich geändert!", MsgBoxStyle.Information, "UPDATE")
Catch ex As Exception
MsgBox("Beim Update der ID: " & Me.txt_id.Text & " ist folgender Fehler aufgetreten: " _
& vbNewLine & ex.Message, MsgBoxStyle.Critical, "DB-Fehler")
End Try
myConnection.Close()
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Fehler bei OleDataAdapter.update803worldofavatar28.01.04 09:17
Re: Fehler bei OleDataAdapter.update502waYne28.01.04 11:27
Re: Fehler bei OleDataAdapter.update473worldofavatar28.01.04 11:30

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel