/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Access database!
Fra : Anonym


Dato : 02-06-01 14:01

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!

-Morten Pedersen

PS. Det skal være eksempler!



 
 
Erlend Klakegg Bergh~ (02-06-2001)
Kommentar
Fra : Erlend Klakegg Bergh~


Dato : 02-06-01 15:54

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/



Rayman (17-06-2001)
Kommentar
Fra : Rayman


Dato : 17-06-01 10:04

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/
>
>



Erlend Klakegg Bergh~ (17-06-2001)
Kommentar
Fra : Erlend Klakegg Bergh~


Dato : 17-06-01 10:39

Rayman <rayman_dk@email.com> skrev i news:jr_W6.31$SQ3.2509@news.get2net.dk
> 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

Det er jo i utgangspunktet det samme ...

> 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 :)

Hvordan kan du da forklare at jeg har laget et program som åpner databasen
bare en gang, men henter frem informasjon like enkelt som det du har gjort
.... Kjære venn, her er det snakk om å tenkte, ikke noe annet ...

> Den anden version har den fordel at den også virker i ASP scripts...

Det vet jeg, siden jeg hentet det direkte fra gjesteboka på hjemmesiden min
....

> Hvis du vil, kan det også lade sig gøre at linke en combobox direkte til
> databasen uden brug af ADO.

Vi har jo det også ... =)

> mvh. Rayman

--

Vennlig hilsen Erlend
erlendkb@c2i.net
ICQ 42053660
http://www.kleggen.com/





Mikkel Ro Manzano Ch~ (02-06-2001)
Kommentar
Fra : Mikkel Ro Manzano Ch~


Dato : 02-06-01 16:01

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


Læs denne artikel:
http://161.58.186.98/articles/dbtutorial/

Den er super !



Morten Pedersen (03-06-2001)
Kommentar
Fra : Morten Pedersen


Dato : 03-06-01 17:13

Tak for svaret!

Men nu skriver den "object required"
ved linjen med det der Set Info = ""
Hvad skal jeg gøre???
"Anonym" <anonym@anonym.dk> skrev i en meddelelse
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!
>
> -Morten Pedersen
>
> PS. Det skal være eksempler!
>
>



Erlend Klakegg Bergh~ (03-06-2001)
Kommentar
Fra : Erlend Klakegg Bergh~


Dato : 03-06-01 23:48

Morten Pedersen <jpeuro@post.tele.dk> skrev i
news:9fdnkc$86g$1@news.inet.tele.dk
> Tak for svaret!
>
> Men nu skriver den "object required"
> ved linjen med det der Set Info = ""
> Hvad skal jeg gøre???

Jeg tror du kan bare fjerne den ... :)

--

Vennlig hilsen Erlend
erlendkb@c2i.net
ICQ 42053660
http://www.kleggen.com/



Morten Pedersen (04-06-2001)
Kommentar
Fra : Morten Pedersen


Dato : 04-06-01 14:14

Jeg er lidt meget NUBII til det her shit, men jeg skal da indsætte koden
under "Private Sub Form_Load()" ik'?

"Erlend Klakegg Bergheim" <erlendkb@c2i.net> skrev i en meddelelse
news:ScIS6.4949$vu4.514830@news3.oke.nextra.no...
> Morten Pedersen <jpeuro@post.tele.dk> skrev i
> news:9fdnkc$86g$1@news.inet.tele.dk
> > Tak for svaret!
> >
> > Men nu skriver den "object required"
> > ved linjen med det der Set Info = ""
> > Hvad skal jeg gøre???
>
> Jeg tror du kan bare fjerne den ... :)
>
> --
>
> Vennlig hilsen Erlend
> erlendkb@c2i.net
> ICQ 42053660
> http://www.kleggen.com/
>
>



Erlend Klakegg Bergh~ (04-06-2001)
Kommentar
Fra : Erlend Klakegg Bergh~


Dato : 04-06-01 18:26

Morten Pedersen <jpeuro@post.tele.dk> skrev i
news:9fg1h5$m6u$1@news.inet.tele.dk
> Jeg er lidt meget NUBII til det her shit, men jeg skal da indsætte koden
> under "Private Sub Form_Load()" ik'?

Hvis du vil at koden skal kjøre når programmer så gjør du det ... :)

--

Vennlig hilsen Erlend
erlendkb@c2i.net
ICQ 42053660
http://www.kleggen.com/





Morten Pedersen (04-06-2001)
Kommentar
Fra : Morten Pedersen


Dato : 04-06-01 18:56

Er du 380% sikker på at koden virker?? Har du testet den?!


"Erlend Klakegg Bergheim" <erlendkb@c2i.net> skrev i en meddelelse
news:7yPS6.6269$lM3.120617@news1.oke.nextra.no...
> Morten Pedersen <jpeuro@post.tele.dk> skrev i
> news:9fg1h5$m6u$1@news.inet.tele.dk
> > Jeg er lidt meget NUBII til det her shit, men jeg skal da indsætte koden
> > under "Private Sub Form_Load()" ik'?
>
> Hvis du vil at koden skal kjøre når programmer så gjør du det ... :)
>
> --
>
> Vennlig hilsen Erlend
> erlendkb@c2i.net
> ICQ 42053660
> http://www.kleggen.com/
>
>
>
>



Søg
Reklame
Statistik
Spørgsmål : 177560
Tips : 31968
Nyheder : 719565
Indlæg : 6408941
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste