SQL Server 2008 - Die Identität der neu eingefügten Zeilen kann nicht festgestellt werden.

MemoAnMichSelbst · 11. November 2013, 08:24

Hi,

die Fehlermeldung "Die Identität der neu eingefügten Zeilen kann nicht festgestellt werden." ist für mich nicht nachvollziehbar und ich habe sie nun zum ersten Mal vor der Nase.
Hat irgendjemand einen Tipp was da schief läuft?

Es handelt sich um ein Programm welches die Lieferstände der von uns versandten Pakete ermittelt. In dem aktuellen Fall werden die Daten bei UPS ausgelesen...

Der Codeausschnitt ist folgender:

VB.NET-Quellcode

Dim track As New TrackService()
Dim tr As New TrackRequest()
Dim upss As New UPSSecurity()
Dim upssSvcAccessToken As New UPSSecurityServiceAccessToken()
upssSvcAccessToken.AccessLicenseNumber = "blubbblubb"
upss.ServiceAccessToken = upssSvcAccessToken
Dim upssUsrNameToken As New UPSSecurityUsernameToken()
upssUsrNameToken.Username = "blubbblubb"
upssUsrNameToken.Password = "blubbblubb"
upss.UsernameToken = upssUsrNameToken
track.UPSSecurityValue = upss
Dim request As New RequestType()
Dim requestOption As [String]() = {"15"}
request.RequestOption = requestOption
tr.Request = request
tr.InquiryNumber = rsSQL.Fields("TrackingNr").Value.ToString
System.Net.ServicePointManager.CertificatePolicy = New TrustAllCertificatePolicy()
Dim trackResponse As TrackResponse = track.ProcessTrack(tr)
rsSQL.Fields("Lieferscheinnummer").Value = trackResponse.Shipment(0).ReferenceNumber(0).Value

In der letzten Zeile tritt der Fehler auf. Zuerst dachte ich, er wäre im Record der Datenbank verruchtscht, jedoch zeigt er mir für andere Felder des Records Werte an... Ein Screenshot anbei.

sonne75 · 11. November 2013, 08:28

MemoAnMichSelbst schrieb:

VB.NET-Quellcode

trackResponse.Shipment(0)

Schau dir den Wert unten im Fenster an, wird wohl "Nothing" sein....

MemoAnMichSelbst · 11. November 2013, 08:31

Nein, das ist es leider nicht. Die API hat korrekte Werte ermittelt.

sonne75 · 11. November 2013, 08:33

Dann hast du wohl ein Problem mit dieser Variable (das Feld existiert wohl nicht).

MemoAnMichSelbst schrieb:

VB.NET-Quellcode

rsSQL.Fields("Lieferscheinnummer").Value

MemoAnMichSelbst · 11. November 2013, 08:33

Doch, auch das Feld existiert... Und hat bislang den Wert DBNull

(Siehe erster Screenshot unten Links im Überwachungsmonitor)
Es wird ja bei anderen Datensätzen anstandslos gefüllt nur eben irgendwann... knall und Error...
Ich versteh das nicht.

sonne75 · 11. November 2013, 08:35

Versuch mal den gleichen Wert einem anderen Feld zuzuweisen. Und dann diesem Feld einen festen Wert (40 z.B.).
Dann wirst du sehen, ob es am ausgelesenen Wert oder am Feld liegt.
Du musst das Problem ja irgendwie eingrenzen können.

MemoAnMichSelbst · 11. November 2013, 08:39

So...
ich habe nun einmal versucht einen Fixwert zu setzen...
Gleicher Fehler

Dann dachte ich mir... Überspring einfach mal die Zeile im Code und versuch den nächsten Wert zu setzen... Und gleicher Fehler...
Also hat es nichts mit den Inhalten zutun

sonne75 · 11. November 2013, 08:40

Also ist es wohl eindeutig, dass es am Feld liegt.
Die Einstellungen für dieses Feld werden andere sein als für den Rest. Schau mal, ob da zufällig ReadOnly oder sowas steht?

EDIT: Sehe gerade, beim 2.Mal ist es ein anderes Feld. Ich denke aber, es wird so sein, dass die vorige Fehlermeldung einfach wiederausgegeben wird.

MemoAnMichSelbst · 11. November 2013, 08:41

