Jeg vil anbefale di at benytte de definere objekter, som du finder ved færst
at tilføje en reference til dit projekt (vælg Project/References) og vælg
"Microsoft ActiveX Data Objects 2.5 Library" og "Microsoft ActiveX Data
Objects 2.5 Recordset Library". Du kan nu definere din 'connection' som flg:
Dim dbCon as ADODB.Connection
Set dbCon = New ADODB.Connection
dbCon.ConnnectionString = ".....\data.mdb"
dbCon.Open
Nu er databasen åbnet, og hver gang du skal bruge data, benytter du et
recordset:
Dim dbRec as ADODB.Recordset
Set dbRec=dbCon.Execute("Select * From Customers)
While not dbRec.Eof
Combo1.Additem dbRec.Fields("Name").Value
Wend
set dbRec = nothing
Fordelen ved denne metode er at du ikke arbejder med abstracte objecter, men
at objektet er defineret fra starten. Det giver bedre performance, og så får
du også drop menuerne når du trykker punktum :)
Den anden version har den fordel at den også virker i ASP scripts...
Hvis du vil, kan det også lade sig gøre at linke en combobox direkte til
databasen uden brug af ADO.
mvh. Rayman
"Erlend Klakegg Bergheim" <erlendkb@c2i.net> wrote in message
news:X77S6.4411$lM3.102196@news1.oke.nextra.no...
> Anonym <anonym@anonym.dk> skrev i news:9fao05$2uo$1@news.inet.tele.dk
> > Halløjsa!
> >
> > Jeg kunne godt tænke mig at få et par eksempler på hvordan jeg bruger en
> > access database sammen med en combobox! På forhånd tak!
>
> Dim CO as Object
> Set CO = Server.CreateObject("ADODB.Connection")
>
> CO.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & app.path &
> "\data.mdb"
>
> Set Info = co.Execute("SELECT * FROM Brukere ORDER BY Navn;")
>
> Do While Not Info.EOF
>
> Combo1.AddItem Info("Navn")
>
> Info.MoveNext
>
> Loop
>
> Set Info = ""
> CO.Close
>
> Jeg hentet det fra kilden til den kommende hjemmesiden min og gjorde den
om
> til å bruke en ComboBox ...
>
> --
>
> Vennlig hilsen Erlend
> erlendkb@c2i.net
> ICQ 42053660
>
http://www.kleggen.com/
>
>