Søg
Avatar billede eromaster Nybegynder
06. december 2002 - 09:03 Der er 19 kommentarer og
1 løsning

Visning efter første bogstav i tekst

Jeg printer alt ud fra en tabel i min database. Jeg har i min url en querystring der f.eks. kunne hedde default.asp?page=clans&id=a <- dvs at den skal gå ind i den kolone i databasen der hedder "clanname_long" og tjekke det første bogstav hvis det så stemme overens med id= så skal den vise det. hvad gør jeg?

<%
      Set DataConn = Server.CreateObject("ADODB.Connection")
      DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
      DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")
      DataConn.Open DSN
      %>
     
      <%
      Set news = Server.CreateObject("ADODB.RecordSet")
      news.open "Select * From [clans] order by clanname_long asc", DataConn
      if not news.EOF then
      news.MoveFirst
      end if
      do while not news.EOF
      %>
      <%if news("clanname_long") = request.querystring("id") then%>
            <a href="default.asp?page=clan_spec&id=<%=news("id")%>"><%=news("clanname_long")%></a>
      <br>
      <%end if%>


     
      <%
      news.MoveNext
      loop
      news.Close
      set news = nothing
      Dataconn.Close
      %>
Avatar billede medions Nybegynder
06. december 2002 - 09:16 #1
<%
      Set DataConn = Server.CreateObject("ADODB.Connection")
      DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
      DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")
      DataConn.Open DSN
      %>
     
      <%
      Set news = Server.CreateObject("ADODB.RecordSet")
      news.open "Select * From [clans] WHERE CLANNAME_LONG = " & Request.QueryString("ID") & " order by clanname_long asc", DataConn
      if not news.EOF then
      news.MoveFirst
      end if
      do while not news.EOF
      %>
      <%if news("clanname_long") = request.querystring("id") then%>
            <a href="default.asp?page=clan_spec&id=<%=news("id")%>"><%=news("clanname_long")%></a>
      <br>
      <%end if%>


     
      <%
      news.MoveNext
      loop
      news.Close
      set news = nothing
      Dataconn.Close
      %>

//>Rune
Avatar billede eromaster Nybegynder
06. december 2002 - 09:28 #2
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/clan-gathering.dk/vor/league/default.asp, line 30

Linie 30: news.open "Select * From [clans] WHERE CLANNAME_LONG = " & Request.QueryString("ID") & " order by clanname_long asc", DataConn
Avatar billede medions Nybegynder
06. december 2002 - 09:30 #3
Hmm *G*

<%
      Set DataConn = Server.CreateObject("ADODB.Connection")
      DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
      DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")
      DataConn.Open DSN
      %>
     
      <%
      Set news = Server.CreateObject("ADODB.RecordSet")
      news.open "Select * From [clans] WHERE clanname_long = " & Request.QueryString("id") & " order by clanname_long asc", DataConn
      if not news.EOF then
      news.MoveFirst
      end if
      do while not news.EOF
      %>
      <%if news("clanname_long") = request.querystring("id") then%>
            <a href="default.asp?page=clan_spec&id=<%=news("id")%>"><%=news("clanname_long")%></a>
      <br>
      <%end if%>


     
      <%
      news.MoveNext
      loop
      news.Close
      set news = nothing
      Dataconn.Close
      %>

//>Rune
Avatar billede eromaster Nybegynder
06. december 2002 - 09:31 #4
stadig det samme
Avatar billede eromaster Nybegynder
06. december 2002 - 09:33 #5
Det der kommer ud af "clanname_long" kan forøvrigt sagtens være flere bogstaver og ord den skal bare vise dem efter det første bogstav i det første ord
Avatar billede medions Nybegynder
06. december 2002 - 09:33 #6
<%
      Set DataConn = Server.CreateObject("ADODB.Connection")
      DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
      DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")
      DataConn.Open DSN
      %>
     
      <%
      Set news = Server.CreateObject("ADODB.RecordSet")
      news.open "Select * From [clans] WHERE clanname_long = " & CInt(Request.QueryString("id")) & " order by clanname_long asc", DataConn
      if not news.EOF then
      news.MoveFirst
      end if
      do while not news.EOF
      %>
      <%if news("clanname_long") = request.querystring("id") then%>
            <a href="default.asp?page=clan_spec&id=<%=news("id")%>"><%=news("clanname_long")%></a>
      <br>
      <%end if%>


     
      <%
      news.MoveNext
      loop
      news.Close
      set news = nothing
      Dataconn.Close
      %>

//>Rune
Avatar billede eromaster Nybegynder
06. december 2002 - 09:35 #7
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'CInt'
/default.asp, line 30
Avatar billede medions Nybegynder
06. december 2002 - 09:36 #8
<%
      Set DataConn = Server.CreateObject("ADODB.Connection")
      DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
      DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")
      DataConn.Open DSN
      %>
     
      <%
      Set news = Server.CreateObject("ADODB.RecordSet")
      news.open "Select * From [clans] WHERE clanname_long = " & CInt(Request.QueryString("id")) & " order by clanname_long asc", DataConn
      if not news.EOF then
      news.MoveFirst
      end if
      do while not news.EOF
      %>
      <%if news("clanname_long") = request.querystring("id") then%>
            <a href="default.asp?page=clan_spec&id=<%=news("id")%>"><%=news("clanname_long")%></a>
      <br>
      <%end if%>


     
      <%
      news.MoveNext
      loop
      news.Close
      set news = nothing
      Dataconn.Close
      %>

