Discussion :

[simo22]

bonjour
je suis confronté a un problème, je viens de développer une application avec VB.Net, et les base Access, et je veux creer une nouvelle table " maTable" et je veux verifier avant de faire ma requette un teste pour savoir si la table existe

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
 Private Sub ExecutionCommande(strsql As String)
 
        'Déclarer la connexion
        Dim strConn As String
 
        Dim ObjetConnection As OleDbConnection
 
 
        ' Déclaration l'Objet Commande
 
        Dim ObjetCommand As OleDbCommand
 
        strConn = "Provider = microsoft.jet.oledb.4.0;" & "Data Source= maBase.mdb;"
 
        ObjetConnection = New OleDbConnection
 
        'Donner à la propriété ConnectionString les paramètres de connexion
 
        ObjetConnection.ConnectionString = strConn 
 
        'Ouvrir la connexion
        ObjetConnection.Open()
        'Instancier un objet Commande
 
        ObjetCommand = New OleDbCommand
 
 
 
 
        'Lier Commande et Connexion
 
        ObjetCommand.Connection = ObjetConnection
 
        'Indiquer le type de commande
 
        ObjetCommand.CommandType = CommandType.Text
 
        'Donner le texte de la commande SQL
 
        ObjetCommand.CommandText = strsql ' ma requette de creation
 
              'on exécute la commande
 
        ObjetCommand.ExecuteNonQuery()
 
        'Fermer la connexion
 
        ObjetConnection.Close()
 
    End Sub

pouvez vous m’aider svp

[Ric500]

Salut!

Essaie:

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
FunctionExisteTable(NomTableATester As String) As Boolean
    Dim tdfloop As TableDef
    Dim mabd As Database
    Dim x As Integer
 
    Set mabd = CurrentDb()
 
    With mabd
        For Each tdfloop In .TableDefs
                If tdfloop.Name = NomTableATester Then
                    ExisteTable=True
                End If
        Next tdfloop
    End With
    Set mabd = Nothing
End Function

[simo22]

merci Ric500 de ton aidée, je sollicité encor ton aidée pour savoir comment je peux intégrer ton code dans mon code

[Ric500]

Heuuu... Rien de sexuel, j'espère !

Blague à part, peux-tu être plus explicite?

[Ric500]

La fonction que je t'ai fournie permet lorsqu'on l'interroge de savoir si une table passée en paramètre existe dans la collection des tables de la BD.

Si j'ai bien compris tu veux lancer un SQL si une table donnée n'existe pas. En pseudo code çà donne:

Code :

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

1
2
3
4
5
If ExisteTable (MaTable)=False Then
   TonCode
   Else
   Exit Sub (ou suite)
End If

PS: Petit conseil, insère la fonction ExisteTable dans un module (pas dans le Formulaire) comme çà tu pourras l'utiliser dans ton application.

[simo22]

nn t'inquitte pas rien de Sexuel ...
j'ai dejas un module .vb dans le quelle je faite ma connexion a la base et j’exécute ma requette ( pour l'instant ma requette selecte)



je n'arrive pas adapter ton code pour l’intégrer dans ma classe, a quoi peuvent correspondre les code ci-dessous

Code :

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

1
2
3
4
5
6
 
Dim tdfloop As TableDef
    Dim mabd As Database
    Dim x As Integer
 
    Set mabd = CurrentDb()

je suis débutant dans le VB.net, j'ai du mal a comprends ce qui peux être logique, j'ai déjà trouvé dans des Forum le code "CurrentDb()" me je ne c'est pas comment l'utilise et a quoi peux servir

désolé pour toutes mes questions

PI : le code dans le module est trouve sur le net et j'ai adapte pour pouvoir l’intégrer dans mon code