Connexion a access
mrsympa
Messages postés
3
Date d'inscription
mardi 25 février 2003
Statut
Membre
Dernière intervention
4 mars 2006
-
25 févr. 2003 à 13:51
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
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
3 réponses
mrsympa
Messages postés
3
Date d'inscription
mardi 25 février 2003
Statut
Membre
Dernière intervention
4 mars 2006
25 févr. 2003 à 13:51
25 févr. 2003 à 13:51
-------------------------------
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
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
DadaPik
Messages postés
33
Date d'inscription
jeudi 13 février 2003
Statut
Membre
Dernière intervention
4 mars 2003
25 févr. 2003 à 14:50
25 févr. 2003 à 14:50
Voi si tu peu pas passer autre chose en paramétre, du genre
db=opendatabase("chemin",username, motdepasse)
David :shy)
db=opendatabase("chemin",username, motdepasse)
David :shy)
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
19 oct. 2008 à 22:52
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
' 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
