vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 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 & Datenbanken
Unterschied zweischen Debug und nihct Debug 
Autor: AnGe-Programmierer
Datum: 19.05.04 08:51

Warum überspringt mein Programm, im Debug modus nicht, Teile des folgenden Sources?

showdouble.adovergleich.Recordset.AddNew
showdouble.adovergleich.Recordset.Fields("Übernehmen").Value = "-------"
showdouble.adovergleich.Recordset.Fields("Info").Value = "PC"
showdouble.adovergleich.Recordset.Fields("Kdnr").Value = _
  adolook.Recordset.Fields("Customer_Code")
showdouble.adovergleich.Recordset.Fields("Name1").Value = _
adolook.Recordset.Fields("Customer_Name1")
showdouble.adovergleich.Recordset.Fields("Name2").Value = _
adolook.Recordset.Fields("Customer_Name2")
showdouble.adovergleich.Recordset.Fields("Straße").Value = _
adolook.Recordset.Fields("Street")
showdouble.adovergleich.Recordset.Fields("PLZ").Value = _
adolook.Recordset.Fields("City_Code1")
showdouble.adovergleich.Recordset.Fields("Ort").Value = _
adolook.Recordset.Fields("City_code2")
showdouble.adovergleich.Recordset.Fields("Fon").Value = _
adolook.Recordset.Fields("TELEPHONE")
showdouble.adovergleich.Recordset.Fields("AnsprPartner").Value = _
adolook.Recordset.Fields("CONTACT_PERSON_NAME")
showdouble.adovergleich.Recordset.Fields("PLZPostfach").Value = _
adolook.Recordset.Fields("Post_Code1")
showdouble.adovergleich.Recordset.Fields("Postfach").Value = _
adolook.Recordset.Fields("Post_Code2")
showdouble.adovergleich.Recordset.Fields("UstID").Value = _
adolook.Recordset.Fields("User_ID_NO")
showdouble.adovergleich.Recordset.Update
Speichern2
End Function
 
Function Speichern2()
 
showdouble.adovergleich.Recordset.AddNew
showdouble.adovergleich.Recordset.Fields("Info").Value = "MDB"
showdouble.adovergleich.Recordset.Fields("Name1").Value = _
  adoCustomer.Recordset.Fields("Kundenname")
showdouble.adovergleich.Recordset.Fields("Straße").Value = _
adoAddress.Recordset.Fields("Strasse")
showdouble.adovergleich.Recordset.Fields("PLZ").Value = _
adoAddress.Recordset.Fields("PLZ")
showdouble.adovergleich.Recordset.Fields("Ort").Value = _
adoAddress.Recordset.Fields("Ort")
showdouble.adovergleich.Recordset.Fields("PLZPostfach").Value = _
adoAddress.Recordset.Fields("PLZPostfach")
showdouble.adovergleich.Recordset.Fields("Postfach").Value = _
adoAddress.Recordset.Fields("Postfach")
showdouble.adovergleich.Recordset.Fields("AnsprPartner").Value = _
adoAddress.Recordset.Fields("Ansprechpartner")
showdouble.adovergleich.Recordset.Fields("Fon").Value = _
adoCustomer.Recordset.Fields("Telefonnummer")
showdouble.adovergleich.Recordset.Fields("UstID").Value = _
adoCustomer.Recordset.Fields("UstID")
showdouble.adovergleich.Recordset.Update
End Function
MfG und vielen Dank
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Unterschied zweischen Debug und nihct Debug481AnGe-Programmie...19.05.04 08:51

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