PDA

Vollständige Version anzeigen : SQL Anweisung


Lünne
08.06.2003, 16:26
Hallo Leute,

ich habe folgendes Problem :

Ich versuche per SQL bestimmte Daten zu bekommen. Der Code lautet :

Dim SQL As String
Dim DAM As String
Dim DAM1 As String
DAM1 = Format(CL1, "\#yyyy\-mm\-dd\#")
DAM = Me.Text5
Set db = OpenDatabase(App.Path & "\VK.mdb")
SQL = "select * from Plan WHERE (Kennzeichen ='" & DAM & "'"") And (Dan >" & DAM1 & ";"")"
Set RS = db.OpenRecordset(SQL, dbOpenDynaset)

Leider klappt dieser SQL Befehl nicht.
Ich bekomme immer die Fehlermeldung :

Laufzeitfehler '3075':
Syntax error in strin in query expression '(Kennzeichen='MH-TS 255'") AND (Dan >#2002-10-24#)'

Was mache ich falsch ?

Kann mir jemand helfen ?

Gruß

Dirk

Nouba
08.06.2003, 16:40
versuche es mal mit:SQL = "SELECT * FROM PLAN WHERE (Kennzeichen ='" & DAM & "') And (Dan >" & DAM1 & ")"
In der Format-Funktion muß nur die Raute "escaped" werden.

Lünne
08.06.2003, 16:51
Hallo Nouba,

danke für Deine schnelle Antwort.

Das klappt jetzt wunderbar.


Vielen Dank !!

Gruß

Dirk :top: