Avatar billede 0ffline Nybegynder
30. september 2004 - 16:17 Der er 5 kommentarer og
1 løsning

Indsætte variable i id, samt trigger til de forskellige udtræk

Hej

Hvordan kan jeg udtrække samtlige afholdte arrangementer i dette kald til databasen.

Et eller andet sted skal man vil første køre en 'tæller' der tæller antallet af afholdte arrangementer vha 'id' som er autonum.

Derefter vil jeg jo gerne at den laver en string ala nedenstående, således man kan læse de første 190 anslag, og derefter den henviser til hele artiklen.

...........................
DETTE FUNGERE FINT MED KUN 1 ARTIKEL
...........................
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db\afholdte.mdb")
strSQL = "select * from flashbacks Where id = 1"
Set rs = Conn.Execute(strSQL)
streng=rs("beskriv")
if len(streng)>190 then
    streng=left(streng,190) & " ..."
  end if
  strLatestLink = "<a href='specifikevent.asp?id=" & rs("id") & "'><div class='subtxt'>Læs hele Annoncen >>" & "<br><br></div></a>"
..................................
TRIGGER
..................................
RESPONSE.WRITE"<br>" & Replace(streng,vbCrLf,"<br>") & "<br>" & strLatestLink

Håber det er til at løse

0ffline
Avatar billede eagleeye Praktikant
30. september 2004 - 16:24 #1
Du kan lave et loop. Som udksirver det og en SQL count som tæller poster:

sql = "select count(id) as antal from flashbacks "
Set rs = Conn.Execute(sql)
antal = rs("antal")


Så koden bliver:

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db\afholdte.mdb")
sql = "select count(id) as antal from flashbacks "
Set rs = Conn.Execute(sql)
antal = rs("antal")
Response.write "Der er " & antal & " afholdte arrangementer.<br>"

strSQL = "select * from flashbacks "
Set rs = Conn.Execute(strSQL)
do while not rs.EOF
  streng=rs("beskriv")
  if len(streng)>190 then
    streng=left(streng,190) & " ..."
  end if
  strLatestLink = "<a href='specifikevent.asp?id=" & rs("id") & "'><div class='subtxt'>Læs hele Annoncen >>" & "<br></div></a>"
  RESPONSE.WRITE "<br>" & Replace(streng,vbCrLf,"<br>") & "<br>" & strLatestLink

  rs.Movenext
loop
Avatar billede 0ffline Nybegynder
30. september 2004 - 16:39 #2
Hold da helt op. Det virker jo formidabelt.
Jeg viste ikke man kunne 'genbruge' strLatestLink = "< ...etc til forskellige link.
Smid et svar, og tusinde tak for hjælpen.
Avatar billede eagleeye Praktikant
30. september 2004 - 16:42 #3
Ok :)
Avatar billede 0ffline Nybegynder
30. september 2004 - 16:45 #4
Hvis man ønsker den skal 'vende' således højeste tal vises først, kan man så det?
Avatar billede eagleeye Praktikant
30. september 2004 - 16:47 #5
Så laver du denne SQL sætning om:

strSQL = "select * from flashbacks "

Så den har en order by id desc på:

strSQL = "select * from flashbacks order by id desc"
Avatar billede 0ffline Nybegynder
30. september 2004 - 16:55 #6
Simpel og ligetil. Endnu engang tak.
Hvem ved, måske ender det med at noget af det hænger ved c",)
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester