Office: Recordset auf Inhalt prüfen (ADO, SQL)

lekcin · 19. November 2015

Hallo,

ich versuche u.a. in folgender Abfrage zu prüfen ob das Recordset einen Wert enthält. Und obwohl mit dem verwendeten SQl-String mir in Access ein Ergebnis angezeigt wird, läuft der Code so weiter als ob mit der ersten SQl-Abfrage kein Wert ermittelt wird-also das Recordset leer ist.

Warum ist das so und wie kann man dies beheben?

Vielen Dank und beste Grüße

LN

Code:

Sub DBID()

...

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPfad

sSQL = "Select Top 1 C1.db_id + 1 as FehlenderWert" & _
" from tblCompany As C1" & _
" Left Join tblCompany As C2 On C2.db_id = C1.db_id + 1" & _
" Where C1.db_id > 0 AND C2.db_id is Null" & _
" Order by C1.db_id"

Set rs = New ADODB.Recordset
rs.Open sSQL, cn, adOpenKeyset, adLockOptimistic, adCmdText

If Not rs.EOF Then

rs.Close
Set rs = Nothing

sSQL = "SELECT Max(tblCompany.db_id) + 1 FROM tblCompany"

Set rs = New ADODB.Recordset
rs.Open sSQL, cn, adOpenKeyset, adLockOptimistic, adCmdText

Range("E8").CopyFromRecordset rs

rs.Close
Set rs = Nothing

Else

Range("E8").CopyFromRecordset rs

rs.Close
Set rs = Nothing

End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

ebs17 · 21. November 2015

Code:

rs.EOF
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... bedeutet, das Recordset ist leer, da bei Neuöffnung eines Recordsets der Datenzeiger auf dem ersten Datensatz stehen würde, es somit bei sofort EOF keinen Datensatz gibt.
Daher ist Deine Abfragelogik vertauscht (lasse Not weg).

Deine Recordsets erzeugen jeweils genau einen Wert (wenn nicht EOF). Dann würde man auch nur diesen Wert statt das ganze Recordset an die Zelle übergeben:
Code:

Range("E8").Value = rs.Fields(0)

' oder mit Feldnamen
Range("E8").Value = rs.Fields("FehlenderWert")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

lekcin · 21. November 2015

Hallo Eberhard,

perfekt, vielen Dank!!!

LN

Office: Recordset auf Inhalt prüfen (ADO, SQL)

Recordset auf Inhalt prüfen (ADO, SQL)

Recordset auf Inhalt prüfen (ADO, SQL)

Recordset auf Inhalt prüfen (ADO, SQL) - Similar Threads - Recordset Inhalt prüfen

Apostroph in sql Recordset

Recordset auf einmal nicht mehr aktualisierbar

Recordset

Recordset wird nicht erfasst

Recordset-Feldname mit Variable verbinden

Recordset Listenfeld füllen

ID aus SQL Recordset ermitteln - Geänderter Treiber?