Toon posts:

vb access database weergeven in listbox

Pagina: 1
Acties:
  • 279 views sinds 30-01-2008
  • Reageer

Verwijderd

Topicstarter
Hoe kan ik een access database weergeven in een listbox?

Verwijderd

Topicstarter
Wie

Verwijderd

Topicstarter
niemand?

Verwijderd

Nu niet meer nee (dankzij je eigen gezeik) :r

  • Crazy D
  • Registratie: Augustus 2000
  • Laatst online: 13:40

Crazy D

I think we should take a look.

1. doe niet zo ongeduldig
2. wees specifieker. Wat wil je precies laten zien. Een "access database laten zien" is nogal vaag. Open 'm in notepad "en je laat de access database zien". Maar ik neem aan dat je de inhoud van 1 van de tabellen bedoelt?

Rtfm. Zoek een willekeurige beginners database tutorial op en je leert hoe je een database kan benaderen. Volgens mij zit er zelfs een sample bij VB bij...

Exact expert nodig?


Verwijderd

Topicstarter
Op dinsdag 19 juni 2001 20:35 schreef Crazy_D het volgende:
1. doe niet zo ongeduldig
2. wees specifieker. Wat wil je precies laten zien. Een "access database laten zien" is nogal vaag. Open 'm in notepad "en je laat de access database zien". Maar ik neem aan dat je de inhoud van 1 van de tabellen bedoelt?

Rtfm. Zoek een willekeurige beginners database tutorial op en je leert hoe je een database kan benaderen. Volgens mij zit er zelfs een sample bij VB bij...
Sorry
ik heb met het data de database source aangepast
Ik heb hem via listbox gekopelt met datafield en datasource.
En wat moet ik daarna doen?

Verwijderd

"ik heb met het data de database source aangepast"

Lees es terug... haal es diep adem, laat de zuurstof goed tot hersenen door dringen, en stel je vraag nu *NOG* een keer maar nu duidelijk..

Verwijderd

Topicstarter
Op dinsdag 19 juni 2001 20:57 schreef Yarvieh het volgende:
"ik heb met het data de database source aangepast"

Lees es terug... haal es diep adem, laat de zuurstof goed tot hersenen door dringen, en stel je vraag nu *NOG* een keer maar nu duidelijk..
Ik heb uit de toolbar met de data object de source aangepast.
Dus de databasename.
Daarna heb ik de de recordtype op 0-table gezet.
En daarna listbox toegevoegd datasource naar de database.
En datafield naar de veld van de database.
En hoe nu verder?

  • AceRimmer
  • Registratie: Maart 2001
  • Laatst online: 21:24

AceRimmer

What a guy...

Bah. Data object zuigt.

doe gewoon lekker:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
dim dbs as database
dim rs as recordset
dbs.opendatabase("c:\database.mdb")

set rs = dbs.execute ("SELECT * FROM tblTabel")

do while not rs.EOF
    listbox.additem rs("veldnaam")
    rs.movenext
loop

rs.close
set rs = nothing
dbs.close
set dbs = nothing

Zo.

Smoke me a kipper, I'll be back for breakfast


  • Crazy D
  • Registratie: Augustus 2000
  • Laatst online: 13:40

Crazy D

I think we should take a look.

Op dinsdag 19 juni 2001 22:06 schreef AceRimmer het volgende:
Bah. Data object zuigt.
Dat ben ik volledig met je eens.

En dan ook nog ewven de ADO oplossing, als we hier toch code aan het plaatsen zijn...
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim con As New ADODB.Connection
Dim m_Rs = New ADODB.Recordset

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb;Persist Security Info=False;"

m_Rs.Open "SELECT * FROM MyTabel", con
Do While Not m_Rs.EOF
    List1.AddItem rs.Collect("MijnVeld")
    m_Rs.MoveNext
Loop

m_Rs.Close
con.Close
Set m_Rs = Nothing
Set con = Nothing

Connectieobject heb je er trouwens normaal gesproken maar eentje van voor je hele project...

Exact expert nodig?


  • saintinel
  • Registratie: Juni 2001
  • Laatst online: 11-04-2025
Op woensdag 20 juni 2001 08:30 schreef Crazy_D het volgende:

[..]

Dat ben ik volledig met je eens.

En dan ook nog ewven de ADO oplossing, als we hier toch code aan het plaatsen zijn...
[code]Dim con As New ADODB.Connection
Dim m_Rs = New ADODB.Recordset

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb;Persist Security
..
Connectieobject heb je er trouwens normaal gesproken maar eentje van voor je hele project...
:? weet jij misschien ook wat de 'voor en tegens' zijn ten opzichte van:

"Driver=Microsoft Access Driver (*.mdb);DBQ=" & db

wat is eigenlijk een betere connection-string?

  • Crazy D
  • Registratie: Augustus 2000
  • Laatst online: 13:40

Crazy D

I think we should take a look.

VOlgens mij maak je op deze manier: "Driver=Microsoft Access Driver (*.mdb);DBQ=" & db gebruik van ODBC. Weet ik eigenlijk niet zeker, ik heb het geleerd met de connectiestring zoals ik die gebruik, en tjah dan wordt het een gewoonte :)

Exact expert nodig?


  • saintinel
  • Registratie: Juni 2001
  • Laatst online: 11-04-2025
Op woensdag 20 juni 2001 23:08 schreef Crazy_D het volgende:
VOlgens mij maak je op deze manier: "Driver=Microsoft Access Driver (*.mdb);DBQ=" & db gebruik van ODBC. Weet ik eigenlijk niet zeker, ik heb het geleerd met de connectiestring zoals ik die gebruik, en tjah dan wordt het een gewoonte :)
Bij mij was het er ook zo ingeslopen..
Maar na enig onderzoek heeft jouw code toch de voorkeur qua mogelijkheden.(gebruikersaantallen, is jonger enz..)
toch: thanx!

Verwijderd

ADO zuigt, zo slooooom als de .....

  • AceRimmer
  • Registratie: Maart 2001
  • Laatst online: 21:24

AceRimmer

What a guy...

Op donderdag 21 juni 2001 21:42 schreef KixAss456 het volgende:
ADO zuigt, zo slooooom als de .....
mwoh, dat valt toch wel mee ?
Heb jij een snellere manier ?

Smoke me a kipper, I'll be back for breakfast


Verwijderd

hetgene wat jij zei, een DAO:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim dbs as database
dim rs as recordset
dbs.opendatabase("c:\database.mdb")
set rs = dbs.execute ("SELECT * FROM tblTabel")

do while not rs.EOF
    listbox.additem rs("veldnaam")
    rs.movenext
loop

rs.close
set rs = nothing
dbs.close
set dbs = nothing
Pagina: 1