Frage: Vorletzte Zeile: --- cut --- SortiertVoll = Left(SortiertVoll, Len(SortiertVoll) -4) GesamtVoll = DatenVoll & SortiertVoll --- cut ---
ist ds nur ein kopierfehler oder steht das GesamtVoll in der gleichen Zeile wie SortierenVoll? Stefan. -----Urspr�ngliche Nachricht----- Von: Weisselberg Anja [mailto:[EMAIL PROTECTED]] Gesendet: Freitag, 22. Februar 2002 10:24 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
