13. februar 2003 - 00:12Der er
6 kommentarer og 1 løsning
Kan dette ikke gøres smartere?
Hejsa,
Kan dette ikke gøres smartere:
If CatValg = Trim("Int") Then Sql1 = "SELECT * FROM Salg_cd WHERE Kunstner LIKE '0%' OR Kunstner LIKE '1%'" Sql2 = "OR Kunstner LIKE '2%' OR Kunstner LIKE '3%' OR Kunstner LIKE '4%'" Sql3 = "OR Kunstner LIKE '5%' OR Kunstner LIKE '6%' OR Kunstner LIKE '7%'" Sql4 = "OR Kunstner LIKE '8%' OR Kunstner LIKE '9%'" Sql5 = "ORDER BY Kunstner ASC" Rs.Open Sql1&Sql2&Sql3&Sql4&Sql5 ,con
Det skal bruges til når en bruger vælger at se alle enheder der starter med et tal fra 0 til 9.
If CatValg = Trim("Int") Then strSQL = strSQL & "SELECT * FROM Salg_cd WHERE Kunstner LIKE '0%' OR Kunstner LIKE '1%'" strSQL = strSQL & "OR Kunstner LIKE '2%' OR Kunstner LIKE '3%' OR Kunstner LIKE '4%'" strSQL = strSQL & "OR Kunstner LIKE '5%' OR Kunstner LIKE '6%' OR Kunstner LIKE '7%'" strSQL = strSQL & "OR Kunstner LIKE '8%' OR Kunstner LIKE '9%'" strSQL = strSQL & "ORDER BY Kunstner ASC" Rs.Open strSQL ,con
If CatValg = Trim("Int") Then strSQL = strSQL & "SELECT * FROM Salg_cd WHERE Kunstner LIKE '0%' OR Kunstner LIKE '1%'" strSQL = strSQL & "OR Kunstner LIKE '2%' OR Kunstner LIKE '3%' OR Kunstner LIKE '4%'" strSQL = "OR Kunstner LIKE '5%' OR Kunstner LIKE '6%' OR Kunstner LIKE '7%'" strSQL = strSQL & "OR Kunstner LIKE '8%' OR Kunstner LIKE '9%'" strSQL = strSQL & "ORDER BY Kunstner ASC" Rs.Open strSQL ,con End if
If CatValg = Trim("Int") Then strSQL = "SELECT * FROM Salg_cd WHERE Kunstner LIKE '0%' OR Kunstner LIKE '1%'" strSQL = strSQL & " OR Kunstner LIKE '2%' OR Kunstner LIKE '3%' OR Kunstner LIKE '4%'" strSQL = strSQL & " OR Kunstner LIKE '5%' OR Kunstner LIKE '6%' OR Kunstner LIKE '7%'" strSQL = strSQL & " OR Kunstner LIKE '8%' OR Kunstner LIKE '9%'" strSQL = strSQL & " ORDER BY Kunstner ASC" Rs.Open strSQL ,con End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
