[VB6] openen microsoft data base

[djexplo]

Dim dbMyDB As Database
Dim rsMyRS As Recordset
Private Sub Form_Load()
datumbox.Text = Date$
Set dbMyDB = OpenDatabase("d:\nwind.mdb")
Set rsMyRS = dbMyDB.OpenRecordset("Adreslijst", dbOpenDynaset)
End Sub

Waar voor geeft het programma bij regel set rsMyRS = dbMYDB.openrecor... een error (errorcode 13)
Ik wil met deze code een adressen bestand openen, en daar in de adreslijst editten.
Ik heb zelf alle verschillende naar veschillende examples gekeken maar die werken alle maal niet allemaal code 13 behalve 1 groot programma gaf die error niet bij de database
Moet ik soms geen standaar Exe aanmaken, of een of andere classe importeren ?

[Korben]

Misschien is het handig als je eerst ff vertelt wat een 'error 13' is. Een error 13 van VB? Van ODBC? Van de Access-engine?

En als ik zo kijk naar je code, zit de fout in de laatste regel code:

code:

Set rsMyRS = dbMyDB.OpenRecordset("Adreslijst", dbOpenDynaset)

Nmm (maar het is een tijdje geleden dat ik met databases heb geproggeld) moet het zonder Set zijn:

code:

rsMyRS = dbMyDB.OpenRecordset("Adreslijst", dbOpenDynaset)

Maar zoals ik al zei, dat kan ook fout zijn.

[Greyfox]

Dit lijkt wel DAO!
Waarom gebruik je geen ADO

[Phenomenon]

Probeer eens:

code:

Set rsMyRS = dbMyDB.OpenRecordset("SELECT * FROM Adreslijst", dbOpenDynaset)

[Korben]

Op donderdag 15 november 2001 09:00 schreef Peter1978Thuis het volgende:
Probeer eens:

code:

Set rsMyRS = dbMyDB.OpenRecordset("SELECT * FROM Adreslijst", dbOpenDynaset)

Hmm als Set er dus wel bij moet, zou ik zeggen probeer dit:

code:

Set rsMyRS = dbMyDB.OpenRecordset("Adreslijst", dbOpenTable)

Of gewoon dit:

code:

Set rsMyRS = dbMyDB.OpenRecordset("Adreslijst")

As seen on MSDN...

[djexplo]

Op donderdag 15 november 2001 09:08 schreef Xenophage het volgende:

[..]

Hmm als Set er dus wel bij moet, zou ik zeggen probeer dit:

code:

Set rsMyRS = dbMyDB.OpenRecordset("Adreslijst", dbOpenTable)

Of gewoon dit:

code:

Set rsMyRS = dbMyDB.OpenRecordset("Adreslijst")

As seen on MSDN...

Het probleem is dat ik deze oplossing ook al heb geprobeerd, kan het zijn dat ik een patch moet instaleren aangezien ik dat nog nooit heb gedaan

[Korben]

Op donderdag 15 november 2001 13:22 schreef djexplo het volgende:

[..]

Het probleem is dat ik deze oplossing ook al heb geprobeerd, kan het zijn dat ik een patch moet instaleren aangezien ik dat nog nooit heb gedaan

Als de fout een compile-time fout is (dwz dat is een fout die voor het uitvoeren van de code voorkomt) dan heb je misschien je references niet goed staan (zorg dat MS-DAO aan staat). Anders is er iets erg vaags aan de hand.

Btw je kunt zien of een fout een compile-time fout is als de fout ook optreed als je je proggel compileert.