Tja...udtræk af kategorier fra db....

Jeg skulle ikke mene du kan udtrække dine tabelnavne. Du kalder jo dine data med først tabel navn, og så kollonenavn, de to skal man vel kende for at få sine data?

Du kan jo eventuelt oprette en tabel med dine kategorier, så kan du trække dem ud derfra, eventuelt med et ID så der er styr på det.

Mvh Emil

Det ville da være nemmere hvis jeg kunne "nøjes" med i starten at udtrække mit tabelnavn fra DB'en...

/Moffer

Ja, hvis man kan :-)

men jeg ved bare ikke/har aldrig hørt om hvordan man gør :-)

Mvh Emil

Så må jeg desværre afvise dit svar...

Det er også fair nok, ovejede længe om jeg skulle lave det et svar eller ej, for der var jo ikke meget du kunne bruge til noget, andet end jeg kunne fortælle hvad jeg ved :-)

Mvh Emil

<i>Jeg skulle ikke mene du kan udtrække dine tabelnavne.</i>

Det kan man. Jeg har lavet tags'ene lidt om...det finder du selv ud af.

set rs = server.CreateObject"ADODB.Recordset")
set rs = conn.openschema(4)
Response.Write("[table border=1]")
do until rs.EOF
if left(rs("table_name"),1) = ucase(left(rs("table_name"),1)) then
if temp <> rs("table_name") then
Response.Write("[/table][br][br][table border=1]")
end if
temp = rs("table_name")
Response.Write("[tr]")
Response.Write("[td]")
response.write(rs("table_name"))
Response.Write("[/td]")
Response.Write("[td]")
Response.write(rs("column_name"))
Response.Write("[/td]")
Response.Write("[/tr]")
end if
rs.MoveNext
loop
Response.Write("[/table]")

Min kode ser nu ud som følger:

----
<%
  Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("db/freestuff.mdb")
  Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
  Set Rs = conn.openschema(4)
%>
<%
Response.Write("[table border=1]")
do until rs.EOF
if left(rs("table_name"),1) = ucase(left(rs("table_name"),1)) then
if temp <> rs("table_name") then
Response.Write("[/table][br][br][table border=1]")
end if
temp = rs("table_name")
Response.Write("[tr]")
Response.Write("[td]")
response.write(rs("table_name"))
Response.Write("[/td]")
Response.Write("[td]")
Response.write(rs("column_name"))
Response.Write("[/td]")
Response.Write("[/tr]")
end if
rs.MoveNext
loop
Response.Write("[/table]")
%>
----
Den giver følgende fejl:
Microsoft VBScript runtime error '800a01a8'

Object required: 'conn'

/freestuff/vis_kat2.asp, line 5

Line 5: Set Rs = conn.openschema(4)

/Moffer

OK, du skal nok redigere databaseforbindelsen så den peger på det rigtige DB.

Du har sikkert en connection du kan bruge allerede, ikke?

Ups!

Prøv det her:

Set conn = Server.CreateObject("ADODB.Connection")

En svipser fra min side.

Det er min egen conection jeg har sat ind...

Hvad gør denne linje egentlig:
Set Rs = conn.openschema(4)


/Moffer

Giver denne fejl:
Microsoft VBScript runtime error '800a01a8'

Object required: 'Rs'

/freestuff/vis_kat2.asp, line 4

/Moffer

Set Rs = conn.openschema(4)

initialiserer OpenSchema metoden på db-forbindelsen.

Jeg glemte at sige at denne metode virker IKKE med Personal Web Server.

Hvordan vil du så lave det ellers...

Jeg kan kun teste på PWS....

/Moffer

Desværre - så det kan ikke blive anderledes.

Der må da være en metode til at gøre dette med, så jeg både kan køre det på NT og PWS ! ...

/Moffer

Hej...

Nu er jeg startet forfra og har forbindelse til en NT Server...

Nu giver den en fejl i linie 4:
ADODB.Recordset error '800a0e7d'

