Comment vérifier si une table existe? (fn OpenSchema)

**BornToBe** · 30/03/2012, 16h01

Bonjour à tous,

Il y a un moment, dans mon code, où j'ai besoin de savoir si une table temporaire existe.

Dans un cours de ce même site, j'ai trouvé la fonction suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function TableExiste(cnn As ADODB.Connection, ByVal strTable As String) As Boolean

Dim rstTables As ADODB.Recordset

'création du recordset contenant la structure des tables
Set rstTables = cnn.OpenSchema(adSchemaTables)

'Parcours de la collection des tables
Do While Not rstTables.EOF
    If rstTables.fields("Table_Name").Value = strTable And rstTables.fields("Table_Type").Value <> "VIEW" Then
        TableExiste = True
        Exit Do
    End If
    rstTables.MoveNext
Loop
rstTables.Close

End Function

Elle semble couvrir parfaitement mes besoins.

MAIS

adSchemaTables n'est pas reconnu comme variable.
Si j'ai bien compris, il s'agit du type de query, donc a priori une variable globale système, non?
Faut-il que j'importe une bibliothèque en particulier? Si oui, laquelle?
De même OpenSchema n'apparaît pas dans la doc de Access-97: est-elle réellement reconnue?
Cette solution est-elle valide pour l'application AC-97 (et donc probablement - j'ai du mal à voir où l'information figure - du Visual Basic 5) ?

N'y a t-il pas simplement une fonction système qui lit une table avec retour (si la table n'existe pas -> erreur) ?

Je cherche, je cherche, mais je n'arrive à complier aucune solution que j'implémente...

Merci beaucoup!

**BornToBe** · 30/03/2012, 16h34

Après de nouveaux tests, il semblerait que ce soit effectivement la méthode OpenSchema qui ne soit pas reconnue par le compilateur...

Quelqu'un a t-il une idée d'une méthode qui pourrait la remplacer?

Ou d'une autre manière d'approcher le problème?
Merci!

**argyronet** · 30/03/2012, 16h53

Bonjour,

Access 97 !!!... Euh avec cette fonction, ça devrait passer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Public Function TableExists(ByVal TableName As String) As Boolean
Dim blnTableExists As Boolean
Dim oTDF As Object
 
    On Error GoTo TableNotExist
    Set oTDF = CurrentDb.TableDefs(TableName)
    blnTableExists = True
 
ExitProc:
    Set oTDF = Nothing
    TableExists = blnTableExists
TableNotExist:
    blnTableExists = False
End Function

Argy