Avatar billede ambolt117 Nybegynder
21. marts 2004 - 18:16 Der er 5 kommentarer og
1 løsning

Redigere post - præudfyldt drop-down

Hej (igen) - jeg vil gerne kunne redigere poster i min Db (access2000) vha. en formular hvor de forskellige felter til en given post er præudfyldte, man retter det relevante og kører med SUBMIT en update. Og voila - posten er rettet&opdateret i databasen. Jeg opbevarer nogle kategorier i en seperat tabel som så knyttes til den enkelte post via en drop-down box.

Når jeg skal rette en post via en præudfyldtformular kan jeg godt få drop-downboxen frem med de forskellige kategorier (bog, plakat, foto etc), men hvordan får jeg fokus på / valgt den værdi der hører til posten sådan at man ikke behøver at se på det felt hvis det er et andet man vil rette???

KODE:

Response.Write ("<p>Kategorien er &nbsp; &nbsp; &nbsp;<select type='text'")

dim kConn, kstrSql, krs, kstrKategori
Set kConn = Server.CreateObject("ADODB.Connection")
kconn.connectionstring="Provider=microsoft.Jet.OLEDB.4.0;"
kconn.connectionstring=kconn.connectionstring & "Data Source=C:\Inetpub\databaser\russisk3.mdb;"
kConn.Open

'her hentes tabellens indhold
kstrSQL = "Select * From T_kategori order by Kategori, Kategori"
Set krs = kConn.Execute(kstrSQL)


Do while (Not krs.EOF)

'Kategori tilknyttes
kstrKategori = krs("Kategori")

response.write "<option value='" & kstrKategori & "'>" & kstrKategori & "</option>"
 
krs.MoveNext
Loop

kConn.Close
Set kConn = Nothing
Response.Write ("</select")




:-? Christian
Avatar billede ellebaek Nybegynder
21. marts 2004 - 18:51 #1
<%
Response.Write ("<p>Kategorien er &nbsp; &nbsp; &nbsp;<select type='text'")

dim kConn, kstrSql, krs, kstrKategori
Set kConn = Server.CreateObject("ADODB.Connection")
kconn.connectionstring="Provider=microsoft.Jet.OLEDB.4.0;"
kconn.connectionstring=kconn.connectionstring & "Data Source=C:\Inetpub\databaser\russisk3.mdb;"
kConn.Open

'her hentes tabellens indhold
kstrSQL = "Select * From T_kategori order by Kategori, Kategori"
Set krs = kConn.Execute(kstrSQL)


Do while (Not krs.EOF)

'Kategori tilknyttes
kstrKategori = krs("Kategori")

response.write "<option value='" & kstrKategori & "'"

if kstrKategori = '**der hvor du har fået din kategori** then
response.write " selected"
end if

response.write ">" & kstrKategori & "</option>"
 
krs.MoveNext
Loop

kConn.Close
Set kConn = Nothing
Response.Write ("</select")
%>

Mener du at du laver en drop down. når man vælger et element i den, skrifter siden... Efter siden skifter vil du så have valgt den værdi i din dropdown.
Så skal du rette i denne linie:

if kstrKategori = '**der hvor du har fået din kategori** then
og så skal du udskrifte alt det her: '**der hvor du har fået din kategori** med fx. request.querystring("kategori") etc.
Avatar billede ambolt117 Nybegynder
21. marts 2004 - 19:21 #2
Formularens felter er på forhånd udfyldte med data fra én post i en DB. Ét felt udfyldes vha en dropdown - kategorier. Disse optræder alfabetisk - bog, foto, grafik, plakat etc. Hvordan får jeg fokus til at stå på plakat allerede ved indlæsningaf siden - når posten ellers er en plakat? Hvis jeg ikke gør noget står den jo altid ved første valgmulighed - bog hér i dette tilfælde.

Jeg har kategorien i mit recordsæt rs("Kategori")

Dette nærmer sig i virkeligheden et HTML-spørgsmål....

:-) Chr
Avatar billede ellebaek Nybegynder
21. marts 2004 - 19:41 #3
jeg vil tro at det her virker...


<%
Response.Write ("<p>Kategorien er &nbsp; &nbsp; &nbsp;<select type='text'")

dim kConn, kstrSql, krs, kstrKategori
Set kConn = Server.CreateObject("ADODB.Connection")
kconn.connectionstring="Provider=microsoft.Jet.OLEDB.4.0;"
kconn.connectionstring=kconn.connectionstring & "Data Source=C:\Inetpub\databaser\russisk3.mdb;"
kConn.Open

'her hentes tabellens indhold
kstrSQL = "Select * From T_kategori order by Kategori, Kategori"
Set krs = kConn.Execute(kstrSQL)


Do while (Not krs.EOF)

'Kategori tilknyttes
kstrKategori = krs("Kategori")

response.write "<option value='" & kstrKategori & "'"

if kstrKategori = rs("Kategori") then
response.write " selected"
end if

response.write ">" & kstrKategori & "</option>"
 
krs.MoveNext
Loop

kConn.Close
Set kConn = Nothing
Response.Write ("</select")
%>
Avatar billede ambolt117 Nybegynder
21. marts 2004 - 20:19 #4
Tak til Ellebaek - du har ført mig på sporet..

Dette virker:

Do while (Not krs.EOF)
'Kategori tilknyttes
kstrKategori = krs("Kategori")
response.write ("<option value='" & kstrKategori )
if kstrKategori = rs("Kategori") then
response.write (" selected " & "'>")
end if


response.Write (kstrKategori & "</option>")
 
  krs.MoveNext
Loop

Drop lige et svar.

:-) Christian
Avatar billede ambolt117 Nybegynder
21. marts 2004 - 20:30 #5
Nå ja - sådan her:

Do while (Not krs.EOF)
'Kategori tilknyttes
kstrKategori = krs("Kategori")
response.write ("<option value='" & kstrKategori & "'" )
if kstrKategori = rs("Kategori") then
response.write (" selected")
end if
response.Write (">" & kstrKategori & "</option>")
krs.MoveNext
Loop
Avatar billede ellebaek Nybegynder
22. marts 2004 - 21:38 #6
Der er et svar her ;-)
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