//>Rune
Avatar billede eromaster Nybegynder
06. december 2002 - 09:37 #9
Samme fejl
Avatar billede medions Nybegynder
06. december 2002 - 09:39 #10
<%
      Set DataConn = Server.CreateObject("ADODB.Connection")
      DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
      DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")
      DataConn.Open DSN
      %>
     
      <%
      Set news = Server.CreateObject("ADODB.RecordSet")
      news.open "Select * From [clans] WHERE clanname_long = '" & Request.QueryString("id") & "' order by clanname_long asc", DataConn
      if not news.EOF then
      news.MoveFirst
      end if
      do while not news.EOF
      %>
      <%if news("clanname_long") = request.querystring("id") then%>
            <a href="default.asp?page=clan_spec&id=<%=news("id")%>"><%=news("clanname_long")%></a>
      <br>
      <%end if%>


     
      <%
      news.MoveNext
      loop
      news.Close
      set news = nothing
      Dataconn.Close
      %>

Hvad siger den når du gør sådan her?

-og prøv lige at skriv Response.Write(strSQL)

//>Rune
Avatar billede eromaster Nybegynder
06. december 2002 - 09:42 #11
Den kommer ikke med nogen fejl her:

<%
      Set DataConn = Server.CreateObject("ADODB.Connection")
      DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
      DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")
      DataConn.Open DSN
      %>
     
      <%
      Set news = Server.CreateObject("ADODB.RecordSet")
      news.open "Select * From [clans] WHERE clanname_long = '" & Request.QueryString("id") & "' order by clanname_long asc", DataConn
      if not news.EOF then
      news.MoveFirst
      end if
      do while not news.EOF
      %>
     
      <%Response.Write(strSQL)%>
     


     
      <%
      news.MoveNext
      loop
      news.Close
      set news = nothing
      Dataconn.Close
      %>

Men tilgengæld viser den heller ikke noget når man f.eks. trykke på e = default.asp?page=clans&id=e :(
Avatar billede medions Nybegynder
06. december 2002 - 09:51 #12
<%
      Set DataConn = Server.CreateObject("ADODB.Connection")
      DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
      DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")
      DataConn.Open DSN
      %>
     
      <%
      Set news = Server.CreateObject("ADODB.RecordSet")
      news.open "Select * From [clans] WHERE clanname_long = '" & Request.QueryString("id") & "' order by clanname_long asc", DataConn
      %>
     
      <%Response.Write(strSQL)%>
     


     
      <%
      news.Close
      set news = nothing
      Dataconn.Close
      %>

pr´øv sådan her!

//>Rune
Avatar billede eromaster Nybegynder
06. december 2002 - 09:57 #13
Stadig ingenting, hverken fejl eller tekst
Avatar billede medions Nybegynder
06. december 2002 - 10:05 #14
Hvad med sådan her:

<%
      Set DataConn = Server.CreateObject("ADODB.Connection")
      DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
      DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")
      DataConn.Open DSN
      %>
     
      <%
      Set news = Server.CreateObject("ADODB.RecordSet")
     
strSQL = "Select * From [clans] WHERE clanname_long = '" & Request.QueryString("id") & "' order by clanname_long asc"
Set news = Dataconn.Execute(strSQL)
      %>
     
      <%Response.Write(news(1))%>     
      <%
      news.Close
      set news = nothing
      Dataconn.Close
      %>

//>Rune
Avatar billede eromaster Nybegynder
06. december 2002 - 10:16 #15
Okay det virker hvis jeg skrive HELE navnet i querystring'en id men jeg skal liste dem efter første bogstav
Avatar billede medions Nybegynder
06. december 2002 - 10:20 #16
Ok, nu fatter jeg ik' noget! *G*
Hvad er det du vil præcist? -prøv at skær det ud i pap til mig!

//>Rune
Avatar billede eromaster Nybegynder
06. december 2002 - 10:24 #17
Okay det du har lavet nu er sådanset godt nok pånær lige en ting... Jeg har f.eks. i kolonen "clanname_long" en post der hedder "Attack" mening er ved hjælp af tryk på en knap så skrive den i min querystring default.asp?page=clans&id=a. Dvs. at den nu skal gå ind i kolonen "clanname_long" og finder ALLE posts hvis første bogstav er a.

Det du har lavet virker kun hvis man skriv ALT det som står i kolonen "clanname_long" f.eks. skulle der stå "default.asp?page=clans&id=attack" hvis den skal kunne finde det post der hedder "attack"! hjalp det ? :)
Avatar billede medions Nybegynder
06. december 2002 - 10:32 #18
Ahh ok, så prøver vi med funktionen Left() ;o)

strSQL = "Select * From [clans] WHERE Left(clanname_long,1) = '" & Request.QueryString("id") & "' order by clanname_long asc"
Set news = Dataconn.Execute(strSQL)

While Not news.EOF
  Response.Write(news(1) & "<br>")
news.MoveNext()
Wend

//>Rune
Avatar billede eromaster Nybegynder
06. december 2002 - 10:36 #19
Tak for indsatsen :)
Avatar billede medions Nybegynder
06. december 2002 - 11:33 #20
Anytime :-)
Thx 4 Poinz

//>Rune
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 12:14 Ang udskrift Canon mb5050 Af made18 i Printere
02/1021:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
02/1018:16 Tømme gammel PC for indhold, kan ikke tændes Af Mai i Andet software
01/1017:41 NVIDIA Geforce GTX 1060 6 GB som "snakker" Af dcedata1977 i Andet hardware
27/0916:43 Nomad Tracking Car Af fleknes i Apps til Android
White papers
Flere white papers »