Office: Anzahl der erhaltenen Datensätze

Jann Hendrik · 21. November 2006

Hi!

Ich stehe vor dem Problem, dass ich in Access wissen will, wieviele Datensätze bei der Select-Abfrage als result angekommen sind.

Die Verbindung zum Server steht.
Code:

query.Open "SELECT feld FROM Tabelle WHERE blub = 'bla'", mysql
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

soweit ist klar - das sql-Statement ist nicht das Problem. Aber ich weiß nicht, wie ich anschließend zählen kann, wieviele Datensätze dem entsprechen.

Ich würde mich über Hilfe freuen!

:)

Smaug · 23. November 2006

AFAIK muss man auch in ADO-Recordsets zuerst das Recordset füllen indem man zum letzten DS läuft damit die Anzahl stimmt:
Code:

query.MoveLast
debug.print query.RecordCount
query.MoveFirst 'und zurück zum Anfang für weitere Aktionen im Recordset
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Falls Du jedoch das Recordset nur benötigst um die Datensätze zu zählen (also keine weiteren Operationen) wäre ein Select Count-Statement mit Kriterium in Verbindung mit einem nur Lese-Recordset schneller. Schau auch mal in der Forumsuche nach dem Stichwort TLookup. Es sollte kein Problem sein diese Sache auch für ADO-Recordsets einzurichten.

fadass · 23. November 2006

Hi. So mach Ich's:
Code:

Dim var
var = DCount("[Feldname zum Zählen (Primärschlüssel)]", "[Abfrage die Feld beinhaltet]")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MfG

Jann Hendrik · 23. November 2006

fast schon wunderbar...

nur:
Wenn der Datensatz schon vorhanden ist, dann bekomme bei
Code:

Debug.Print query.RecordCount
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

eine -1 im Direktbereich angezeigt.

Wenn der Datensatz jedoch noch nicht in der db ist, dann bekomme ich da gar nichts angezeigt, weil er zur Fehlermeldung springt.

Der Code der Funktion soll letztlich nur ein true (wenn Datensatz vorhanden), oder ein false (wenn nicht vorhanden) zurückgeben.

So sieht's derweil aus:
Code:

Public Function is_data_in_db(kriterium1 As String, kriterium2 As String) As Boolean
On Error GoTo err
is_data_in_db = False

Dim mysql As New ADODB.Connection
Dim query As New ADODB.Recordset

mysql.Open "Provider=MSDASQL;Driver=" & dbdriver & ";" & _
"Server=" & dbserver & ";UID=" & dbuser & _
";PWD=" & dbpwd & ";database=" & dbname & _
";Option=" & dboption

Dim sqlstatement As Variant
sqlstatement = "SELECT feld1, feld2 FROM tabelle WHERE feld1='" & kriterium1 & "' AND feld 2 = '" & kriterium2 & "';"

'Debug.Print sqlstatement
query.Open sqlstatement, mysql

query.MoveFirst
Debug.Print query.RecordCount

' hier dann ein if - wenn ungleich 0, dann Rückgabewert ändern auf true, sonst auf false lassen. Fertig.

Set mysql = Nothing
Set query = Nothing

Exit Function
err:
'Dim q As Variant
'q = MsgBox("sql-statement:" & Chr(13) & Chr(10), vbOKOnly + vbInformation, "")
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

jmd. eine Idee, woran das liegen könnte?

Die Möglichkeit über DCount führte bei mir auch nur zu einem Fehler, darum bin ich dem nicht weiter nachgegangen.

P.S.: Ich bin VBA-Neuling, also erbitte ich um Entschuldigung, wenn ich blöde Fragen stellen sollte! Aber google konnte mir in den letzten Stunden dazu nichts sagen. Den Rest habe ich nämlich schon fertig! *Smilie

Morli · 23. November 2006

warum nicht einfach mit

Code:

If Query.EOF then
Msgbox "Keine Datensätze vorhanden!"
Else
Msgbox "Mind. 1 Datensatz vorhanden!"
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Morli

Smaug · 23. November 2006

In diesem Fall glaube ich dass ein Lese-Recordset mit einem Select Count-Statement am Schnellsten sein wird:
Select Count([Feldname] from Datenherkunft WHERE Kriterium = MeinKriterium

Mit DAO läuft das Ganze dann in einer Funktion:
Code:

Function fctDBCount (Domäne As String, Optional Criteria) As Long
Dim strsql As String
strsql = "SELECT COUNT (*) FROM " & Domäne
If Not IsMissing (Criteria) Then strsql = strsql & " WHERE " & Criteria
fctDBCount = DBEngine(0)(0).OpenRecordset (strsql, dbOpenForwardOnly)(0)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Aufruf wäre dann:
Code:

Dim lngAnzahl As Long
lngAnzahl = fctDBCount ("Tabelle", "Feld1 = 'Kriterium')
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du musst das im Prinzip nur noch auf ADO ummodeln.

Jann Hendrik · 7. Januar 2021

von Morli

warum nicht einfach mit
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... weil ich mich erst mal an die Möglichkeiten von VBA gewöhnen muss .)

Habe es zu:
Code:

If Query.EOF then
is_data_in_db = False
Else
is_data_in_db = True
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

geändert.

Da mir die wirkliche Anzahl egal ist, bin ich mit dieser Methode (hehe, wie doppeldeutig) zufrieden!

Somit ein Danke von mir an die Helfer!

Smaug · 23. November 2006

bzw. : is_data_in_db = not query.EOF
und hinterher Recordset sowohl schliessen als auch auf Nothing setzen. Sicher ist sicher..

Jann Hendrik · 28. November 2006

klar.

.close
und
= nothing

mache ich immer...

aber trotzdem danke für den Hinweis.

Office: Anzahl der erhaltenen Datensätze

Anzahl der erhaltenen Datensätze

Anzahl der erhaltenen Datensätze

Anzahl der erhaltenen Datensätze

Anzahl der erhaltenen Datensätze

Anzahl der erhaltenen Datensätze - Similar Threads - Anzahl erhaltenen Datensätze

Abfrage: Anzahl von Kriterium >0

Anzahl der Downloads bereitgestellter Dateien anzeigen

Anzahl der Top 5 Werte zeilenweise Zählen

Anzahl mit bedingungen

Anzahl Tage berechnen, inclusiv Startdatum

Variable Anzahl immer 9er Kombination StellenBerechnung

Makro für variable Anzahl von Datensätzen