Ouverture d'une base ACCESS 97

AnsPaulDo - 8 mai 2001 à 03:30
cs_souad22 Messages postés 2 Date d'inscription mercredi 3 octobre 2007 Statut Membre Dernière intervention 9 février 2008 - 2 juin 2008 à 12:06
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
0
cs_souad22 Messages postés 2 Date d'inscription mercredi 3 octobre 2007 Statut Membre Dernière intervention 9 février 2008
2 juin 2008 à 12:06
slt et je veux vraiment prendre et donner quelque chose
0
Rejoignez-nous