VÉRIFIER L'EXISTENCE D'UNE TABLE

Commentaire de LoupBlanc le 06/02/2002 11:00:33

Ton exemple est bien mais il ne fonctionne que ci la base se trouve avec l'executable.
Voici un exemple qui fonctionne avec SQL Serveur et oracle

dans cet exemple,
       - NomConnec représente la connection à la base
       "BRETENUE" représente la table à tester

If Not test_table_gene(NomConnec, "BRETENUE") Then
     La table n'existe pas
endif


Function test_table_gene(NomConnec As String, NomTable As String) As Boolean
    test_table_gene = False
    If NomConnec = "Oracle" Then
        If Test_Exist_Table_oracle(NomTable) = True Then
            test_table_gene = True
        End If
    Else
        If Test_Exist_Table_Sql(NomTable) = True Then
            test_table_gene = True
        End If
    End If
End Function


Function Test_Exist_Table_Sql(Table As String) As Boolean
    Dim rstTemp As ADODB.Recordset
    Dim SqlExist As String

    Test_Exist_Table_Sql = True
    Set rstTemp = New ADODB.Recordset
    
    SqlExist = "select name from sysobjects where id = object_id('dbo." & Table & "')"

    rstTemp.Open SqlExist, cnn, , , adCmdText

    If rstTemp.BOF = True And rstTemp.EOF = True Then
        Test_Exist_Table_Sql = False
    Else
        Test_Exist_Table_Sql = True
    End If
    rstTemp.Close
End Function

Function Test_Exist_Table_oracle(Table As String) As Boolean
    Dim rstTemp As ADODB.Recordset
    Dim SqlExist As String

    Test_Exist_Table_oracle = True
    Set rstTemp = New ADODB.Recordset
    
    SqlExist = "select * from user_tables where table_name = '" & UCase(Table) & "'"
    
    rstTemp.Open SqlExist, cnn, , , adCmdText

    If rstTemp.BOF = True And rstTemp.EOF = True Then
        Test_Exist_Table_oracle = False
    Else
        Test_Exist_Table_oracle = True
    End If
    rstTemp.Close
    Set rstTemp = Nothing
End Function

Commentaire de 1gazelle le 23/03/2005 16:44:59

tu viens de me sauver la vie avec ta fontion, VicoLaChips2!!
trop bien!
parce que access c'est peut etre que pour apprendre mais c'est encore ultra utilisé dans les entreprises et pas les plus petites, loin de là!
encore merci!