Connexion a access

Messages postés
3
Date d'inscription
mardi 25 février 2003
Statut
Membre
Dernière intervention
4 mars 2006
- - Dernière réponse : skisek22
Messages postés
2
Date d'inscription
dimanche 20 janvier 2008
Statut
Membre
Dernière intervention
19 octobre 2008
- 19 oct. 2008 à 22:52
comment me connecter a une base access
avec set db=opendatabase("chemin") mais voila le base a un mot de passe comme me connecter avec ce mode
merci
Afficher la suite 

3 réponses

Messages postés
3
Date d'inscription
mardi 25 février 2003
Statut
Membre
Dernière intervention
4 mars 2006
0
Merci
-------------------------------
Réponse au message :
-------------------------------

> comment me connecter a une base access
> avec set db=opendatabase("chemin") mais voila le base a un mot de passe comme me connecter avec ce mode
> merci
Messages postés
33
Date d'inscription
jeudi 13 février 2003
Statut
Membre
Dernière intervention
4 mars 2003
0
Merci
Voi si tu peu pas passer autre chose en paramétre, du genre
db=opendatabase("chemin",username, motdepasse)

David :shy)
Messages postés
2
Date d'inscription
dimanche 20 janvier 2008
Statut
Membre
Dernière intervention
19 octobre 2008
0
Merci
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