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
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
16. september 2004 - 15:37
#1
Det skal jo lige siges at det er dropdownboxen der hedder "url"!
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>
16. september 2004 - 15:42
#3
Nej det ved jeg godt... men jeg kunne jo lige prøve! :)
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>" %>
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>
16. september 2004 - 15:48
#6
Møj.. nu kan min side ikke vises!
16. september 2004 - 15:52
#7
Ups.. kom til at sætte den forkert ind.... :) Takker!
Kurser inden for grundlæggende programmering