/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Udtræk fra database eftr bogstav
Fra : Morten Andersen


Dato : 18-07-01 15:08

Hej NG,

Er det muligt at udtrække poster fra en kolonne som begynder med et bestemt
bogstav? Altså angive i sin SELECT linie at det kun skal være de poster fra
kolonnen "Kunstner" der starter med A som skal returners?

Jeg har lige nu denne kode som udskriver ALT fra databasen:
<%
Dim oConn, sConnString
Set oConn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
sConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath ("database2.mdb")
' Åben databaseforbindelsen
oConn.Open(sConnString)

' SQL forespørgsel
SQL = "Select * from link Order by Kunstner,Album"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set RS = oConn.Execute(SQL)
Response.Write "<table border=1 style=color:#FFFFFF>"
Response.Write "<tr><th><font face='Tahoma'
size='2'>Artist</font></th><th><font face='Tahoma'
size='2'>Album</font></th><th><font face='Tahoma'
size='2'>Genre</font></th><th><font face='Tahoma'
size='2'>Email</font></th></tr>"

Do

Response.Write "<tr><td><font face='verdana' size='1'>" & rs("Kunstner")
& "</font></td>"
Response.Write "<td><font face='verdana' size='1'>" & rs("Album") &
"</font></td>"
Response.Write "<td><font face='verdana' size='1'>" & rs("Genre") &
"</font></td>"
Response.Write "<td><font face='verdana' size='1'>" & rs("Email") &
"</font></td>"

rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
Response.Write "</font></table>"

' Luk databaseforbindelse
oConn.Close
Set Conn = Nothing
%>

VH
Morten



 
 
Kaj N (18-07-2001)
Kommentar
Fra : Kaj N


Dato : 18-07-01 17:11

"Select * from link Order by Kunstner,Album
WHERE Kunstner LIKE 'A*'"

A* virker i Access. Korrekt SQL er 'A%'

Morten Andersen <v1207a@groenjord.dk> skrev i en
nyhedsmeddelelse:newscache$7x9ogg$3qo$1@kalvebod.groenjord.dk...
> Hej NG,
>
> Er det muligt at udtrække poster fra en kolonne som begynder med et
bestemt
> bogstav? Altså angive i sin SELECT linie at det kun skal være de poster
fra
> kolonnen "Kunstner" der starter med A som skal returners?
>
> Jeg har lige nu denne kode som udskriver ALT fra databasen:
> <%
> Dim oConn, sConnString
> Set oConn = Server.CreateObject("ADODB.Connection")
> ' Husk at angive den rigtige sti til din database
> sConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath ("database2.mdb")
> ' Åben databaseforbindelsen
> oConn.Open(sConnString)
>
> ' SQL forespørgsel
> SQL = "Select * from link Order by Kunstner,Album"
> ' Udfør forespørgsel (rs indeholder nu resultatet)
> Set RS = oConn.Execute(SQL)
> Response.Write "<table border=1 style=color:#FFFFFF>"
> Response.Write "<tr><th><font face='Tahoma'
> size='2'>Artist</font></th><th><font face='Tahoma'
> size='2'>Album</font></th><th><font face='Tahoma'
> size='2'>Genre</font></th><th><font face='Tahoma'
> size='2'>Email</font></th></tr>"
>
> Do
>
> Response.Write "<tr><td><font face='verdana' size='1'>" &
rs("Kunstner")
> & "</font></td>"
> Response.Write "<td><font face='verdana' size='1'>" & rs("Album") &
> "</font></td>"
> Response.Write "<td><font face='verdana' size='1'>" & rs("Genre") &
> "</font></td>"
> Response.Write "<td><font face='verdana' size='1'>" & rs("Email") &
> "</font></td>"
>
> rs.MoveNext
>
> ' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
> Loop While Not rs.EOF
> Response.Write "</font></table>"
>
> ' Luk databaseforbindelse
> oConn.Close
> Set Conn = Nothing
> %>
>
> VH
> Morten
>
>





Morten Andersen (18-07-2001)
Kommentar
Fra : Morten Andersen


Dato : 18-07-01 20:34

Hej Kaj

Tak for dit svar. Jeg har tilføjet det, men får nu en fejl ved noget kode
længere nede i filen. Fejlen er:

a.. Error Type:
(0x80020009)
Exception occurred.
skabelon.asp, line 35

Linie 35 er:
(33) Do
(34)
(35) Response.Write "<tr><td><font face='verdana' size='1'>" &
rs("Kunstner") & "</font></td>".

Dette har der ellers ikke været problemer med tidligere...
Morten