Ich denke nicht dass es am Feld liegt, da im zweiten Screenshot zu sehen ist, dass es sich bei einem anderen Feld des gleichen Datensatzes identisch verhält.
Ich denke es liegt am entsprechenden Datensatz.

EDIT:
Auch wenn ich den Befehl mit der Lieferscheinnummer auskommentiere, wird beim Datensatz dann das Nächste Feld angemeckert.

sonne75 · 11. November 2013, 08:42

Habe schon editiert. Nur, weil du in deinem Programm weitergehst, heißt es nicht, dass das SQL-Ding die Fehlermeldung ignoriert. Es kann sein, wenn einmal Fehler drin war, dass der Fehler weiterausgegeben wird.

Kommentier mal die Zeile mit 40 aus und schau, ob es dann läuft. Du sagtest doch selbst, dass andere Felder funktioniert haben.

EDIT: wir überschneiden uns dauernd.
Ich sehe erst jetzt, dass es überhaupt das erste Feld ist, welches du hier ansprichst. Dann wird wohl an deinem SQL-Ding was schief sein. Wo hast du das "rsSQL" her?

MemoAnMichSelbst · 11. November 2013, 08:55

Das ist nicht ganz korrekt...
Im Code darüber wird schon ein Feld angesprochen. (die TrackingNr).
Und darüber gibt es noch ein "insert" Statement (was aber nicht immer ausgeführt wird)

VB.NET-Quellcode

SQL = "SELECT * FROM Kopfdaten " & _
"WHERE TrackingNr = '" & rsPA.Fields("Trackingnummer").Value.ToString & "' " & _
"AND Spediteur = '" & rsPA.Fields("Spediteur").Value.ToString & "' "
rsSQL.Open(SQL, conSQL, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, 1)
If rsSQL.EOF Then
rsSQL.AddNew()
rsSQL.Fields("TrackingNr").Value = rsPA.Fields("Trackingnummer").Value.ToString
rsSQL.Fields("Spediteur").Value = rsPA.Fields("Spediteur").Value.ToString
rsSQL.Fields("Ausgeliefert").Value = False
rsSQL.Update()
End If
If rsSQL.Fields("Ausgeliefert").Value = False And rsPA.Fields("Spediteur").Value.ToString = "UPS" Then
Dim track As New TrackService()
Dim tr As New TrackRequest()
Dim upss As New UPSSecurity()
Dim upssSvcAccessToken As New UPSSecurityServiceAccessToken()
upssSvcAccessToken.AccessLicenseNumber = "blubbblubb"
upss.ServiceAccessToken = upssSvcAccessToken
Dim upssUsrNameToken As New UPSSecurityUsernameToken()
upssUsrNameToken.Username = "blubbblubb"
upssUsrNameToken.Password = "blubbblubb"
upss.UsernameToken = upssUsrNameToken
track.UPSSecurityValue = upss
Dim request As New RequestType()
Dim requestOption As [String]() = {"15"}
request.RequestOption = requestOption
tr.Request = request
tr.InquiryNumber = rsSQL.Fields("TrackingNr").Value.ToString
System.Net.ServicePointManager.CertificatePolicy = New TrustAllCertificatePolicy()
Dim trackResponse As TrackResponse = track.ProcessTrack(tr)
rsSQL.Fields("Lieferscheinnummer").Value = trackResponse.Shipment(0).ReferenceNumber(0).Value
rsSQL.Fields("Versandart").Value = trackResponse.Shipment(0).Service.Description

sonne75 · 11. November 2013, 08:56

MemoAnMichSelbst schrieb:

Im Code darüber wird schon ein Feld angesprochen. (die TrackingNr).

Es wird aber gelesen und nicht geschrieben. Die Exception bekommst du, wenn du schreiben willst. Also wird es daran liegen, dass du irgendwie nicht beschreiben darfst.

EDIT: Doch, bei einem IF werden sie auch beschrieben. Hast du mal da Haltepunkt gesetzt, wird es durchgelaufen?

MemoAnMichSelbst · 11. November 2013, 08:58

Ich beschreibe ja mit
rsSQL.Fields("TrackingNr").Value = rsPA.Fields("Trackingnummer").Value.ToString
rsSQL.Fields("Spediteur").Value = rsPA.Fields("Spediteur").Value.ToString
rsSQL.Fields("Ausgeliefert").Value = False

