Ouverture d'une base ACCESS 97

Signaler
-
Messages postés
2
Date d'inscription
mercredi 3 octobre 2007
Statut
Membre
Dernière intervention
9 février 2008
-
J'ai en fait deux sérieux problèmes. Le premier c'est comment acceder à ma base de données access 97 qui est fermee par un mot de passe à partir de Vb6.
Le deuxieme rechercher l'existance d'une table dans ma base de données.

2 réponses

'Ouvrir BD barrée...
Set DB = DBEngine.OpenDatabase("C:\My Documents\MonFichier.mdb", False, False, ";PWD=MotDePasse;")
  
'Table existe?
Dim TablesIn As TableDefs
Dim strTmp1 As String

Set TablesIn = DB.TableDefs
strTmp1 = TablesIn("Table1").LastUpdated
If (Err.Number > 0) Then
    MsgBox "Table1 existe pas..."
  'Else
End If
Messages postés
2
Date d'inscription
mercredi 3 octobre 2007
Statut
Membre
Dernière intervention
9 février 2008

slt et je veux vraiment prendre et donner quelque chose