vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

Fortgeschrittene Programmierung
Re: Fehler nach CommitTrans 
Autor: Soulfly26
Datum: 23.05.03 09:17

Am Anfang der Funktion DatenAusgabe.
Die ist leider zu gross um sie hier anzuzeigen.

Etwa so:

Private Sub DatenAusgabe()
Dim blablabla usw.
On Error GoTo Fehlerbehandlung
cn.BeginTrans
.....Berechnungen
mehr Berechnungen
Updates
Inserts
'und irgenwann kommt dann:
Meldung = MsgBox("Daten erfolgreich ausgegeben", vbOKOnly)
Close #1
cn.CommitTrans
Fehlerbehandlung:
If Err.Number <> 0 Then
MsgBox "A B B R U C H !! Partner: " & PartnerName & " / Auftrag: " & AuNr & ""
AusgabeFehler = True
cn.RollbackTrans
MousePointer = vbDefault
End If
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Fehler nach CommitTrans98Soulfly2622.05.03 10:04
Re: Fehler nach CommitTrans406ModeratorDieter22.05.03 22:29
Re: Fehler nach CommitTrans29Nicole D23.05.03 07:49
Re: Fehler nach CommitTrans29Soulfly2623.05.03 08:34
Re: Fehler nach CommitTrans442ModeratorDieter23.05.03 08:59
Re: Fehler nach CommitTrans31Soulfly2623.05.03 09:17
Re: Fehler nach CommitTrans35Soulfly2623.05.03 09:59

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-2024 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