Avatar billede iceb1977 Nybegynder
16. februar 2002 - 13:43 Der er 15 kommentarer og
1 løsning

Simpel sql ?

Hej

Jeg har en db hvor jeg gerne vil vise første

record i rs kaldet GroupID

Nedenunder på en ny linie vil jeg så vise første

record i rs StudText

Nedenunder på en ny linie vil jeg så gerne vise

den anden record i rs GroupID

Nedenunder på en ny linie vil jeg så gerne vise

den anden record i rs StudText

osv osv .....

Jeg går ud fra jeg skal bruge Do og Loop her ???

Min kode følger .....

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tab.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from table1"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
While Not rs.EOF

  ' Udskriv værdien af kolonnen Fornavn
  Response.Write rs("GroupID") & "<br>"

' SQL forespørgsel
strSQL = "Select * from table1"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

  ' Gå til næste Record i rs
  rs.MoveNext



  ' Udskriv værdien af kolonnen Fornavn
  Response.Write rs("StudText") & "<br>"

' Luk databaseforbindelse

Conn.Close
Set Conn = Nothing

%>
Avatar billede rune_c Nybegynder
16. februar 2002 - 13:52 #1
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tab.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from table1"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
While Not rs.EOF

  ' Udskriv værdien af kolonnen Fornavn
  Response.Write rs("GroupID") & "<br>"

  ' Udskriv værdien af kolonnen Fornavn
  Response.Write rs("StudText") & "<br>"

  rs.movenext
  loop

' Luk databaseforbindelse

Conn.Close
Set Conn = Nothing

%>
Avatar billede rune_c Nybegynder
16. februar 2002 - 13:52 #2
svar
Avatar billede iceb1977 Nybegynder
16. februar 2002 - 14:00 #3
Nej dette er ikke hvad jeg vil have.

Dette viser først ALLE records i rs GroupID og

jeg vil kun have det viser den FØRSTE som jeg har

skrevet ok ?
Avatar billede iceb1977 Nybegynder
16. februar 2002 - 14:02 #4
1:record 1 fra rs Group ID
2: record 1 fra rs StudText
3: record 2 fra rs Group ID
4: record 2 fra rs Studtext
Avatar billede rune_c Nybegynder
16. februar 2002 - 14:03 #5
skal den bare vise den første post i databasen og ikke andet
Avatar billede rune_c Nybegynder
16. februar 2002 - 14:05 #6
1. linie skal der stå 1. post fra kolonen Group ID
2. linie skal der stå 1. post fra kolonen StudText
3. linie skal der stå 2. post fra kolonen Group ID
4. linie skal der stå 2. post fra kolonen StudText

osv. er det sådan..?? Hvis ja skal du bare bruge det jeg skrev
Avatar billede iceb1977 Nybegynder
16. februar 2002 - 14:07 #7
Ja det er ....

Ok tester ....
Avatar billede iceb1977 Nybegynder
16. februar 2002 - 14:09 #8
No der er fejl

Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a040e'

'Loop' uden 'Do'

/final_tut/retrieve.asp, linje 28

loop
^
Avatar billede iceb1977 Nybegynder
16. februar 2002 - 14:10 #9
Her er linie 28

  loop
Avatar billede rune_c Nybegynder
16. februar 2002 - 14:10 #10
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tab.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from table1"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Do While Not rs.EOF

  ' Udskriv værdien af kolonnen Fornavn
  Response.Write rs("GroupID") & "<br>"

  ' Udskriv værdien af kolonnen Fornavn
  Response.Write rs("StudText") & "<br>"

  rs.movenext
  loop

' Luk databaseforbindelse

Conn.Close
Set Conn = Nothing

%>
Avatar billede rune_c Nybegynder
16. februar 2002 - 14:10 #11
prøv igen! Det hedder:

Do While .....

  kode

loop
Avatar billede iceb1977 Nybegynder
16. februar 2002 - 14:12 #12
prøv igen ?

det virker jo nu ....s
Avatar billede rune_c Nybegynder
16. februar 2002 - 14:14 #13
"
prøv igen! Det hedder:

Do While .....

  kode

loop
"

..var bare en kommentar til den rettelse jeg lavede i kommentaren lige før
Avatar billede iceb1977 Nybegynder
16. februar 2002 - 14:20 #14
ergo kan jeg godt lukke sp. nu ik ??????
Avatar billede rune_c Nybegynder
16. februar 2002 - 14:22 #15
jo......du har jo fået det til at virke..
Avatar billede iceb1977 Nybegynder
16. februar 2002 - 14:23 #16
good tak tak s
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