Set db = OpenDatabase(App.Path & "\base.mdb") et erreur active X

Question

Salut

jai un form_load et dedans jai ca 
Set db = OpenDatabase(App.Path & "\ping.mdb")

seulement quand je fais F5 jai cette erreur

"Le composant Active X ne peut créer l'objet"

ca vient dou ?

cs_frop01 · Answer

Est ce que tu as ajouter la référence Microsoft DAO 3.6 Object library dans le menu Projet / Référence ??

Aussi la déclaration du variable DB

Dim DB as database.

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:) 

Membre du club CodeS-SourceS

foliop · Answer

jai que le Microsoft DAO 3.51 Object library

cs_frop01 · Answer

tu utilises quel version de access ??

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:) 

Membre du club CodeS-SourceS

foliop · Answer

en fait jai fait parcourir et jai trouvé le 6

ca remarche :) merci de ton aide

skisek22 · Answer

Function AddTable() As Boolean
    ' Declare object variables and constant.
    Dim dbs As Database, tdf As TableDef, fld As Field
    Const conPath As String = _
        "C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"

    On Error GoTo Err_AddTable
    ' Assign current database to database variable.
    Set dbs = DAO.DBEngine.Workspaces(0).OpenDatabase(conPath)
    ' Create new table and field, and assign to table and field variables.
    Set tdf = dbs.CreateTableDef("ArchivedInvoices")
    Set fld = tdf.CreateField("OrderID", dbLong)

    ' Add field to table's Fields collection.
    tdf.Fields.Append fld
    ' Add table to database's TableDefs collection.
    dbs.TableDefs.Append tdf
    dbs.Close
    AddTable = True

Exit_AddTable:
    Exit Function

Err_AddTable:
    MsgBox "Error " & Err & ": " & Err.Description
    AddTable = False
    Resume Exit_AddTable
End Function

Set db = OpenDatabase(App.Path & "\base.mdb") et erreur active X

5 réponses

Discussions similaires