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
