Parameterabfrage mit Datum (VB)

30/05/2008 - 09:57 von erguen | Report spam
Hallo,

ich habe diese Frage auch schon in "microsoft.public.de.vb.datenbank'
gestellt. War mir aber nicht sicher ob es da richtig ist. Ich hoffe das mir
hier geholfen werden kann.

hab da ein Problem, an dem ich mich festgebissen haben und nicht weiter
weiss.
(ACCESS 2003)

Ich habe eine Abfrage mit einem Parameterwert (Feldtyp Datum)
Per vba will ich die Abfrage öffnen und den Parameterwert übergeben.
Dabei kriege ich immer ein Fehler "Datenkonvertierungsfehler" (3421 -
Datentyp-Konvertierungsfehler)


Hier mal ein Auszug aus meinen VBA

dim rsDaten as DAO.recordset
dim qdf as dao.querydef

set qdf=currentdb().querydefs("Abfrage1")

qdf.parameters(0)=gDate 'gDate as date

'Alternativ schon ausprobiert
'qdf.parameters(0)=clng(gDate)
'qdf.parameters(0)=cstr(gdate)
'qdf.parameters(0)=format(gdate,"\#mm\/dd\/yyy\#")


set rsdaten=qdf.openrecordset("Abfrage1") 'Hier kracht es

Was für ein Parametertyp erwartet er denn hier?
'qdf.parameters(0).typ --> 10
'qdf.parameters(0).Name --> [datum:]

Ich hoffe mir kann geholfen werden :-)
 

Lesen sie die antworten

#1 Stefan Hoffmann
30/05/2008 - 10:28 | Warnen spam
hallo,

erguen schrieb:
qdf.parameters(0)=gDate 'gDate as date


Ich mag Standardeigenschaften gar nicht, nimm mal:

qdf.Parameters.Items(0).Value = gDate

set rsdaten=qdf.openrecordset("Abfrage1") 'Hier kracht es


Na, qdf weiß doch schon, um welche Abfrage es geht. Der Parameter muß
ein anderer sein, z.B.

Set rsdaten = qdf.OpenRecordset(dbOpenSnaphot)

Siehe Objektkatalog:

Function OpenRecordset([Type], [Options], [LockEdit]) As Recordset
Element von DAO.QueryDef


mfG

Access-FAQ http://www.donkarl.com/
KnowHow.mdb http://www.freeaccess.de
Newbie-Info http://www.doerbandt.de/Access/Newbie.htm

Ähnliche fragen