Hoi Jan,
Even eerst algemene opmerking. Plaats programma-code gescheiden van normale tekst zodat de code niet verminkt wordt door html-code die in de berichten-editor gebruikt wordt.
Dat doe je door op de knop
boven de berichteneditor te klikken en de programma-code ertussen te plaatsen.
Je krijgt dan bijvoorbeeld:
[ code]Dit is programma-code.[ /code]
error 3704...
Ja, dat klopt. De errortekst lijkt me vrij duidelijk: "The operation requested by the application is not allowed if the object is closed.
Even door de code stappen en je komt bij
cn.Connection.Open uit.
Dat kan daar nog niet want
cn.ConnectionString of
cn.Provider is niet ingesteld.
Bekijk dit eens en pas de veldnamen aan die jij gebruikt.
Dim cn, rs
Dim DBfile As String
DBfile = App.Path & "\DATABASE\Portef1.mdb"
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & DBfile & ";Mode=Read|Write"
'maak een recordset
Set rs = cn.Execute("Select * From country")
' doorloop de recordset en toon alle elementen van de kolom 'name'
Do While Not rs.EOF
MsgBox rs("name")
rs.MoveNext
Loop
'sluit de recordset en database
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
groeten, Peter