Hente bestemt felt i Access

strSQL = "SELECT * FROM priser WHERE [id] = 3"
Set rs = Conn.Execute(strSQL)

response.write rs("pris")



//Bjarke

<%
Dim Connect, connString
Set Connect = Server.CreateObject("ADODB.Connection")
connString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
Connect.Open connString
%>

<%
Dim rs, Query
Query = "SELECT * FROM priser WHERE Id=3"
Set rs = connect.Execute(Query)
%>
<%="pris">

<%
Connect.Close
Set Connect = Nothing
%>

undskyld ... <%="pris"%>

'Connect DB
Set DataConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = dsn & "DBQ=" & server.mappath("db.mdb")
DataConn.Open DSN

Conn = Server.CreateObject("ADODB.RecordSet")

'SQL streng
SQL = "SELECT pris FROM priser WHERE id = 3"
Conn.open(SQL)

'udskrive
Response.Write RS("pris")

ahh..
Conn linjen skal lige skiftes ud med
Conn.Open skal lige skiftes ud med
Set RS = Conn.Open(SQL)

Er det ikke muligt at gøre så jeg kan skrive Response.Write RS("pris,3") eller noget i den stil. For jeg skal bruge en del forskellige tal på siden.

???

nej, det mener jeg ikke du kan. Du bliver nødt til at oprette en sql-sætning for hver [id] værdi, eller også kan du lave en loop...

Function MakeSQL (ID)
  strSQL = "SELECT * FROM priser WHERE [id] = & ID
  Set rs = Conn.Execute(strSQL)
  MakeSQL = rs("pris")
End Function


Skriv navn hvor ID er lig 3:

Response.Write MakeSQL(3)

Eller 5:

Response.Write MakeSQL(5)

Osv...

Der mangler lige en " efter [id] =

oasen >

Ser ud til det er det jeg skal bruge.

men hvordan kombinerer jeg det med:

  <%
Set rstemp = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM hold WHERE Kategori=1 ORDER by dato "
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/db.mdb")
rstemp.Open strSQL, strDSN, 1
%>

Du sætter bare din SQL-sætning ind i stedet for den, jeg havde skrevet.