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 "
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
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
