[VB6]excel macro naar access DB werkt niet

[LordMithril]

het probleem is als volgt.
we hebben een macro in Excel die file exporteerd naar een access database. maar om 1 of andere vage reden werkt het niet, maar hij geeft ook geen errors.

we hebben er messageboxes ingedaan om te checken wat hij wel en niet doet.
de msgboxes op regel 24 en 31 laat hij zien maar de rest slaat hij helemaal over..

ASP:

Function ORD_ExtoDb(ordnum)
' ADODB Constanten

'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

'---- CommandTypeEnum Values ----
Const adCmdUnknown = &H8
Const adCmdText = &H1
Const adCmdTable = &H2
Const adCmdStoredProc = &H4
Const adCmdFile = &H100
Const adCmdTableDirect = &H200
 
MsgBox ("Exto:" & ordnum)
    y = 1
    Do While Range("A" & y) <> ""
        y = y + 1
    Loop
    AantalRegels = CInt(y - 1)
    
MsgBox ("aant:" & AantalRegels)
       
    DSN_CONN_STRING = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN_CONN_STRING = DSN_CONN_STRING & "DBQ=C:\GeleKaartExport\" & Date & "\" & Date & "_ORD_" & ordnum & ".mdb"

    Dim RS
    Set RS = CreateObject("ADODB.Recordset")
    RS.Open "OrderNummer", DSN_CONN_STRING, adOpenKeyset, adLockPessimistic, adCmdTable
    
    RS.CacheSize = 25
 MsgBox ("Exto2:" & ordnum)

x = 2
Do While x <= (AantalRegels + 1)

    RS.AddNew
MsgBox ("Exto3:" & ordnum)

    RS.Fields("InvoerDatum") = Range("B" & x)
    RS.Fields("Opdrachtgever") = Range("C" & x)
    'RS.Fields("Supervisor_HU") = Supervisor_HU
    'RS.Fields("Contactpersoon") = Contactpersoon  

Loop
 MsgBox ("Exto4:" & ordnum)

    RS.Update
    RS.Close
    Set RS = Nothing
    
End Function

[whoami]

Lord_Mithril schreef op 23 september 2002 @ 15:24:
het probleem is als volgt.
we hebben een macro in Excel die file exporteerd naar een access database. maar om 1 of andere vage reden werkt het niet, maar hij geeft ook geen errors.

Glazen bollen maken ze al eeuwen niet meer, en zijn ook niet meer verkrijgbaar. Het zou dus handig zijn mocht je even vermelden wat je precies bedoelt met
'Het werkt niet'.

code knip

Het zou ook interessant zijn mocht je enkel de echte relevante delen van je code hier neer zetten. P&W is geen forum dat je kan beschouwen als een 'pleur-je-code-maar-neer-en-wij-lossen-het-vlug-op' - forum.

[LordMithril]

whoami schreef op 23 september 2002 @ 15:28:

[...]

Glazen bollen maken ze al eeuwen niet meer, en zijn ook niet meer verkrijgbaar. Het zou dus handig zijn mocht je even vermelden wat je precies bedoelt met
'Het werkt niet'.


[...]

Het zou ook interessant zijn mocht je enkel de echte relevante delen van je code hier neer zetten. P&W is geen forum dat je kan beschouwen als een 'pleur-je-code-maar-neer-en-wij-lossen-het-vlug-op' - forum.

wat ik bedoel met het werkt niet?..
nou precies wat er staat eigenlijk
mischien is t iets erg doms wat we over het hoofd zien maar we weten dus niet waarom..

zoals ik al zei hij geeft 2 van de 5 msgboxes.. maar waarom hij die andere niet geeft... god knows.

[edit]
enne relevante stukken code? die staat er al het gaat puur om deze funtie.. de rest werkt .

[Verwijderd]

wat whoami bedoelt is: heb je je probleem al wat nauwkeuriger onder de loep genomen, bv:
- is je connectie string goed ( bestaat die gegenereerde mdb wel?)
- kun je de RecordSet openen (een recordcount uitlezen ofzo)?

Daar hebben we meer aan ...

[KO]

Ik zie dat je 'date' gebruikt. Is dat formaat wel goed? Probeer dat dan eens in een msgbox