Parameterübergabe an ADO Recordset

29/01/2009 - 07:35 von Andreas Ahrens | Report spam
Hi NG,

wie muss ich das Listing àndern, damit ich der Funktion einen Parameter
übergeben kann?

Function AbfrageLeer(ABF As String)
'prüft, ob eine Abfrage gefüllt ist oder nicht

Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ZÄHLER As Integer

'Aktuelle Datenbank öffnen
Set db = CurrentProject.Connection
'Tabellen- oder Abfragename zuweisen
Set rs = New ADODB.Recordset

'wie zu àndern?
rs.Open ABF, db

ZÄHLER = rs.RecordCount


If ZÄHLER > 0 Then
AbfrageLeer = False
Else
AbfrageLeer = True
End If

End Function

Gruss
Andy
 

Lesen sie die antworten

#1 Thomas Kühn
29/01/2009 - 08:37 | Warnen spam
Hallo Andreas,

wie muss ich das Listing àndern, damit ich der Funktion einen Parameter
übergeben kann?

Function AbfrageLeer(ABF As String)



hier wird sicher ein gültiger SQL String übergeben?

'prüft, ob eine Abfrage gefüllt ist oder nicht

    Dim db As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim ZÄHLER As Integer

    'Aktuelle Datenbank öffnen
    Set db = CurrentProject.Connection
    'Tabellen- oder Abfragename zuweisen
    Set rs = New ADODB.Recordset

   'wie zu àndern?
    rs.Open ABF, db



rs.open ABF, db, adOpenStatic, adLockReadOnly


    ZÄHLER = rs.RecordCount

    If ZÄHLER > 0 Then
        AbfrageLeer = False
    Else
        AbfrageLeer = True
    End If




Kürzer:

If Not rs.EOF Then
AbfrageLeer = True
Else
AbfrageLeer = False
End If

rs.Close
Set rs = Nothing

db.Close
Set db = Nothing

End Function






Gruß Thomas

http://www.thomas-kuehn.de

Ähnliche fragen