"Kaj N" <kaj@neupert.dk> wrote in message news:9j4c9m$dbj$2@sunsite.dk...
> "Select * from link Order by Kunstner,Album
> WHERE Kunstner LIKE 'A*'"
>
> A* virker i Access. Korrekt SQL er 'A%'
>
> Morten Andersen <v1207a@groenjord.dk> skrev i en
> nyhedsmeddelelse:newscache$7x9ogg$3qo$1@kalvebod.groenjord.dk...
> > Hej NG,
> >
> > Er det muligt at udtrække poster fra en kolonne som begynder med et
> bestemt
> > bogstav? Altså angive i sin SELECT linie at det kun skal være de poster
> fra
> > kolonnen "Kunstner" der starter med A som skal returners?
> >
> > Jeg har lige nu denne kode som udskriver ALT fra databasen:
> > <%
> > Dim oConn, sConnString
> > Set oConn = Server.CreateObject("ADODB.Connection")
> > ' Husk at angive den rigtige sti til din database
> > sConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> > Server.MapPath ("database2.mdb")
> > ' Åben databaseforbindelsen
> > oConn.Open(sConnString)
> >
> > ' SQL forespørgsel
> > SQL = "Select * from link Order by Kunstner,Album"
> > ' Udfør forespørgsel (rs indeholder nu resultatet)
> > Set RS = oConn.Execute(SQL)
> > Response.Write "<table border=1 style=color:#FFFFFF>"
> > Response.Write "<tr><th><font face='Tahoma'
> > size='2'>Artist</font></th><th><font face='Tahoma'
> > size='2'>Album</font></th><th><font face='Tahoma'
> > size='2'>Genre</font></th><th><font face='Tahoma'
> > size='2'>Email</font></th></tr>"
> >
> > Do
> >
> > Response.Write "<tr><td><font face='verdana' size='1'>" &
> rs("Kunstner")
> > & "</font></td>"
> > Response.Write "<td><font face='verdana' size='1'>" & rs("Album") &
> > "</font></td>"
> > Response.Write "<td><font face='verdana' size='1'>" & rs("Genre") &
> > "</font></td>"
> > Response.Write "<td><font face='verdana' size='1'>" & rs("Email") &
> > "</font></td>"
> >
> > rs.MoveNext
> >
> > ' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
> > Loop While Not rs.EOF
> > Response.Write "</font></table>"
> >
> > ' Luk databaseforbindelse
> > oConn.Close
> > Set Conn = Nothing
> > %>
> >
> > VH
> > Morten
> >
> >
>
>
>
>



Martin Kruse (18-07-2001)
Kommentar
Fra : Martin Kruse


Dato : 18-07-01 20:36

Hej Morten..
Hvis Kajs svar ikke hjælper vil jeg gerne hjælpe dig..
Bare skriv

Det er vel noget lignende det på
http://www.msdesign.dk/blandet/lyrics/index.asp?page=lyrics
du søger?

--

MK
http://www.msdesign.dk
Professionelt webdesign til fornuftige priser

"Morten Andersen" <v1207a@groenjord.dk> skrev i en meddelelse
news:newscache$7x9ogg$3qo$1@kalvebod.groenjord.dk...
> Hej NG,
>
> Er det muligt at udtrække poster fra en kolonne som begynder med et
bestemt
> bogstav? Altså angive i sin SELECT linie at det kun skal være de poster
fra
> kolonnen "Kunstner" der starter med A som skal returners?
>
> Jeg har lige nu denne kode som udskriver ALT fra databasen:
> <%
> Dim oConn, sConnString
> Set oConn = Server.CreateObject("ADODB.Connection")
> ' Husk at angive den rigtige sti til din database
> sConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath ("database2.mdb")
> ' Åben databaseforbindelsen
> oConn.Open(sConnString)
>
> ' SQL forespørgsel
> SQL = "Select * from link Order by Kunstner,Album"
> ' Udfør forespørgsel (rs indeholder nu resultatet)
> Set RS = oConn.Execute(SQL)
> Response.Write "<table border=1 style=color:#FFFFFF>"
> Response.Write "<tr><th><font face='Tahoma'
> size='2'>Artist</font></th><th><font face='Tahoma'
> size='2'>Album</font></th><th><font face='Tahoma'
> size='2'>Genre</font></th><th><font face='Tahoma'
> size='2'>Email</font></th></tr>"
>
> Do
>
> Response.Write "<tr><td><font face='verdana' size='1'>" &
rs("Kunstner")
> & "</font></td>"
> Response.Write "<td><font face='verdana' size='1'>" & rs("Album") &
> "</font></td>"
> Response.Write "<td><font face='verdana' size='1'>" & rs("Genre") &
> "</font></td>"
> Response.Write "<td><font face='verdana' size='1'>" & rs("Email") &
> "</font></td>"
>
> rs.MoveNext
>
> ' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
> Loop While Not rs.EOF
> Response.Write "</font></table>"
>
> ' Luk databaseforbindelse
> oConn.Close
> Set Conn = Nothing
> %>
>
> VH
> Morten
>
>



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408868
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste