Discussion :

[guigui69]

Bonjour,

je fait suite à mon autre topic:
http://www.developpez.net/forums/d16...s/#post8757502

Dans mon projet je vais devoir à un moment exécuter plusieurs requête SQL (6 requêtes * le nombre de case cocher dans la chekbox)


Voici un exemple de code que j'utilise pour me connecter à SQL et executer une requete

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
52
53
54
55
56
 
   Dim nom_sql_serveur = Nom_Serveur_SQL.Text
        Dim Connexion As SqlConnection
 
        If (Type_authentification_SQL.SelectedItem = "Authentification SQL Serveur") Then
            ' MsgBox(nom_sql_serveur)
 
            Dim user = Nom_utilisateur_SQL.Text
            Dim mdp = mdp_utilisateur_SQL.Text
            Connexion = New SqlConnection("Data Source=" & nom_sql_serveur & ";User Id=" & user & ";Password=" & mdp & ";")
 
        Else
            ' MsgBox(nom_sql_serveur)
            Nom_utilisateur_SQL.Enabled = "False"
            mdp_utilisateur_SQL.Enabled = "false"
            Connexion = New SqlConnection("Data Source=" & nom_sql_serveur & ";Integrated Security=SSPI;")
 
        End If
 
        Try
 
            Connexion.Open()
            If (Connexion.State = "1") Then
                Resultat_connexion_sqlserveur.Text = "Connexion au serveur SQL Réussie!"
            End If
            'MsgBox("Etat de la connexion : " & Connexion.State)
            Dim Requete As String = "EXEC sp_databases"
            Dim Commande As New SqlCommand(Requete, Connexion)
            Dim Adaptateur As New SqlDataAdapter(Commande)
            Dim MonDataSet As New DataSet
            Adaptateur.Fill(MonDataSet, "BDD")
            For Each Ligne As DataRow In MonDataSet.Tables("BDD").Rows()
                ComboBox_list_bdd.Items.Add(Ligne("DATABASE_NAME"))
 
                'resultat_list_bdd.Items.Add(Ligne("DATABASE_NAME"))
                'Console.WriteLine(Ligne("Artiste").ToString & " - " & Ligne("Titre").ToString)
            Next
            Try
 
                ' MsgBox("Il y a eu " & Commande.ExecuteNonQuery() & " lignes mises à jour")
 
            Catch ex As Exception
 
                MsgBox(ex.Message)
 
            End Try
            Commande.Dispose()
            Connexion.Close()
        Catch ex As Exception
 
            ' MsgBox("L'erreur suivante a été rencontrée :" & ex.Message)
            ' Resultat_connexion_sqlserveur.Text = "1-L'erreur suivante a été rencontrée :" & vbCrLf & ex.Message
 
        End Try
 
        Connexion.Close()

Je voudrais savoir comment je pourrais simplifier le code afin éviter d'avoir à "rappeler" tout ce code à chaque fois que j'execute les X requetes à la suite. A moins que cela ne soit pas possible?

Est-il possible executer une seul fois la connexion et executer les 6 requetes à la suite des autres?

Merci par avance de vos explications et conseils

guigui69

[clementmarcotte]

Bonjour,

Si tu as juste une table à interroger, tu as besoin d'une seule requête SQL, soit celle qui va charger ta table externe dans ta DataTable. Ensuite, tu as juste à filtrer ta DataTable avec un DataView ou une BindingSource.

Si tu as plusieurs tables externes, tu peux avoir plusieurs DataTables dans un DataSet. Dans ce cas, tu as besoin au pire d'une requête SQL par table à interroger. Même qu'une fois tes DataTables remplies, tu peux même fermer complètement ta connexion, modifier tes données dans ta Datatable et mettre à jour ta base externe en terminant ton programme.

Et puis, la classe Binding et les propriétés DataBindings et BindingContext permettent de relier directement les contrôles à des champs de DataTables.

[guigui69]

Bonjour ,

à chaque fois c'est 6 requêtes sur 6 tables différents mais dans la même base de donnée.

guigui69