Felder in eben jenem Datensatz. Bislang wird diese Schleife immer ausgeführt, da ich die Testtabelle vor jedem Lauf resette und somit nie Werte enthalten sind.
Sprich... wenn er die Lieferscheinnummer schreiben will, muss er im Vorfeld schon im gleichen RS TrackingNr, Spediteur und Ausgeliefert gesetzt haben.

sonne75 · 11. November 2013, 09:00

MemoAnMichSelbst schrieb:

Bislang wird diese Schleife immer ausgeführt

Hast du das mit Haltepunkt überprüft?

Warum gibt es Felder "TrackingNr" und "Trackingnummer"?

MemoAnMichSelbst · 11. November 2013, 09:04

Die unterschiedlichen Felder sind dadurch bedingt, dass ich mit dem rsPA direkt auf die Echtumgebung unseres ERP-Systems zugreife. Dort sind die Trackingnummer und der jeweilige Spediteur bei den Lieferscheinen hinterlegt. Ich werd aber nen Teufel tun und ne Anwendung in die Echt-Umgebung schreiben lassen

Demnach benutze ich hierfür nen Test-SQL-Server (rsSQL) und übernehme dort zuerst die Werte vom ERP-System und greife anschließend auf die UPS API zu um die zusätzlichen Daten abzufragen.

Hoffe das war verständlich

Das mit dem Haltepunkt ist so ne Sache. Er schreibt ja immer erst meherere Datensätze korrekt und irgendwann kommt dann (für mich nicht vorhersehbar) dieser Fehler. Ich habe natürlich alles einmal debuggt und da arbeitet er sauber... Aber beim X-Ten Datensatz knallt es dann.

EDIT:
ich habe nen Haltepunkt direkt auf

VB.NET-Quellcode

SQL = "SELECT * FROM Kopfdaten " & _
"WHERE TrackingNr = '" & rsPA.Fields("Trackingnummer").Value.ToString & "' " & _
"AND Spediteur = '" & rsPA.Fields("Spediteur").Value.ToString & "' "

gesetzt und als Bedingung die Trackingnummer hinterlegt. Nun hat er die If-Abfrage korrekt durchlaufen und die Felder auch gesetzt.
Er lief fehlerlos weiter, bis er die Lieferscheinnummer setzen sollte.
Kann er sich an dem rsSQL.Update verhaspeln?!

EDIT: Es scheint wirklich an dem Update gelegen zu haben...
Ich habe nun vor dem Close ein Update in Try-Catch gesetzt... (ich weiß ist unsauber... werd ich noch mit nem Bool prüfen müssen) aber nu geht's...
Ich versteh das gerade nicht.

sonne75 · 11. November 2013, 09:12

MemoAnMichSelbst schrieb:

Kann er sich an dem rsSQL.Update verhaspeln?!

Oder am Track (da wird doch auch was mit rsSQL gemacht).

Probier mal die Beschreibung von Lieferscheinnummer direkt hinter .Update() zu setzen, außerhalb von IF, mit einem festen Wert (40 dann).

MemoAnMichSelbst · 11. November 2013, 09:14

Siehe oben.
Er hat sich am Update verhaspelt. Nicht für mich nachvollziehbar...

sonne75 · 11. November 2013, 09:15

MemoAnMichSelbst schrieb:

Siehe oben.

Oben setzt du die 40 nach dem Trackresponse.

MemoAnMichSelbst · 11. November 2013, 09:45

Ich habe es nun auch mal mit wieder einkommentiertem Update und dem direkt anschließendem Zuweisen von dem Fixwert 40 versucht. Der Fehler tritt auch hier auf.
Anscheinend stimmt da etwas mit dem Update und anschließendem Ändern der Werte nicht.

sonne75 · 11. November 2013, 09:48

Ok, und ohne Update klappt es?

SQL Server 2008 - Die Identität der neu eingefügten Zeilen kann nicht festgestellt werden.

SQL Server 2008 - Die Identität der neu eingefügten Zeilen kann nicht festgestellt werden.

VB.NET-Quellcode

MemoAnMichSelbst schrieb:

VB.NET-Quellcode

MemoAnMichSelbst schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

MemoAnMichSelbst schrieb:

MemoAnMichSelbst schrieb:

VB.NET-Quellcode

MemoAnMichSelbst schrieb:

MemoAnMichSelbst schrieb:

Ähnliche Themen

2 Benutzer haben hier geschrieben