Søge-sql - \"missing expression\"

hvis du ikke behøver indtaste alle felt så vil den fejle hvis et tal felt er tomt.
Eks:
Hvis strSagsnr ikke er indtastet så vil der i SQL\'en stå Sagsnr =
og det vil give den fejl du skriver.

Så du skal lave nogle if sæninger som tjkker om felterne er tomme i stil med dette:

SQLWhere = \"\"
if strSagsnr <> \"\" then
  if SQLWhere <> \"\"
    SQLWhere = SQLWhere & \" OR \"
  end if
  SQLWhere = SQLWhere & \"Sagsnr=\" & strSagsnr
end if
if strKundenr<> \"\" then
  if SQLWhere <> \"\"
    SQLWhere = SQLWhere & \" OR \"
  end if
  SQLWhere = SQLWhere & \"strSagsnr=\" & strKundenr
end if
if strDTP <> \"\" then
  if SQLWhere <> \"\"
    SQLWhere = SQLWhere & \" OR \"
  end if
  SQLWhere = SQLWhere & \"DTP=\'\" & strDTP & \"\'\"
end if
if strStatus<> \"\" then
  if SQLWhere <> \"\"
    SQLWhere = SQLWhere & \" OR \"
  end if
  SQLWhere = SQLWhere & \"Status=\'\" & strStatus& \"\'\"
end if

sql = \"SELECT * FROM Creative_task WHERE \" & SQLWhere
Set rs = Connect.Execute(sql)

eagleeye:

Det virker - dog havde du glemt en \"THEN\" et par steder, men pointene er dine! ;0)

HOVSA:

Hvis jeg bruger flere kriterier (fx. Sagsnr og DTP) så får jeg følgende fejl:

Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Oracle][ODBC Oracle Driver][Oracle OCI]ORA-00933: SQL command not properly ended.

/creative/frameset/search.asp, line 120

Bruger du Oracle?

Måske der skal () omkring WHERE :
WHERE (felt=1 OR felt=2)
----

SQLWhere = \"(\"

og tilsidst:

SQLWhere = SQLWhere & \")\"
sql = \"SELECT * FROM Creative_task WHERE \" & SQLWhere


Det kan gså være at SQL\'en skal afsluttes med ;

sql = \"SELECT * FROM Creative_task WHERE \" & SQLWhere & \";\"

Ja - det kører på en ORACLE!

Men dit forslag virkede ikke - fik bare \"Missing right paranthesis!\"

Men er også lige meget - tror ikke den situation vil opstå hvor de bruger 2 valg!

ok det jeg tænkte på var dette:


SQLWhere = \"(\"
if strSagsnr <> \"\" then
  if SQLWhere <> \"\"
    SQLWhere = SQLWhere & \" OR \"
  end if
  SQLWhere = SQLWhere & \"Sagsnr=\" & strSagsnr
end if
if strKundenr<> \"\" then
  if SQLWhere <> \"\"
    SQLWhere = SQLWhere & \" OR \"
  end if
  SQLWhere = SQLWhere & \"strSagsnr=\" & strKundenr
end if
if strDTP <> \"\" then
  if SQLWhere <> \"\"
    SQLWhere = SQLWhere & \" OR \"
  end if
  SQLWhere = SQLWhere & \"DTP=\'\" & strDTP & \"\'\"
end if
if strStatus<> \"\" then
  if SQLWhere <> \"\"
    SQLWhere = SQLWhere & \" OR \"
  end if
  SQLWhere = SQLWhere & \"Status=\'\" & strStatus& \"\'\"
end if
SQLWhere = SQLWhere & \")\"
sql = \"SELECT * FROM Creative_task WHERE \" & SQLWhere & \";\"
Set rs = Connect.Execute(sql)