Bl�d mu� man sein. Ich hab vergessen ein Recordset f�r Zeiten zu setzen.
-----Urspr�ngliche Nachricht-----
Von: Weisselberg Anja
Gesendet: Friday, February 22, 2002 10:24 AM
An: ASP Datenbankprogrammierung
Betreff: [aspdedatabase] SQL-Abfrage
Hallo Liste,
ich m�chte eine SQL-Abfrage die mir das "WHERE" und "ORDER BY" nur dann ausf�llt und
die SQL-Abfrage einbaut wenn in den Variablen etwas drin steht.
Das Problem ist das ich "IF-Schleifen" f�r die Variablen "Z_DatumVon" und "Z_Sortiert"
drin lasse l�dt der Browser die Seite nur zur H�lfte und tut dann nichts mehr.
Kann mir einer sagen was ich falsch gemacht habe?
DatenVoll = "WHERE "
SortiertVoll = Trim(Request("SortiertVoll"))
If Z_Bereich <> "" Then
DatenVoll = DatenVoll & "InStr(Bereich,'" & Z_Bereich & "') > 0 AND "
End If
If Z_Produkt <> "" Then
DatenVoll = DatenVoll & "InStr(Produkt,'" & Z_Produkt & "') > 0 AND "
End If
If Z_Mitarbeiter <> "" Then
DatenVoll = DatenVoll & "InStr(Mitarbeiter,'" & Z_Mitarbeiter & "') > 0 AND "
End If
If Z_DatumVon <> "" And Z_DatumBis = "" Then
Z_DatumBis = Z_DatumVon
DatenLeer = DatenLeer & "InStr(Datum, '" & Datum >= " & Z_DatumVon & " AND
Datum <= " & Z_DatumBis & "') > 0 AND "
ElseIf Z_DatumVon = "" And Z_DatumBis <> "" Then
DatumPruefen.MoveFirst
Z_DatumVon = Zeiten("Datum")
DatenLeer = DatenLeer & "InStr(Datum, '" & Datum >= " & Z_DatumVon & " AND
Datum <= " & Z_DatumBis & "') > 0 AND "
ElseIf Z_DatumVon > Z_DatumBis Then
DatenLeer = DatenLeer & "InStr(Datum, '" & Datum <= " & Z_DatumVon & " AND
Datum >= " & Z_DatumBis & "') > 0 AND "
ElseIf Z_DatumVon = Z_DatumBis Then
DatenLeer = DatenLeer & "InStr(Datum, '" & Z_DatumVon & "') > 0 AND "
End If
If Z_Zeit <> "" Then
DatenVoll = DatenVoll & "InStr(Zeit,'" & Z_Zeit & "') > 0 AND "
End If
SortiertVoll ="ORDER BY"
If Z_Sortiert <> "" Then
SortiertVoll = SortiertVoll & "InStr('" & Z_Sortiert & "') > 0 AND "
End If
DatenVoll = Left(DatenVoll, Len(DatenVoll) -4)
SortiertVoll = Left(SortiertVoll, Len(SortiertVoll) -4)
GesamtVoll = DatenVoll & SortiertVoll
Zeiten.Open "SELECT * FROM Zeiterfassung " & GesamtVoll, Verbinden, adOpenDynamic,
adLockOptimistic
Vielen Dank im vorraus.
Anja
| [aspdedatabase] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
