✔ Recordset: Veränderung der Anzahl von Datensätzen anzeigen

[tesarolle]

Ich zähle Sätze in meinem Recordset, funktioniert, Beispielsweise enthält meine Tabelle 1.000 Datensätze.

Die unten stehende Funktion wird über den Knopf "Aktualisieren" aufgerufen:

Public Function SB02()

Const conDBConn = "DRIVER=SQL Server;SERVER=OKZEDER;DATABASE=FWExAp03"
Dim objDBConnSB02 As New ADODB.Connection
Dim objDBRSSB02 As New ADODB.Recordset
objDBConnSB02.Open conDBConn
objDBRSSB02.Open "SELECT COUNT(*) as Anzahl FROM SB02", objDBConnSB02, 3, 3
SB02 = Format(objDBRSSB02!Anzahl, "###,###,###")

End Function

Angenommen ich habe aktualisieren gedrückt und erhalte 1000 Datensätze. 10 Minuten später enthält dieselbe tabelle 2.000 Datensätze weil neue dazu gekommen sind. Es kann auch sein das die Tabelle 10 min später weniger Datensätze als 1000 enthält.

Ich möchte nun eine Meldung ausgeben wenn ich 10 min später auf den Aktualisierungs Button klicke, das die Tabelle anstatt 1000 Datensätze nun 2000 enthält.

Wie bekommt man sowas hin in meiner Funktion? Kann mir jemand helfen

 

[wincnc]

mit:
SB02 = DeinRecordSet.RecordCount

 

[tesarolle]

So einfach ist es leider nicht ,

ich möchte im Endeffekt zwei Textfelder haben.

In dem einen textfeld ist der aktuelle inhalt der Summe aller Datensätze drin.

In dem anderen Textfeld soll quasi drin stehen wie der letzte Stand war, also der letzte Stand der Summe als ich Aktualisieren gedrückt hatte.

Ich brauch bezogen auf meinen Quellcode ein Beispiel, da ich nicht so der VB-Guru bin...

MIt den beiden Textfeldern....und so

 

[wincnc]

Private Sub Aktualisieren()
Text1 = DeinRecordSet.RecordCount

Call Deine Aktualisierungen

Text2 = DeinRecordSet.RecordCount
End Sub