Avatar billede mnoergaard Nybegynder
03. juli 2002 - 18:22 Der er 26 kommentarer og
1 løsning

Problemer med ASP og database

oki folkens min koder ses for neden, og mit problem er:

jeg vil gerne have sådan er min data fra databasen kommer ud i en tabel, og hvær anden række har en anden baggrundsfarve.

hvad skal jeg gøre for at det kan lade sig gøre.!!


<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<%
' 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("database.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * From tabel Where hv = 'Hvad'"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

  ' Udskriv værdien af kolonnen Fornavn og fødselsdato
  Response.Write rs("sp") & " " & rs("sv") & "<br>"

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

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

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>


Avatar billede eagleeye Praktikant
03. juli 2002 - 18:33 #1
Du kan skifte dit loop ud med dette kode:


farve = 0
response.write "<table>"
Do while NOT (rs.EOF or rs.BOF)
  if (farve MOD 2 = 0) then
    bgColor = "#00FFFF" 'Første farve
  else
    bgColor = "#FF00FF" 'Anden farve
  end if
  farve  = farve + 1
  response.write "<tr>"
  response.write "<td bgcolor="""&bgColor&""">" & rs("sp") & " " & rs("sv") & "</td>"
  response.write "</tr>"
rs.MoveNext
Loop
response.write "</table>"
Avatar billede mnoergaard Nybegynder
03. juli 2002 - 18:35 #2
oki en loop?? hvad er det?
Avatar billede eagleeye Praktikant
03. juli 2002 - 18:38 #3
Det er disse linier i dit spørgsmål:

Do

  ' Udskriv værdien af kolonnen Fornavn og fødselsdato
  Response.Write rs("sp") & " " & rs("sv") & "<br>"

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

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
Avatar billede mnoergaard Nybegynder
03. juli 2002 - 18:40 #4
oki kan jeg lokke dig til at sætte den ind i koden for mig, så jeg er sikker på at den er rigtig.?
Avatar billede eagleeye Praktikant
03. juli 2002 - 18:45 #5
Ja her er den:


<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<%
' 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("database.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * From tabel Where hv = 'Hvad'"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
farve = 0  'Tælle som bruges til at skift mellem farve
response.write "<table>"
Do while NOT (rs.EOF or rs.BOF)
  if (farve MOD 2 = 0) then
    bgColor = "#00FFFF" 'Første farve
  else
    bgColor = "#FF00FF" 'Anden farve
  end if
  farve  = farve + 1 'Tæl tælleren nen up...
  response.write "<tr>"
  response.write "<td bgcolor="""&bgColor&""">" & rs("sp") & " " & rs("sv") & "</td>"
  response.write "</tr>"
  rs.MoveNext
Loop
response.write "</table>"

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
Avatar billede mnoergaard Nybegynder
03. juli 2002 - 18:47 #6
det vil den ikke der er fejl i line 11.!!


line 11 ser sådan ud


Conn.Open DSN
Avatar billede eagleeye Praktikant
03. juli 2002 - 18:50 #7
hmm hvilken fejl??
Avatar billede mnoergaard Nybegynder
03. juli 2002 - 18:52 #8
det ved jeg ikke men når jeg opdater min side ser den sådan ud.!1

Siden kan ikke vises
Der er opstået et problem med den side, du forsøger at se, og siden kan ikke vises.

--------------------------------------------------------------------------------

Prøv følgende:

Klik på knappen Opdater, eller forsøg igen senere.

Åbn localhost hjemmesiden, og søg derefter efter hyperlinks til de ønskede oplysninger.
HTTP 500,100 - Intern fejl på serveren - ASP-fejl -
Internet Information Services

--------------------------------------------------------------------------------

Tekniske oplysninger (for supportteknikere)

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver]Der opstod en generel fejl. Registreringsnøglen Temporary (volatile) Jet DSN for process 0x4cc Thread 0x71c DBC 0x229488c Jet kan ikke åbnes.
/fos.asp, line 11


Browsertype:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

Side:
GET /fos.asp

Klokkeslæt:
3. juli 2002, 18:51:58


Yderligere oplysninger:
Microsoft Support
Avatar billede eagleeye Praktikant
03. juli 2002 - 18:56 #9
Så er stien til database filen forkert.

DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")

Hvor ligger database filen i forhold til ASP filen?
Avatar billede mnoergaard Nybegynder
03. juli 2002 - 18:57 #10
samme sted
Avatar billede monstermand Nybegynder
03. juli 2002 - 18:59 #11
hedder den også database.mdb ?  .o)
Avatar billede mnoergaard Nybegynder
03. juli 2002 - 19:00 #12
yeps,
Avatar billede mnoergaard Nybegynder
03. juli 2002 - 19:01 #13
oki tak jeg har fundet felen, det var navnet der ikke var rigtigt.!! mange tak for hjælpen.!!


har du fået poingne??
Avatar billede eagleeye Praktikant
03. juli 2002 - 19:03 #14
Jeg har fået pointsne, mange tak :)
Avatar billede mnoergaard Nybegynder
03. juli 2002 - 19:05 #15
lige en ting

hvordan får jeg så den sortere dem i alfabetisk orden??
Avatar billede mnoergaard Nybegynder
03. juli 2002 - 19:06 #16
og lige rygge "sv" over så den kommer væk og under hinanden
Avatar billede eagleeye Praktikant
03. juli 2002 - 19:10 #17
Du kan sætte ODER BY kolonnenavn
Enten med eller uden DESC

strSQL = "Select * From tabel Where hv = 'Hvad' ORDER BY sp"



Du kan dele denne:
response.write "<td bgcolor="""&bgColor&""">" & rs("sp") & " " & rs("sv") & "</td>"

Op i to kolonner i tabellen så de står over hinanden:
response.write "<td bgcolor="""&bgColor&""">" & rs("sp") & "</td>"
response.write "<td bgcolor="""&bgColor&""">" & rs("sv") & "</td>"
Avatar billede mnoergaard Nybegynder
03. juli 2002 - 19:15 #18
oki se lige denne side, og se om du kan hjælpe på den hvide streg

http://195.47.143.139/fos.asp
Avatar billede eagleeye Praktikant
03. juli 2002 - 19:18 #19
Der kommer fejl når jeg åber siden..
Avatar billede mnoergaard Nybegynder
03. juli 2002 - 19:21 #20
det lyder ikke for godt.!! nå men der kommer en lodret hvid streg mellem sp og sv

hvordan får jeg de væk
Avatar billede eagleeye Praktikant
03. juli 2002 - 19:23 #21
Du kan prøve at ændre:
response.write "<tr>"


Til:
response.write "<tr bgcolor="""&bgColor&""">"
Avatar billede mnoergaard Nybegynder
03. juli 2002 - 19:27 #22
så det kommer til at se sådan ud??  så sker der ikke noget.!!

' Gennemløb Recordset (rs) med en løkke
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
farve = 0  'Tælle som bruges til at skift mellem farve
response.write "<table>"
Do while NOT (rs.EOF or rs.BOF)
  if (farve MOD 2 = 0) then
    bgColor = "#3377ff" 'Første farve
  else
    bgColor = "#FFFFFF" 'Anden farve
  end if
  farve  = farve + 1 'Tæl tælleren nen up...
  response.write "<tr bgcolor="""&bgColor&""">"
  response.write "<td bgcolor="""&bgColor&""">" & rs("sp") & "</td>"
    response.write "<td bgcolor="""&bgColor&""">" & rs("sv") & "</td>"
  response.write "</tr>"
  rs.MoveNext
Loop
response.write "</table>"
Avatar billede eagleeye Praktikant
03. juli 2002 - 19:30 #23
Prøv at sætte border=0 i <table>

response.write "<table border=0>"
Avatar billede mnoergaard Nybegynder
03. juli 2002 - 19:32 #24
nop, det vil den heller ikke
Avatar billede eagleeye Praktikant
03. juli 2002 - 19:36 #25
hm hvad hvis man sætte border=0 på tr eller td ?

response.write "<tr border=""0"" bgcolor="""&bgColor&""">"
Avatar billede mnoergaard Nybegynder
03. juli 2002 - 19:40 #26
det sammen.!!
Avatar billede eagleeye Praktikant
03. juli 2002 - 19:57 #27
så ved jeg næsten ikke hvordan man fjerne det..
Hvad hvis man bruger borderColor?

response.write "<tr border=""0"" borderColor="""&bgColor&""">"
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