V AutoLispu (Map 3D 2005) cyklicky vytvarim a oteviram adodb.recordset (Microsoft.Jet.OLEDB.4.0). Po urcitem poctu iteraci (cca 180) program vzdy spadne a nahlasi: Automation Error. Nelze otevrit zadnou dalsi tabulku.

Recordset delam jednoduse takto: 

  (setq rs nil)
  (setq rs (vlax-create-object "ADODB.Recordset"))

  (vlax-invoke-method
    rs
    "OPEN"
    sql
    cn
    adok-adOpenStatic
    adok-adLockReadOnly
    adok-adCmdUnknown
  )

Podobne cykly pouzivam casto uz radu let a nikdy jsem se s touto chybou nesetkal. Nevite nekdo co to znamena? V Mapu 5 (2002) mi to urcite nedelalo.

Diky za kazdou radu.

Pane Michle, chyby ado samozřejmě odchytávám:

Viz např:

(setq errobj (vl-catch-all-apply
   'vlax-invoke-method
   (list rsSloje
         "Open"
         sql
         cnEUZ
         adok-adOpenStatic
         adok-adLockReadOnly
         adok-adCmdUnknown
   )
        )
  )

  (if (vl-catch-all-error-p errobj)
    (alert (vl-catch-all-error-message errobj))
  )

Není mi to ale nic platné, protože v tom alertu se nedovím nic nového: prostě Automation Error: Nelze otevřít žádnou další tabulku.

Otázku efektivnosti vytváření recordsetu při každém volání funkce ponechám stranou. To bych nakonec mohl mít v celé aplikaci jeden globální recordset a ten bych jen otevíral a zavíral.

Problém asi souvisí s tím, jak AutoLisp 2005 object recordset vytváří a ruší. Je opravdu (setq rs nil) to samé jako ve VB set rs = nothing? Vypadá to totiž, jako by v určitý okamžik byl vyčerpán nějaký potřebný paměťový prostor, protože AutoLisp po sobě objekty recordset neruší.

(setq rs nil) zruší ukazatel na objekt, ale nikoliv objekt samotný (jeho paměť); pro rušení objektu slouží (a vždy sloužila) VLisp funkce vlax-release-object

popis chyby závisí na tom co vrátí daný objekt, měl by být dostupný přes catch-all-error-message