Hallole und ein gutes Neues...
... da ich mich mit SQL nicht so gut auskenne, habe ich das mit einem einfachen Zähler bestimmt - nicht elegant - auch nicht die Beste Möglichkeit - aber hat bislang funktioniert...
Print "ODBC-Connection..."
' # Neue ODBC-Connection erstellen
IsConnected = Con.ConnectTo(docThis.ODBC_DB(0))
If Not IsConnected Then
Print "Die Datenquelle konnte nicht gefunden werden"
Exit Function
End If
Set Qry.Connection = Con
Print "... überprüfen, ob es die Tabelle gibt"
vTables = Con.ListTables
If Isnull(Arraygetindex(vTables , docThis.ODBC_Table(0) )) Then
Print {Die Datentabelle "}+docThis.ODBC_Table(0)+{" konnte nicht gefunden werden}
Exit Function
Else
Print {... die Datentabelle "}+docThis.ODBC_Table(0)+{" konnte gefunden werden}
End If
Print "... die Abfrage formulieren"
Qry.SQL = {SELECT * FROM }+docThis.ODBC_Table(0)+{}
Print "... die Datensätze der Tabelle einlesen"
Set Res.Query = Qry
Print "... ausführen der ODBC-Anfrage"
Res.Execute
Print "... die Anzahl der Datensätze ermitteln" '# geht sicherlich auch per SQL
IsConnected = Res.FirstRow
Do While IsConnected = True
counter = counter + 1
IsConnected = Res.NextRow
Loop
Die Dimensionierungen mußt du noch machen...
Ich habe bestimmte Parameter in einem Dokument administriert - ggf anpassen...
ata