The application requested an operation on an object with a reference to a closed or invalid Connection object.

/freestuff/vis_kat2.asp, line 4

---

Koden:
---
<%
set rs = server.CreateObject("ADODB.Recordset")
DBPath = "DBQ=" & server.mappath("db/freestuff.mdb")
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
set rs = conn.openschema(4)
Response.Write("[table border=1]")
do until rs.EOF
if left(rs("table_name"),1) = ucase(left(rs("table_name"),1)) then
if temp <> rs("table_name") then
Response.Write("[/table][br][br][table border=1]")
end if
temp = rs("table_name")
Response.Write("[tr]")
Response.Write("[td]")
response.write(rs("table_name"))
Response.Write("[/td]")
Response.Write("[td]")
Response.write(rs("column_name"))
Response.Write("[/td]")
Response.Write("[/tr]")
end if
rs.MoveNext
loop
Response.Write("[/table]")
%>

/Moffer

Jeg har den "rigtige" kode derhjemme - jeg poster den i morgen.

oki

o O (Bli'r det mon inden kl. 15.00 ????)

Nu har jeg fået den til at virke med PWS:

Jeg går ud fra, at du har en forbindelse til DB'en - jeg kalder den "conn" i dette eksempel

set rs = conn.openschema(4)

while not rs.eof

response.write rs("TABLE_NAME") & ": " & rs("COLUMN_NAME") & "<BR>" & VbCrLf
rs.movenext
wend

Du får også nogle felter der hedder MySysInfo2 (eller noget i den stil - Access har nogle skulte tabeller til systemindstillinger, osv) - dem kan du filtrere ud med

If rs("TABLE_NAME") <> "MySysInfo2" Then

...osv.

Du kunne også prøve

while not rs.eof

For each fld in rs.fields

response.write fld.name & ": "& fld.value & "<br>" & VbCrLf

Next

rs.movenext
wend

- men som du nok finder ud af, er det lidt for meget af det gode :)

Sagde du ikke at "conn.openschema(4)" ikke virkede på PWS ?

/Moffer

Det var en fejl i min kode :)

Nu virker den i hvert fald fint på PWS på både NT Workstation og Win98.

moffer: jeg sidder og tænker på, hvor points'ene blev af? Den kode jeg leverede virker fint.

Moffer.. Keep Cool *S* (Hey ups.. din billeder sættes op i 2 rækker her..)

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"dinbase.mdb\")
strSQL = \"Select * from dintabel where kategori =\" & Request.QueryString(\"id\")
Set RS = Conn.Execute(strSQL)
RS2 = Conn.Execute(countSQL)
%>
<TABLE>
<TR>
<% tmp = 0
do while not rs.eof %>
<TD><% =\"<a href=http://\" & rs(\"dithttplink\") & \"><img src=\'\" & rs(\"ditfotolink\") & \"\' border=0></a>\" %></TD>

<%
if tmp = 1 then
response.write(\"</TR><TR>\")
end if
tmp = 1 - tmp
rs.movenext
loop
%>
</TR>
</TABLE>

<%
rs.Close
Set rs = Nothing
%>

id overfører du fra en startside så´en her :

<%Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"dinbase.mdb\")
<div align=\"center\">
<center>
<table border=\"0\" width=\"100%\" style=\"font-size: 10 pt\" cellspacing=\"1\">
<tr><td width=\"190\">
<ul>
<li>Response.Write (\"<a href=\'dinandenside.asp?id=1\'>fotoside 1 </a>\"</li>
<li>Response.Write (\"<a href=\'dinandenside.asp?id=2\'>fotoside 2 </a>\"</li>
</ul>
</td>

id=1\' og id=2\' er id´erne som overføres til kaldet på dinandenside.asp (hentes i id i din database.. id eller hvad du nu bruger til at holde orden i links´ne og billederne)

Håber du kan bruge det til noget.

by the way.. 1.del af koden er = dinandenside.asp

ned til lige før \"id overfører du fra...\" så begynder startside-koden (f.eks. startside.asp)