Variable non déclarée avant d'être utilisée avec DAO

Question

J'utilise DAO (on m'a demandé de ne pas utiliser ADO.NET) pour mettre à jour une base de données Access. Je suis actuellement jusqu'à présent, cependant, VB2008 me dit que la variable "daoengine" n'est pas déclarée avant d'être utilisée. Qu'est-ce que je fais de mal dans le code suivant?

Function update_db() 
    Dim daoengine As DAO.DBEngine 
    Dim dbs As DAO.Database 
    Dim rst As DAO.Recordset 
    dbs = daoengine.OpenDatabase("Project.mdb") 
    rst = dbs.OpenRecordset("Log", dao.RecordsetTypeEnum.dbOpenDynaset) 

End Function 

Answer 1

Quand vous dites

Dim daoengine As DAO.DBEngine 

vous êtes juste créer une variable, daoengine, mais il n » t pointer vers quoi que ce soit. Vous devez le faire plus tard:

Set daoengine = New DAO.DBEngine 

Vous pouvez également taper Dim daoengine As New DAO.DBEngine, mais il est préférable de le faire dans les deux lignes ci-dessus. Si vous mettez le New dans la ligne Dim, vous créez ce que l'on appelle une variable "auto-instanciation" qui peut revenir à la vie par magie après avoir pensé que vous l'aviez éliminé.

Pour plus de détails, voir la Ne pas utiliser des variables d'objet Auto-instanciation ici: Declaring Variables (in VBA)

Answer 2

Vous devriez avoir

Dim daoengine As New DAO.DBEngine 

au lieu de

Dim daoengine As DAO.DBEngine