Discussion :

[Elros]

Bonjour,

J'aimerai créer une vue Access par le code pour m'en servir dans d'autre requête.
Mais le problème c'est que je ne vois pas comment faire pour re-utiliser la requête.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public sqlPrixFact as string
_____
Dim sqlFact as string
 
sqlPrixFact = "SELECT Sum(Quantite*PrixProdUni) AS [Prix Facture], NumFact
FROM Ligne_Facture, Produit
WHERE Produit.NumProd=Ligne_Facture.NumProd
GROUP BY Ligne_Facture.Numfact"
 
sqlFact = "SELECT F.NumFact AS Numéro, F.DateFact AS [Date], px.[Prix Facture],  Sum(Montant) AS [Somme payée]
FROM Facture AS F, Paiement, " & sqlPrixFact & " AS px
WHERE F.NumFact = px.NumFact
AND F.NumFact=Paiement.NumFact
GROUP BY F.Numfact, F.DateFact, px.[Prix Facture]"

Sous Access les CREATE VIEW ne fonctionne pas donc je fais un SELECT. Cela marche très bien sous Access mais par le code

Merci d'avance pour votre aide
Elros.

[Elros]

J'ai finis par trouver tous seul comme un grand , c'est pour cela que je répond à mon post car j'ai rien trouvé (en français) sur la toile
j'ai mis plusieurs heures mais j'en suis venu à bout.

Dans access pour faire une vue il faut faire requête avec un SELECT et l'enregistrer. Avec le nom de la requête on s'en sert comme table dans le FORM.
Pour le code j'ai utilisé cmdPxFac.CommandText comportant ma requête (la vue) et je l'ai greffé sur mon autre requête sans oublier les parenthèses!

Voila le code :

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
Call Acceuil.ConnexionBDD()
 
            With cmdPxFac
                .Connection = Acceuil.oConnexion
                .CommandText = "SELECT Sum(Quantite*PrixProdUni) AS [Prix Facture], NumFact " & _
                                "FROM Ligne_Facture, Produit " & _
                                "WHERE Produit.NumProd = Ligne_Facture.NumProd " & _
                                "GROUP BY Ligne_Facture.Numfact"
            End With
 
            oRCd = cmdPxFac.ExecuteReader
            oRCd.Read()
 
            Acceuil.oConnexion.Close()
 
            'requete sql pour lister toutes les factures client
            cmdListFac = "SELECT F.NumFact AS Numéro, F.DateFact AS [Date], px.[Prix Facture], Sum(Montant) AS [Somme payée] " & _
                            "FROM Facture AS F, Paiement, (" & cmdPxFac.CommandText & ") AS px " & _
                            "WHERE F.NumFact = px.NumFact And F.NumFact = Paiement.NumFact " & _
                            "And F.NumCli=" & Acceuil.varNumCli & " " & _
                            "GROUP BY F.Numfact, F.DateFact, px.[Prix Facture]"
 
            'appel procedure requete pour datagrid
            Call Acceuil.requeteSQLdgv(cmdListFac, "Client", DataGridViewCliFact)

bonne soirée,
Elros

[zsoh]

Bonjour,
Merci bien j'avais fait un post pareil.
Et ta méthode requeteSQLdgv(...) de Acuueil ??

Merci

[Elros]

voila

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
' procdédure de connection à une bdd
    Public Sub ConnexionBDD()
        oConnexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.CheminFichier
        oConnexion.Open()
    End Sub
' procédure pour remplir un DataGridView
    Public Sub requeteSQLdgv(ByVal cmdRequete As String, ByVal NomTable As String, ByRef DataGridViewName As DataGridView)
 
        ' Déclaration Objet Commande 
        Dim oCmd As OleDbCommand
        ' Déclaration Objet DataAdapter
        Dim oDA As OleDbDataAdapter
        ' Déclaration Objet DataSet
        Dim oDS As New DataSet
        ' Déclaration Objet DataTable
        Dim oDT As New DataTable
        ' Déclaration d'un  OleDbCommandBuilder
        Dim oCB As OleDbCommandBuilder
 
        'connection à la bdd
        Call ConnexionBDD()
 
        'Instancier un objet Commande
        oCmd = New OleDbCommand(cmdRequete)
        'Instancier un objet Adapter
        oDA = New OleDbDataAdapter(oCmd)
        'initialiser l'objet Command
        oCmd.Connection() = Me.oConnexion
        'initialiser l'objet OleCBComandBuilder (sinon pas d'update)
        oCB = New OleDbCommandBuilder(oDA)
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        oDA.Fill(oDS, NomTable)
        'Créer une datatable à partir du dataset
        oDT = oDS.Tables(NomTable)
        'Mettre dans le DataGrid une table DataTable
        DataGridViewName.DataSource = oDT
        'Récupère le nombre de ligne
        NbLigneDataGrid = DataGridViewName.RowCount
 
        ' ferme la connexion
        Me.oConnexion.Close()
    End Sub

[zsoh]

Bonjour et merci,
ça marche.
mais une préoccupation : Comment libérer le résultat de l'exécution de la requête.
En fait, c'est quand je Load le form qui contient mon DataGridView (DGV), que j'exécute la requête et met le résultat dans le DGV.
Lorsque je ferme la fenêtre et que je la recharge (ouvrir à nouveau), les enregistrements du résultat sont doublés, si je fais à nouveau, ==> triplé, ....
comment je peux éviter ce genre de situation ?

Merci

[Elros]

Bonjour,

Je n'ai pas ce problème lorsque je quitte ma fenêtre (factures) pour retourner à mon menu d'accueil.

Code :

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

1
2
MenuAcceuil.Show()
        Me.Close()

en retournant sur ma fenêtre factures contenant le DGV j'ai le même résultat qu'auparavant.

Code :

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

1
2
AcceuilFacture.Show()
        Me.Close()

Est ce que par hasard vous utilisez Visible = False à la place de Close ?

Elros.

[zsoh]

Je n'attache aucune action à la fermeture de la fenêtre
Le form que j'ouvre contenant le DGV est un child d'un MDIForm
Après je ferme juste cette form fille avec le bouton (croix) de fermeture de fenetre.
En suite je réouvre avec un menu de mon MDIForm et j'ai le désagrement.

Merci

[Elros]

J'ai les même choses que vous et j'obtiens le bon résultat..
Peut être qu'il y a une modification à faire dans la configuration du DGV, peut être qu'il y a une chose en trop dans votre code, ou votre requête SQL ? Je ne sais pas.

Je vous conseil de revenir sur ton post pour avoir de l'aide d'un modérateur ou d'un membre plus expérimenté.

Elros.

[zsoh]

Bonjour,
Je retrouve ma betise.
En fait les objet Connection, DataSet, ... étaient crée comme public dans un module.

Merci