Avatar billede dominodevil Nybegynder
16. september 2004 - 15:35 Der er 6 kommentarer og
1 løsning

Hvordan indsætter jeg data i ComboBox

Hej

Hvordan indsætter jeg data fra en Access database ind i en ComboBox???

Det her virker ikke:

Dim ADO_Connection
Dim rsPicture
Dim SQL_STRING

set ADO_Connection = server.Createobject("ADODB.Connection")
ADO_Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../../cgi-data/db.mdb")

set rsPicture= server.Createobject("ADODB.Recordset")
SQL_STRING= "SELECT * FROM images"
rsPicture.open SQL_String, ADO_Connection

do until rsPicture.EOF
    url.addnew rsPicture("name")
    rsPicture.movenext
loop
Avatar billede dominodevil Nybegynder
16. september 2004 - 15:37 #1
Det skal jo lige siges at det er dropdownboxen der hedder "url"!
Avatar billede locturian Nybegynder
16. september 2004 - 15:41 #2
Det er ikke Visual Basic jo... Det gøres i forbindelse med en selectbox (html)
<select name"url">
<%
dit loop
%>
<option value="<% en værdi %>">et navn</option>
<%
slut loop
%>
</select>
Avatar billede dominodevil Nybegynder
16. september 2004 - 15:42 #3
Nej det ved jeg godt... men jeg kunne jo lige prøve! :)
Avatar billede Slettet bruger
16. september 2004 - 15:45 #4
Jeg ville prøve med denne...

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../../../cgi-data/db.mdb")
SQL = "SELECT * FROM images"
Set rsPicture = Conn.Execute(SQL)
Response.Write "<select NAME='url' STYLE='WIDTH:200px;'>"
Do While Not rsPicture.EOF
Response.Write "<option value='" & rsPicture("images") & "'>" & rsPicture("images") & "</option>"
rsPicture.MoveNext
Loop
Response.Write "</select>"
%>
Avatar billede dominodevil Nybegynder
16. september 2004 - 15:46 #5
Noget i stil med dette:

<%
Dim ADO_Connection
Dim rsPicture
Dim SQL_STRING

set ADO_Connection = server.Createobject("ADODB.Connection")
ADO_Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../../cgi-data/db.mdb")

set rsPicture= server.Createobject("ADODB.Recordset")
SQL_STRING= "SELECT * FROM images"
rsPicture.open SQL_String, ADO_Connection
%>
<select name"url">
<%
Do Until rsPicture.EOF
%>
<option value="<% rsPictures("name") %>">et navn</option>
<%
loop
%>
</select>
Avatar billede dominodevil Nybegynder
16. september 2004 - 15:48 #6
Møj.. nu kan min side ikke vises!
Avatar billede dominodevil Nybegynder
16. september 2004 - 15:52 #7
Ups.. kom til at sætte den forkert ind.... :)

Takker!
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