Hallo Martin, Problem 1.: Die Klammer habe ich doch vor > 0 AND geschlossen. Mu� ich noch eine Klammer einbauen? Wenn ja, wo?
Problem 2.: Ich m�chte aus der Datenbank alle Eintr�ge auslesen und der User soll - wenn er will - alle Datens�tze nach einer Spalte seiner Wahl (Dropdownliste) sortieren. Das Problem ist das ich nicht wei� wie ich das in die SQL-Abfrage einbauen soll. Anja -----Urspr�ngliche Nachricht----- Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Gesendet: Mittwoch, 13. Februar 2002 15:33 An: ASP Datenbankprogrammierung Betreff: [aspdedatabase] Re: SQL-Abfrage mit Variablen Hallo Anja! > Hallo Liste, > > ich habe Probleme mit meinen SQL-Abfragen: > > 1. > > DatenLeer = "WHERE " > > If Z_Bereich <> "" Then > WhereClause = WhereClause & "InStr(Bereich,'" & Z_Bereich & "') > 0 > AND " > End If > > If Z_Produkt <> "" Then > DatenLeer = DatenLeer & "InStr(Produkt,'" & Z_Produkt & "') > 0 AND " > End If > > If Z_Mitarbeiter <> "" Then > DatenLeer = DatenLeer & "InStr(Mitarbeiter,'" & Z_Mitarbeiter & "') > > 0 AND " > End If > > If Z_DatumVon <> "" And Z_DatumBis = "" Then > Z_DatumBis = Z_DatumVon > DatenLeer = DatenLeer & "InStr(Datum BETWEEN '"& Z_DatumVon & " AND > " & Z_DatumBis & "') > 0 AND " die Klammer von InStr muss vor dem "AND" geschlossen werden > ElseIf Z_DatumVon = "" And Z_DatumBis <> "" Then > DatumPruefen.MoveFirst > Z_DatumVon = Zeiten("Datum") > DatenLeer = DatenLeer & "InStr(Datum BETWEEN '"& Z_DatumVon & " AND > " & Z_DatumBis & "') > 0 AND " > ElseIf Z_DatumVon > Z_DatumBis Then > DatenLeer = DatenLeer & "InStr(Datum BETWEEN '"& Z_DatumBis & " AND > " & Z_DatumVon & "') > 0 AND " > End If > > If Z_Zeit <> "" Then > DatenLeer = DatenLeer & "InStr(Zeit,'" & Z_Zeit & "') > 0 AND " > End If > > If Z_Sortiert <> "" Then > DatenLeer = DatenLeer & "InStr(ORDER BY " & Z_Sortiert & "') > 0 AND > " > Else > DatenLeer = DatenLeer & "InStr(ORDER BY Bereich"') > 0 AND " > End If > > DatenLeer = Left(DatenLeer, Len(DatenLeer) -4) > > Zeiten.Open "SELECT * FROM Zeiterfassung " & DatenLeer, Verbinden, > adOpenDynamic, adLockOptimistic > > Hier bekomme ich immer einen Timeout zur�ck. Wie kann das sein wenn in > der Datenbank nur 4 Eintr�ge sind. > > > 2. > > Z_Sortiert = Trim(Request("Sortiert")) > > If Z_Sortiert = "" Then > Set Zeiten = Server.CreateObject("ADODB.Recordset") > Zeiten.Open "SELECT * FROM Zeiterfassung ORDER BY Bereich", Verbinden, > adOpenDynamic, adLockOptimistic > Else > SortiertLeer = InStr(ORDER BY " & Z_Sortiert & "') > 0 AND ?? da hast du bestimmt etwas anderes gemeint... > SortiertLeer = Left(SortiertLeer, Len(SortiertLeer) -4) > Set Zeiten = Server.CreateObject("ADODB.Recordset") > Zeiten.Open "SELECT * FROM Zeiterfassung " & SortiertLeer, Verbinden, > adOpenDynamic, adLockOptimistic > End If > > Hier bekomme ich immer die Fehlermeldung: > > Microsoft VBScript compilation error '800a03ea' > Syntax error > /iisHelp/common/500-100.asp, line 129 > elseIf (objASPError.Description > "") Then > ^ > Microsoft VBScript compilation error '800a03ee' > Expected ')' > SortiertLeer = InStr(ORDER BY " & Z_Sortiert & "') > 0 AND > ---------------------------^ > > Kann mir jemand sagen was ich da falsch gemacht. > Vielen Dank im vorraus. > > Mit freundlichen Gr��en > > 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 > mfg Martin F�rholz -- GMX - Die Kommunikationsplattform im Internet. http://www.gmx.net | [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
