Looping Probleme in VBScript

Ich versuche zwei fileen: 1. eine Textdatei mit 6 Zeilen mit einem Händlercode und Anzahl der Einzelverkäufe pro Zeile (zB 010, 64). Ich sperre beide Elemente aus und ordne sie variables zu. Als nächstes versuche ich, eine SQL-Tabelle zu durchlaufen und die Verkaufszahlen zu aktualisieren, indem ich den Händlercode übereinstimme.

Das Problem, das ich habe, ist die innere loop (das SQL-Update) aktualisiert die Verkaufszahlen von jedem Händler in der äußeren loop für jede Zeile in der SQL-Tabelle, die die Zahlen austriggers. Zum Beispiel zwei Händler mit ihren jeweiligen Einheitenverkäufen auf den Zeilen 1 und 2 der Textdatei: 010, 64 und 020, 72. Die innere loop aktualisiert den ersten Händler mit beiden Verkaufszahlen (64 und 72) anstatt der zuerst und weiter, um die zweite zu aktualisieren. Ich weiß, das Problem ist in meinem Bau der loops. Jede Hilfe wird geschätzt.

If fso.FolderExists(sourceLocation) Then Set fileList = fso.GetFolder(sourceLocation).Files For Each fileFound In fileList Set folder = fso.GetFolder(sourceLocation) upd_date = CStr(FormatDateTime(Date(),2)) If fso.FolderExists(sourceLocation) Then Set fileList = fso.GetFolder(sourceLocation).Files For Each fileFound In fileList If fso.FileExists(fileFound) Then Set ReturnNoFileToRead = fso.OpenTextFile(fileFound) Do While Not ReturnNoFileToRead.AtEndOfStream readLine = ReturnNoFileToRead.ReadLine If Not IsNumeric(Left(readLine,1)) Then alphaLine = Split(readline,",") upd_date = Left(alphaLine(0),20) insertDate = "UPDATE soavehreports SET rep_date = '" + upd_date _ + "' WHERE rep_type = 'CUR' " sneConnection.Execute(insertDate) ElseIf IsNumeric(Left(readLine,1)) Then intLine = Split(readline,",") intLine(1) = CInt(intLine(1)) For row = 0 to RowCount -2 distnum = Trim(tableArray(r, 0)) daily = CInt(Trim(tableArray(r, 2))) + intLine(1) tenday = CInt(Trim(tableArray(r, 3))) + intLine(1) mtdsales = CInt(Trim(tableArray(r, 4))) + intLine(1) ytdsales = CInt(Trim(tableArray(r, 5))) + intLine(1) currinvt = CInt(Trim(tableArray(r, 8))) - intLine(1) totaval = CInt(Trim(tableArray(r, 9))) - intLine(1) mtdpercent = CDbl(Trim(tableArray(r, 12))) ytdpercent = CDbl(Trim(tableArray(r, 13))) UpdateCmd1 = "UPDATE vedlynat_new SET daily = '" + CStr(daily) _ + "', tenday = '" + CStr(tenday) + "', mtdsales = '" _ + CStr(mtdsales) + "', " UpdateCmd1 = UpdateCmd1 + "ytdsales = '" + CStr(ytdsales) _ + "', currinvt = '" + CStr(currinvt) + "', totaval = '" _ + Cstr(totaval) + "', proc_date = '" + upd_date + "' " UpdateCmd1 = UpdateCmd1 + "WHERE distnum = '" + intLine(0) _ + "' AND distnum <> '999'" sneConnection.Execute(UpdateCmd1) Next End If Loop ReturnNoFileToRead.Close sneConnection.close End If Next End If 

Textdatei:

 010,64 020,62 050,155 060,136 080,127 

SQL-Tabelle:

 distnum daily tenday mtdsales ytdsales 010 0 0 0 0 020 0 0 0 0 050 0 0 0 0 060 0 0 0 0 080 0 0 0 0