Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 892 fois - Téléchargée 48 fois
Public db As Database Public Function cnxTable(ByVal strTable As String) As Boolean OBase (CheminFichier$) Dim strSQL As String strSQL = "Select * from " & strTable On Error GoTo errors db.Execute (strSQL) errors: If Err = 3078 Then cnxTable = False Else cnxTable = True End If End Function '-------------------------- Public Function CheminFichier$() Dim chemin$ chemin$ = App.Path If Right$(chemin$, 1) <> "\" Then chemin$ = chemin + "\" CheminFichier$ = chemin$ & "MaBase.mdb" End Function '-------------------------- 'sub pour ouvrir la base Public Sub OBase(fichier) Set db = OpenDatabase(fichier) End Sub '-------------------------------------------------------prévoir de fermer la base :)
joke and top kodin girls and boys(!)
sweep
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!
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.