Søg
Avatar billede duno Nybegynder
23. februar 2003 - 19:49 Der er 11 kommentarer og
2 løsninger

opdeling af info i tabel

Hej jeg skal hente nogen navne fra en database, men jeg vil kun hente alle der starter med A , og jeg vil kunne dele dem op i en tabel på 3 columns (3 rækker) men tabellen må gerne være så lang som nødvendigt .. jeg vil bare have et unikt navn i hvert felt og sortere dem vandret... det var vist det...

Nogen spørgsmål mht ovenstående.. ???

skriv et indlæg og jeg skal forklare mig tydligere.. (har ellers prøvet)
Avatar billede longshanks Nybegynder
23. februar 2003 - 19:54 #1
"Select * from TabelNavn where (Navn like 'A%')

dim counter = 0

Response.write "<table><tr>"
do
if counter = 2 then
Response.write "</tr><tr>"
end if

Response.write "<td>" & rs("Navn") & "</td>"
rs.moveNext
loop while not rs.eof
Response.write "</tr><table>"

er det noget i den stil du mangler? ;)
Avatar billede longshanks Nybegynder
23. februar 2003 - 19:55 #2
du bruger den første linie som SQL streng, og gennemgår resultaterne med løbben nedenfor
Avatar billede eagleeye Praktikant
23. februar 2003 - 19:55 #3
Første at hendte alle med:

SQL = "SELECT * FROM tabel WHERE navn LIKE 'a%'"
Set rs=Conn.execute(SQL)

Response.write "<table>"
maxcolprrow = 3
colinrow = 0
do while not RS.EOF
  if colinrow = 0 then response.write "<tr>"
 
  response.write "<td>"
  response.write rs("navn")
  response.write "</td>"

  colinrow = colinrow + 1
  if colinrow = maxcolprrow then
    response.write "</tr>"
    colinrow = 0
  end if
  rs.Movennext
loop

response.write "</table>"
Avatar billede duno Nybegynder
23. februar 2003 - 19:59 #4
ja det ser ganske rigtigt ud.. men kan jeg ikke få programmeringen skåret ud i pap.. hvor skal jeg lægge denne del.. øverst efter en <% ikke sandt.. og hvad så mere... damn jeg hader søndage.. skal der ikke lægges noget i selve tabellen???
Avatar billede longshanks Nybegynder
23. februar 2003 - 20:02 #5
<%
strSQL = "Select * from TabelNavn where (Navn like 'A%')
rs = Conn.execute(strSQL)

dim counter = 0

Response.write "<table><tr>"
do
if counter = 2 then
Response.write "</tr><tr>"
end if

Response.write "<td>" & rs("Navn") & "</td>"
rs.moveNext
loop while not rs.eof
Response.write "</tr><table>"
%>

Bare spørg :)
Avatar billede longshanks Nybegynder
23. februar 2003 - 20:03 #6
før den første linie skal du jo selvfølgelig have lavet en database forbindelse......
Avatar billede duno Nybegynder
24. februar 2003 - 00:16 #7
ok så ser min kode ud som følger...


<!--#include file="forbindelse.asp" -->


<%
SQL = "SELECT * FROM navnedrenge WHERE navn LIKE 'a%'"
Set rs=Conn.execute(SQL)

Response.write "<table>"
maxcolprrow = 3
colinrow = 0
do while not RS.EOF
  if colinrow = 0 then response.write "<tr>"
 
  response.write "<td>"
  response.write rs("navn")
  response.write "</td>"

  colinrow = colinrow + 1
  if colinrow = maxcolprrow then
    response.write "</tr>"
    colinrow = 0
  end if
  rs.Movennext
loop

response.write "</table>"
%>

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF">

</body>
</html>


men jeg tror ikke at jeg kan køre SQL..

når jeg køre det her får jeg følgende fejl...

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'Conn'
/Untitled.asp, line 7

hvad hulen mener den med det???
Avatar billede eagleeye Praktikant
24. februar 2003 - 00:20 #8
Conn skal være et connections object så man kan få adgang til databasen.

Eks kunne være

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=" & Server.MapPath("database.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
Avatar billede duno Nybegynder
24. februar 2003 - 00:52 #9
hmm jeg får stadig den her fejl...

Microsoft VBScript runtime error '800a01a8'

Object required: 'Conn'

/untitled.asp, line 3


her er en komplet oversigt over indholdet i "untitled.asp

<%
Set database = Server.CreateObject ("ADODB.Connection")
Conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\www2\domain\kb\log\db2.mdb")


strSQL = "Select * from navnedrenge where Navn like " 'A%'
rs = Conn.execute(strSQL)

Response.write "<table>"
maxcolprrow = 3
colinrow = 0
do while not RS.EOF
  if colinrow = 0 then response.write "<tr>"
 
  response.write "<td>"
  response.write rs("navn")
  response.write "</td>"

  colinrow = colinrow + 1
  if colinrow = maxcolprrow then
    response.write "</tr>"
    colinrow = 0
  end if
  rs.Movennext
loop

response.write "</table>"
%>

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF">

</body>
</html>

her er der jo en connection i linie 3..
Avatar billede longshanks Nybegynder
24. februar 2003 - 00:59 #10
strSQL = "Select * from navnedrenge where (Navn like 'A%')"
Kopier denne linie oveni din tilsvarende, der er fejl i din.....
Avatar billede duno Nybegynder
24. februar 2003 - 15:19 #11
er der ikke nogen som vil vise mig en kode der virker... gerne bygget over min.. jeg får følgende fejl hele tiden

Microsoft VBScript runtime error '800a01a8'

Object required: 'Conn'

/untitled.asp, line 3

linie 3 fejler oikke noget som jeg ser det... er det forkert...
Avatar billede eagleeye Praktikant
24. februar 2003 - 17:08 #12
Du skal bare rette denne linie:
Set database = Server.CreateObject ("ADODB.Connection")

Til:

Set Conn = Server.CreateObject ("ADODB.Connection")
Avatar billede duno Nybegynder
03. september 2004 - 21:21 #13
jeg har valgt at dele points imellem jer.. da i begge har gjort en god indsats.. mange tak for hjælpen
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
25/0916:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
White papers
Flere white papers »