VB6 Recordset aktualisieren

Mir läuft ein vb6-Programm Durchlaufen Sie mehrere Datensätze in einer Datenbank-Tabelle und Eingabe eines Datums in ein Feld. Dies wird viele Stunden dauern zu laufen.

Ich bin zu bemerken, dass die Anzahl der Datensätze in der Tabelle steigt von 1 alle paar Sekunden, und dann die Verringerung um 1 (geht zurück auf die ursprüngliche Zählung). Gibt es einen Grund für dieses?

Ich bin mit einem VB6-recordset-und die update-Funktion, d.h. rs.update. Ich bin nicht einfügen neuer Datensätze.

Der code ist wie folgt:

rs.Open "select reference,value1,datefield from datetable where field1 = 'value1' " & _
    "order by reference", objAuditCon.ActiveCon, adOpenStatic, adLockPessimistic

Do While Not rs.EOF
    intReadCount = intReadCount + 1
    DoEvents
    If Not IsNull(rs("value1")) Then
        testArray = Split(rs("value1"), ",")
        rs2.Open "SELECT Date FROM TBL_TestTable WHERE Record_URN = '" & testArray(1) & "'", objSystemCon.ActiveCon, adOpenStatic, adLockReadOnly
        If rs2.EOF Then

        End If
        If Not rs2.EOF Then
            rs("DateField") = Format$(rs2("Date"), "dd mmm yy h:mm:ss")
            rs.Update
            intWriteCount = intWriteCount + 1
        End If
    rs2.Close
    Else    
    End If

rs.MoveNext
Loop
rs.Close

Ich kann keinen Grund sehen, die für die Anzahl der Datensätze zu vergrößern, aber einfach nur neugierig, warum nicht Sie ausführen von SQL-Anweisungen zur Aktualisierung der Informationen vs Schleife durch die Datensätze? Dann könnte man ein update Haufen auf einmal.
Warum nicht erstellen Sie eine Gespeicherte Prozedur, und klicken Sie dann führen Sie es über den code? Dies sollte Sie verbessern die Prozess-Zeit ein wenig.
Ich denke, dass könnte es sein eine zusätzliche Zeile für caching-Zwecke vielleicht?
Wie sind Sie mit der Bestimmung, dass die Anzahl der Datensätze ändert?
CraigJ, ich bin einfach der running count in der SQL Studio Manager also select count(*) from datetable? Drücken Sie die execute-Taste jede Sekunde, die Zählung gelegentlich erhöht, indem Sie einen Datensatz und dann sofort verringert, indem Sie einen Datensatz? Haben Sie irgendwelche Ideen? Danke.
Was interessanter wäre ist, welche Daten in diese zusätzliche Zeile. In jedem Fall, die Quintessenz ist, dass, wenn es nicht tatsächlich verursacht ein problem für dich ist, dann Mach dir keine sorgen. Sie könnte informieren Sie Microsoft über das Problem und sehen, was Sie sagen. Sie sind dazu gedacht, um Unterstützung zu leisten.
MS nicht unterstützen wahrscheinlich, da es mit einer VB 6 Anwendung. Sie stützen nicht mehr. Möglicherweise hängen von der Datenbank-version, aber wahrscheinlich würden Sie sich nicht berühren.

InformationsquelleAutor w0051977 | 2012-01-05

1

Gut können Sie erheblich reduzieren Sie Ihre SQL-Arbeit hier.
```
If Not IsNull(rs("value1")) Then
        testArray = Split(rs("value1"), ",")
        rs2.Open "SELECT Date FROM TBL_TestTable WHERE Record_URN = '" & testArray(1) & "'", objSystemCon.ActiveCon, adOpenStatic, adLockReadOnly
        If rs2.EOF Then

        End If
        If Not rs2.EOF Then
            rs("DateField") = Format$(rs2("Date"), "dd mmm yy h:mm:ss")
            rs.Update
            intWriteCount = intWriteCount + 1
        End If
rs2.Close
```
Sind Sie im wesentlichen, sieht es für mich(ich habe nicht verwendet VB6 & ADO in 10 Jahren), laden Sie Ihre Aufzeichnung erste recordset, einen Wert überprüfen, und wenn dieser Wert nicht null läuft eine zweite auswählen, DANN aktualisieren des Recordsets....
Sie können tun, anstatt alles nur, erstellen Sie ein command-Objekt
Erklären Sie diese, bevor Sie Ihre loops
dim objComm
set objComm = Server.CreateObject("ADODB.Command")
```
objComm.ActiveConnection =  objSystemCon.ActiveCon 'I think this is your connn.
objComm.CommandType = 1 'adCmdText
```
Verwenden Sie diese in Ihrem Regelkreis
```
objComm.CommandText = "UPDATE DateTable SET DateField = (SELECT Date FROM TBL_TestTable WHERE Record_URN = '" & testArray(1) & "'")
objComm.Execute 
```
Anstatt 2. diskrete auszuwählen, ziehen Sie die Daten ein, dann mache ein update und drücken Sie es wieder heraus, drücken Sie einfach eine update-Anweisung. Dies beschleunigt die Bearbeitung Ihrer Datensätze.....Ich weiß, ich habe zu schreiben, Sachen in VB6 so aus lange Weile 🙂

Sodass Ihr code sollte jetzt Lesen sich wie
```
dim objComm
set objComm = Server.CreateObject("ADODB.Command")` 

    objComm.ActiveConnection =  objSystemCon.ActiveCon 'I think this is your connn.
    objComm.CommandType = 1 'adCmdText

