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   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
zurück

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

Visual-Basic Einsteiger
Insert neuen Record funktioniert nicht 
Autor: crosstravel
Datum: 29.08.20 19:08

Hallo zusammen,

ich habe eine MySQL-Datenbank unter Window 7 64-bit. Hier möchte ich in die Table "tblfahrauftragsti" eine Zeile einfügen. Das funktioniert leider nicht. Die Steuerung kommt auf den ErrorHandler mit der Meldung "Invalid Use of Null". Dabei ist Null im Feld "sRs!fa01_fahrauftrag", welches den Primary Key enthält. Ich verstehe nicht, warum ich nach dem Update nicht den Key zurück erhalte und so auf den Fehler laufe. Die Zeile wird auch nicht inserted. Hat jeamand eine Idee?

Danke
Rainer


Private Sub FehlenderFahrauftrag()
       On Error GoTo ErrorHandler:
       sRs_Close
       sSQL = "SELECT * FROM tblfahrauftragsti"
       sRs.CursorLocation = adUseClient
       sRs.Open sSQL, oConn, adOpenKeyset, adLockBatchOptimistic
       sRsOpen = True
       If sRs.RecordCount = 0 Then
          Exit Sub
       End If
 
       sRs.AddNew
       sRs!fa01_referenz = sevReferenz
       sRs!fa01_auftragsnummer = zRs!buz_vorgang
       sRs!fa01_kunde = sevKundennummer
       sRs!fa01_kundenname = left(sevAdresse1.Caption, 80)
       sRs!fa01_reisedatum = zRs!buz_datum
       sRs!fa01_reiseende = zRs!buz_datum
       sRs!fa01_fahrzeug_neu = ""
       sRs!fa01_auftrag_folge = 1
       sRs!fa01_bereit_zeit = zRs!buz_zeit
       sRs!fa01_abfahrt_zeit = zRs!buz_zeit
       sRs!fa01_abfahrt_ort = sevAbfOrtH
       sRs!fa01_ende_zeit = zRs!buz_zeitbis
       sRs!fa01_kilometer_inland = 0
       sRs!fa01_kilometer_ausland = 0
       sRs!fa01_route = sevFahrtziel
       sRs!fa01_kurzroute = left(sevFahrtziel, 30)
       sRs!fa01_bemerkung = ""
       sRs!fa01_status = 2
       sRs!fa01_user = sUserName
       If IsNumeric(sevPersBis) And sevPersBis > 0 Then
          sRs!fa01_anzahl_personen = sevPersBis
       Else
          sRs!fa01_anzahl_personen = sevPersVon
       End If
       sRs!fa01_anzahl_fahrzeuge = 1
       sRs!fa01_fahrzeug = zRs!buz_bus
       sRs!fa01_chauffeur = ""
       sRs!fa01_art = "Auftrag"
       sRs!fa01_fahrtart = "Programmfahrten"
 
       If Not IsNull(sevWerbe) Then
          If sevWerbe = "75 Incoming" Or sevWerbe = "Incoming" Then
             sRs!fa01_fahrtart = "Incoming"
          End If
       End If
       If IsNumeric(sevFahrzeugpreis) Then
          sRs!fa01_fahrzeugpreis = CDbl(sevFahrzeugpreis)
       Else
          sRs!fa01_fahrzeugpreis = 0
       End If
       sRs!fa01_preis_programm = 0
       sRs.Update
       nfahrauftrag_nummer = sRs!fa01_fahrauftrag
       Exit Sub
ErrorHandler:
    If Err <> 0 Then
       MsgBox Err.Source & "-->" & Err.Description, , "Fehler -" & _
         "FehlenderFahrauftrag"
    End If
 
End Sub


Beitrag wurde zuletzt am 29.08.20 um 19:10:02 editiert.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Insert neuen Record funktioniert nicht 
Autor: Souffleurlos
Datum: 29.08.20 19:15

Hallo,
das kann nur beantworten, wer auch das Schema der Tabelle kennt. Und das bist in diesem Fall eindeutig du!
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Insert neuen Record funktioniert nicht 
Autor: crosstravel
Datum: 30.08.20 06:02

Hallo,

das Problem lag bei "adLockBatchOptimistic". Habe das geändert; nun funktioniert alles.

Gruss
Rainer
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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