rs.Open "select reference,value1,datefield from datetable where field1 = 'value1' " & _
    "order by reference", objAuditCon.ActiveCon, adOpenStatic, adLockPessimistic

Do While Not rs.EOF
    intReadCount = intReadCount + 1
    DoEvents
    If Not IsNull(rs("value1")) Then
        testArray = Split(rs("value1"), ",")
    objComm.CommandText = "UPDATE DateTable SET DateField = (SELECT Date FROM TBL_TestTable WHERE Record_URN = '" & testArray(1) & "'")
    objComm.Execute 

    End If

rs.MoveNext
Loop
rs.Close
```
deine select-Anweisung ist immer noch da, wie Sie sehen können, es ist ein sub wählen Sie nun, mit dem Vorteil, riesig, du bist nicht zeichnen Datensätze an den server, der dann zu aktualisieren. Sie senden die server eine Anweisung zu tun, die Aktualisierung. Sie schneiden Ihre Ausflüge in die Hälfte.

Hoffe, dass dies Sinn machte.
- Jordan, ich weiß, es gibt bessere Möglichkeiten, den Quellcode zu schreiben. Aber von der ursprünglichen Frage, speziell darüber, warum die Anzahl der Datensatz hält incresasing von 1 Aufzeichnung alle paar Sekunden, und dann die Verringerung von 1 Datensatz sofort. Ich bin zur Gründung der Datensatz ist, durch ausführen einer SQL-Abfrage im SQL-Studio-Manager. Danke.
- Ja ich merke, das tut mir Leid, musste einfach die Gelegenheit ergreifen, um die Vorschläge. Es muss etwas anderes verursacht es. Hast du einen index auf der Tabelle? Vielleicht die ständigen Aktualisierungen, wodurch der index wieder etwas leicht abweichenden Wert. Ich würde vermuten, es ist NICHT eine zusätzliche Zeile erstellt wird. Wenn Sie wirklich glauben, es ist eine zusätzliche Zeile, ich nehme an, Sie könnten kopieren Sie die Tabelle in eine andere mit allen Daten und eine Abfrage ausführen, um ziehen Sie diejenigen sind, die sich auf die Verarbeitung von table vs die statische Sicherung kopieren. Das wäre sehr langsam, und ich glaube nicht, dass es zeigen würde, nichts.
- Dank Jordan. Ich habe darüber nachgedacht den ganzen Tag. Ich habe einige tests auf die Daten und obwohl gibt es mehrere Zeilen, wenn das Programm ausgeführt wird; Sie hat keine Zeilen zurückgibt, wenn ich versuche, führen Sie einen Vergleich, d.h. select * from datetable, wo die Referenz nicht in (select Referenz von datetabletest). Die Tabelle datetabletest erstellt wurde, bevor ich das Programm starte. Wenn ich einen Primary Key-das problem ist nicht mehr da, d.h. die Zahl ist konstant. Haben Sie andere Ideen?
- Ich war nicht in der Lage, Zugang zu diesem thread an diesem morgen, aber es scheint wieder aufgetaucht sind.
- Auch ein Primärschlüssel möchte hinzufügen eines gruppierten index für die Tabelle. Vielleicht hatten Sie keine index vor? Ich nehme an, dass einige sperren auf Zeilenebene möglicherweise unterschiedliche Zeilenanzahl. Mit einem index würde es erlauben den Zugriff auf die Zeile zählen unabhängig von der Tabelle, Ebene sperren. Ich weiß, eine ausstehende Transaktion geben kann, falsche Zeilenanzahl je, so würde ich mir vorstellen, dass es möglich ist. Wenn Sie vertraut sind mit SÄURE das ich ist Isoliert, so dass vielleicht der server ist nicht der Umgang mit dieser Zeile, während es wird tatsächlich aktualisiert. Nun, ich denke, es ein update ist, hat eine implizite Transaktion, würde wahrscheinlich blockieren den Leser.
- Es gibt mehr Datensätze zurückgegeben, wenn das Programm ausgeführt wird. Wenn es ein locking Problem, dann würde ich erwarten, dass die Abfrage weniger recrds. Wie gesagt es tritt auf, wenn ein gruppierter index und ohne primary key. Es muss nicht passieren, wenn es einen gruppierten index und primary key.
- Haben Sie eine update-Trigger auf die Tabelle mit Daten. Dies könnte-Konto für Ihr hinzufügen/entfernen-Problem.
- Ok, An dieser Stelle das, was ich vorschlagen würde ist die Ausführung der SQL-Server Profiler. Sie können sehen, was wirklich Los ist. Haben Sie keine Erfahrung mit diesem tool?
- Ich Sprach mit der DBA und wir haben einige debugging mit dem SQL Profiler. Es war nichts schlüssig.
InformationsquelleAutor Jordan
1

Einfache Antwort: nehmen Sie die DoEvents-Anweisung. Wenn Sie Sie verwenden, um Bildschirm-refresh, das in regelmäßigen Abständen eine manuelle Aktualisierung der GUI nach, sagen wir, 1000 Iterationen der Schleife.

Der Grund, warum dies zu einem Problem führen wird, dass andere code, den Sie möglicherweise keine Kontrolle über die möglicherweise ausgeführt beim Aufruf von DoEvents.

InformationsquelleAutor Mark Bertenshaw

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.