Discussion :

[rezolu]

Bonjour à tous

J'aimerai utiliser une combobox pour choisir une valeur " ici la valeur GAMME " qui se trouve dans ma table "T_LISTING_FT" mais il ne m'afficher rien.
Dans ma base accès j'ai aussi une 2ieme table "T_Gamme" qui pourrais peut-être me servir pour récupérer les différente valeurs du champs "GAMME" ?

Voici mon 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
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
 
Private Sub FillTextbox()
 
 
        Dim oledr As OleDb.OleDbDataReader
 
        If State = DBconnector.Add_Or_Edit_state.EditRecordstate Then
 
            Call OpenConnection()
            Call Initialized()
            With OleDa
                .SelectCommand = New OleDb.OleDbCommand()
                .SelectCommand.CommandText = "SELECT * FROM [T_Listing_FT] WHERE ([ID] = [@ID])"
                .SelectCommand.Connection = OleCn
                .SelectCommand.Parameters.Add("@ID", System.Data.OleDb.OleDbType.VarWChar, 50, "ID").Value = Frm_Recherche.ListView_Resultat.SelectedItems(0).Text
            End With
 
            oledr = OleDa.SelectCommand.ExecuteReader()
 
            With oledr
                If Not .HasRows Then
                    'Nothing
                Else
                    .Read()
                    Me.TboxID.Text = IIf(.IsDBNull(0), "", .Item("ID").ToString())
                    Me.TboxCATEGORIE.Text = IIf(.IsDBNull(1), "", .Item("CATEGORIE").ToString())
                    Me.TboxDESCRIPTION1.Text = IIf(.IsDBNull(3), "", .Item("DESCRIPTION1").ToString())
                    Me.TboxDESCRIPTION2.Text = IIf(.IsDBNull(4), "", .Item("DESCRIPTION2").ToString())
                    Me.TboxREFERENCE.Text = IIf(.IsDBNull(5), "", .Item("REFERENCE").ToString())
                    Me.TboxMARQUE.Text = IIf(.IsDBNull(6), "", .Item("MARQUE").ToString())
                    Me.TboxFOURNISSEUR.Text = IIf(.IsDBNull(7), "", .Item("FOURNISSEUR").ToString())
                    Me.TboxREMARQUES.Text = IIf(.IsDBNull(7), "", .Item("REMARQUES").ToString())
                    Me.TboxWWW.Text = IIf(.IsDBNull(7), "", .Item("WWW").ToString())
                    Me.TboxPDF.Text = IIf(.IsDBNull(7), "", .Item("PDF").ToString())
                    Me.TboxLien.Text = IIf(.IsDBNull(7), "", .Item("LIEN").ToString())
                    Me.TboxImage.Text = IIf(.IsDBNull(7), "", .Item("IMAGE").ToString())
                    Me.TboxNotes.Text = IIf(.IsDBNull(7), "", .Item("NOTES").ToString())
 
                    Me.CboGamme.ValueMember = ("gamme")
                    Me.CboGamme.DisplayMember = IIf(.IsDBNull(2), "", .Item("GAMME").ToString())
 
 
                    .Close()
                End If
                'Call CloseConnection()
            End With
 
        End If
 
    End Sub

Merci d'avance pour votre aide

Bonne journée à tous

[Phil Rob]

Bonsoir,

Idéalement, j'utilise un DataAdapter pour lire les données. Il rempli directement un DataTable.
S'il je dois utiliser un DataReader, je crée un DataTable et le rempli par la lecture du Reader.

Quand j'ai un DataTable, la liaison des données aux composants de présentation (TextBox, ListBox, ComboBox, DataGridView, .. ) est très facile. Dans beaucoup de cas, il suffit presque d'affecter la propriété DataSource.

Par exemple, pour un ComboBox :

Code :

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

1
2
3
4
 
        ComboBoxTest.DataSource = "LeDataTable"
        ComboBoxTest.DisplayMember = "LeChampAMontrer"
        ComboBoxTest.ValueMember = "LeChampValeurAAssocier"  ' si nécessaire

Voici le projet de test TestAccesDBSimpleConMostrar.zip, avec DB, dans lequel je fais le chargement d'une manière et de l'autre. Je pense que tu trouveras ce que tu cherches dans ces codes. N'oublie pas de modifier le chemin de la DB pour pouvoir exécuter, c'est forcément différent sur ton PC. Excuse les commentaires et noms de variables en espagnol, tu ne devrais pas avoir trop difficultés à comprendre. Au besoin, tu demandes. Il y Google Translator aussi.

Bon travail,

[rezolu]

Bonsoir Phil Rob

Merci pour ton aide et ton fichier,
Grace à ton aide j'ai réussi a régler mon problème de combobox, mais j'ai encore un petit soucis.

Je t'explique un peu mon projet :

Mon premier formulaire (Recherche) affiche dans un listview les infos de ma table "Listing), ce formulaire comporte plus textbox correspondant aux différentes valeur de la table Listing.
Quand je clique sur un item de la listview mes textbox se remplisse avec les valeurs adéquates.
Quand je double clique, j'ouvre le formulaire "Edition" pour modifier les infos de l'item sélectionné et c'est dans ce formulaire que j"ai ma combobox et dans la combobox j'ai la bonne valeur de départ du listview et quand je deploie la comboxbox je retrouve bien les valeurs de ma deuxième table.
Donc jusque la tout fonctionne, mais si je met la combobox en "dropdownlist" je n'ai que les valeurs de la deuxième table et pas celle de l'item sélectionné dans la listview.

Aurais-tu une idée pour moi ?

Merci d'avance

Bonne soirée

[Phil Rob]

Bonjour,
Regarde bien, pour ce qui concerne l'exportation vers XLS (c'était la question), seul le DataTable est utilisé, je ne m'occupe pas des composants qui servent à présenter les données.
Je te propose de mettre les données à exporter dans un DataTable et puis de reprendre mes quelques codes d'exportation.
Bonne journée

[rezolu]

Re-bonjour Phil Rob

J'ai réussi à intégrer ton code dans mon projet et cela fonctionne.
Mais je pensais que ce serait plus rapide
Par contre dans ma DB access j'ai une macro qui exporte vers excel et cela se fait très vite est-ce par hasard on peut exécuter cette macro à partir du projet vb net.

Bonne journée

[rezolu]

Suite ...
Il faut ouvrir FSecondaire avec ShowDialog ou bien ne pas oublier de le fermer.
Dans mon projet test, si tu re-cliques le bouton de FPrimaire avant d'avoir fermé FSecondaire, tu vas obtenir plusieurs instances de FSecondaire.
...

Bonjour Phil Rob

Merci je regarde a cela ce soir.

Bonne journée

[rezolu]

Merci pour tes réponses Phil ROb

Je re réfléchis à tous cela et revient vers toi

Bonne journée

[rezolu]

Re-bonjour Phil Rob

Voilà un modèle plus parlant

Pièce jointe 585354

Pièce jointe 585355

Bonne soirée

[Phil Rob]

Bonsoir,

Oui, c'est ce genre de requête qu'on appelle jointure. Une jointure n'est parfaitement correcte qu'avec des tables bien organisées. Si tu examines la requête que j'ai écrite dans Access, tu pourras constater dans le premier test, où j'envoie tout dans le DGV, que je fais seulement un copier-coller de la requête d'Acces en VB. Là, j'ai enlevé les noms de tables qui précèdent chaque nom de champ car ils ne sont pas nécessaires (quand les champs sont bien nommés).
Il s'agit donc dans cette façon de faire, d'une super astuce : réaliser et tester les requêtes difficiles dans Access et les copier-coller ensuite dans VB !

Dans le second test, je ne charge que le DGV, 2 ListBox (fichier et image) et un RichTextBox pour le code (qui peut être volumineux). Rien n'interdit d'ajouter d'autres composants pour afficher des données telles que Remarque, Commentaire, ..., ainsi qu'un ComboBox qui présenterait les noms des astuces de sorte à pouvoir en choisir plus facilement.

Tous les composants réagissent aux clics (éviter les double-clic) et on peut donc écrire les procédures événementielles qui font ce que tu veux, notamment ouvrir d'autres Forms. Peut-être ne faut-il pas abuser de cela non plus (avis personnel, d'autres diront le contraire ... ).

A bientôt ...

[rezolu]

Merci Phil Rob

Je reviendrai surement vers toi quand je devrai pouvoir ajouter des enregistrement dans le formulaire ou pour champs de recherche.

Bonne soirée

[rezolu]

Bonjour Phil Rob

J'ai un petit soucis avec ton exemple
Dans le DGV du formulaire FDGVEtListes quand je clic sur l'entête pour tri et sur le champs vide j'ai une erreur comme quoi le NULL est interdit

Merci

[Phil Rob]

Bonjour Resolu,

Je suppose que cela s'exécute dans FDGVEtListes (ou sa copie) puisque c'est là que se trouvent les procédures ChargeDonnees et MontreDonnees (que tu ne dois pas appeler puisque l'algorithme tient à jour et la DB et les DataTable : dans le cas précis de cet exemple, tu ne verras jamais le résultat de ton ajout de fichier vu qu'il n'est pas enregistré dans la DB et que tu recharges cette DB).

Alors, par rapport aux erreurs ...

Vu que l'ajout en DB n'est pas fait, tu ne reçois pas de ID pour le fichier. Il s'ensuit que ID vaut 0 et qu'au cours des différents essais que tu réalises, tu vas ajouter plusieurs fichiers avec un ID = 0. Cela risque de poser des problèmes dans la suite.

Pour ce qui est de l'erreur révélée par le message, je soupçonne que NomTableFichier n'existe pas ou bien que cette variable contienne un nom de table qui n'existe pas dans le DataTable.

Dans mon code, un DataTable est créée pour les fichiers dans ChargesDetails. Cette table ne contient que les fichiers liés au T_ASTUCEPROG en cours. En principe, tes ajouts de fichiers doivent se faire dans le même contexte. Mais dans mon code, ce DataTable s'appelle "TFichier" et je n'ai défini aucune variable NomTableFichier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'... ... ...
       SQL = "SELECT Fichier FROM T_FICHIER WHERE XIdAstuceFichier =  " & IdAstuceEnCours
 
        Dim MonAdapter As OleDbDataAdapter = New OleDbDataAdapter(SQL, MaConexion)
 
        If Not MonAdapter Is Nothing Then
            Dim UneDataTable As New DataTable
            MonAdapter.Fill(UneDataTable)
            UneDataTable.TableName = "TFichier"
            MesAstuces.Tables.Add(UneDataTable)
        End If
'... ... ...

...

[Phil Rob]

Donc, si je comprends bien, tu alimentes la ComboBox via son DataSource.
Peux-tu envoyer les codes de remplissage de cette ComboBox, avec la(les) requête(s) utilisée(s).

Je voudrais aussi le code qui met le ComboBox en DropDownList de sortte que je l'implémente dans mes codes, pour tester.

Dans le code que je t'"ai envoyé, tous les composants sont "liés" à la même requête et si je sélectionne un élément dans un des composants, tous les autres composants "s’alignent" sur le même enregistrement.

...

[rezolu]

Bonjour Phil Rob

Voila le code de mon formulaire édition

La combobox se nomme : TboxGAMME

Je ne sais pas si c'est ce code que tu as besoin.

Bonne soirée

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
 
Imports System.IO
Imports System.Windows.Forms.VisualStyles
Imports System.Data.OleDb
 
 
Friend Class Frm_Edition
 
 
    Public State As DBconnector.Add_Or_Edit_state
 
    Dim Tip As New ToolTip
 
    Private Sub FillTextbox()
 
        'if Edit record State, Textboxes Fill
        Dim oledr As OleDb.OleDbDataReader
 
 
        If State = DBconnector.Add_Or_Edit_state.EditRecordstate Then
 
 
 
            Call OpenConnection()
            Call Initialized()
            With OleDa
                .SelectCommand = New OleDb.OleDbCommand()
                .SelectCommand.CommandText = "SELECT * FROM [T_Listing_FT] WHERE ([ID] = [@ID])"
                .SelectCommand.Connection = OleCn
                .SelectCommand.Parameters.Add("@ID", System.Data.OleDb.OleDbType.VarWChar, 50, "ID").Value = Frm_Recherche.ListView_Resultat.SelectedItems(0).Text
            End With
 
            oledr = OleDa.SelectCommand.ExecuteReader()
 
            With oledr
                If Not .HasRows Then
                    'Nothing
                Else
 
                    .Read()
 
                    Me.TboxID.Text = IIf(.IsDBNull(0), "", .Item("ID").ToString())
                    Me.TboxCATEGORIE.Text = IIf(.IsDBNull(1), "", .Item("CATEGORIE").ToString())
                    Me.TboxGAMME.Text = IIf(.IsDBNull(2), "", .Item("GAMME").ToString())
                    Me.TboxDESCRIPTION1.Text = IIf(.IsDBNull(3), "", .Item("DESCRIPTION1").ToString())
                    Me.TboxDESCRIPTION2.Text = IIf(.IsDBNull(4), "", .Item("DESCRIPTION2").ToString())
                    Me.TboxREFERENCE.Text = IIf(.IsDBNull(5), "", .Item("REFERENCE").ToString())
                    Me.TboxMARQUE.Text = IIf(.IsDBNull(6), "", .Item("MARQUE").ToString())
                    Me.TboxFOURNISSEUR.Text = IIf(.IsDBNull(7), "", .Item("FOURNISSEUR").ToString())
                    Me.TboxREMARQUES.Text = IIf(.IsDBNull(7), "", .Item("REMARQUES").ToString())
                    Me.TboxWWW.Text = IIf(.IsDBNull(7), "", .Item("WWW").ToString())
                    Me.TboxPDF.Text = IIf(.IsDBNull(7), "", .Item("PDF").ToString())
                    Me.TboxLien.Text = IIf(.IsDBNull(7), "", .Item("LIEN").ToString())
                    Me.TboxImage.Text = IIf(.IsDBNull(7), "", .Item("IMAGE").ToString())
                    Me.TboxNotes.Text = IIf(.IsDBNull(7), "", .Item("NOTES").ToString())
                    .Close()
                End If
                Call CloseConnection()
            End With
        End If
 
    End Sub
 
       Private Sub Frm_Edition_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim filePDF As String = My.Settings.DBpath + "\FicheTechnique\" + TboxMARQUE.Text + "\" + TboxPDF.Text
 
        KeyPreview = False
 
        If State = Add_Or_Edit_state.AddRecordstate Then
            'Mettre combobox Gamme en read only uniquement en mode édition
 
            TboxGAMME.DropDownStyle = ComboBoxStyle.DropDownList
 
        End If
 
        Call FillTextbox()
        Call OpenConnection()
 
        '************Combobox
        Dim oleGr As OleDb.OleDbDataReader
 
 
        With OleGa
            .SelectCommand = New OleDb.OleDbCommand()
            .SelectCommand.CommandText = "SELECT * FROM T_gamme"
            .SelectCommand.Connection = OleCn
        End With
 
 
        oleGr = OleGa.SelectCommand.ExecuteReader()
 
        With oleGr
 
            While oleGr.Read()
 
                TboxGAMME.Items.Add(oleGr.GetString(1))
 
 
 
            End While
 
        End With
 
        '************Combobox
 
        'Afficher image produit
        Dim path As String = My.Settings.DBpath + "\Image\" + TboxMARQUE.Text + "\" + TboxImage.Text
        If TboxImage.Text <> "" Then
            ImageProduit.ImageLocation = path
        Else
            ImageProduit.ImageLocation = My.Settings.DBpath & "\DataBase\nopicture.png"
        End If
 
        'Info bulle des bouton
        InfoBulle.SetToolTip(BpSupprimerPDF, "Supprimer le fichier")
        InfoBulle.SetToolTip(BpImporterPDF, "Importer un fichier PDF")
        InfoBulle.SetToolTip(BpSupprimerIMG, "Supprimer la photo")
        InfoBulle.SetToolTip(BpAjouterIMG, "Ajouter une photo")
 
        Call CloseConnection()
 
    End Sub
 
 
    Private Sub BpSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BpSave.Click, ImageProduit.BackgroundImageChanged
 
        If State = DBconnector.Add_Or_Edit_state.AddRecordstate Then
 
            If Requis() = True Then
                Return   
            End If
            Try
                Call OpenConnection()
                With OleDa
                    'Formulaire ajout enregistrement [ID] et @ID
                    .InsertCommand = New OleDb.OleDbCommand()
                    .InsertCommand.CommandText = "INSERT INTO [T_Listing_FT] ( [CATEGORIE] , [GAMME] , [DESCRIPTION1] , [DESCRIPTION2] , [REFERENCE] , [MARQUE] , [FOURNISSEUR] ,[REMARQUES] ,[WWW] ,[PDF] ,[LIEN] ,[IMAGE] ,[NOTES])" &
                    "VALUES  (  @CATEGORIE , @GAMME , @DESCRIPTION1 , @DESCRIPTION2 , @REFERENCE , @MARQUE , @FOURNISSEUR ,@REMARQUES ,@WWW ,@PDF ,@LIEN ,@IMAGE ,@NOTES)"
                    .InsertCommand.Connection = OleCn
                    '.InsertCommand.Parameters.Add("@ID", OleDb.OleDbType.VarWChar, 50, "ID").Value = Me.TboxID.Text
                    .InsertCommand.Parameters.Add("@CATEGORIE", OleDb.OleDbType.VarWChar, 50, "CATEGORIE").Value = Me.TboxCATEGORIE.Text
                    .InsertCommand.Parameters.Add("@GAMME", OleDb.OleDbType.VarWChar, 50, "GAMME").Value = Me.TboxGAMME.Text
                    .InsertCommand.Parameters.Add("@DESCRIPTION1", OleDb.OleDbType.VarWChar, 50, "DESCRIPTION1").Value = Me.TboxDESCRIPTION1.Text
                    .InsertCommand.Parameters.Add("@DESCRIPTION2", OleDb.OleDbType.VarWChar, 50, "DESCRIPTION2").Value = Me.TboxDESCRIPTION2.Text
                    .InsertCommand.Parameters.Add("@REFERENCE", OleDb.OleDbType.VarWChar, 50, "REFERENCE").Value = Me.TboxREFERENCE.Text
                    .InsertCommand.Parameters.Add("@MARQUE", OleDb.OleDbType.VarWChar, 50, "MARQUE").Value = Me.TboxMARQUE.Text
                    .InsertCommand.Parameters.Add("@FOURNISSEUR", OleDb.OleDbType.VarWChar, 50, "FOURNISSEUR").Value = Me.TboxFOURNISSEUR.Text
                    .InsertCommand.Parameters.Add("@REMARQUES", OleDb.OleDbType.VarWChar, 50, "REMARQUES").Value = Me.TboxREMARQUES.Text
                    .InsertCommand.Parameters.Add("@WWW", OleDb.OleDbType.VarWChar, 50, "WWW").Value = Me.TboxWWW.Text
                    .InsertCommand.Parameters.Add("@PDF", OleDb.OleDbType.VarWChar, 50, "PDF").Value = Me.TboxPDF.Text
                    .InsertCommand.Parameters.Add("@LIEN", OleDb.OleDbType.VarWChar, 50, "LIEN").Value = Me.TboxLien.Text
                    .InsertCommand.Parameters.Add("@IMAGE", OleDb.OleDbType.VarWChar, 50, "IMAGE").Value = Me.TboxImage.Text
                    .InsertCommand.Parameters.Add("@NOTES", OleDb.OleDbType.VarWChar, 50, "NOTES").Value = Me.TboxNotes.Text
                    .InsertCommand.ExecuteNonQuery()
 
                End With
                Call CloseConnection()
                MsgBox("Record(s) saved...", MsgBoxStyle.Information, "Record(s) saved...")
                If MsgBox("Do you want to add new record(s) ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirmarion...") = MsgBoxResult.Yes Then
                    Call Cleartext()
                    'Call GenderItems()
                    'Me.CDateOfBirth.ResetText()
                    Me.TboxID.Focus()
                    Exit Sub
                End If
                Me.Close()
            Catch ex As Exception
                MsgBox("Unable to save new record(s), Employee ID already exist, please enter another Employee ID...", MsgBoxStyle.Exclamation, "Attention...")
                TboxID.Focus()
                TboxID.SelectAll()
                Call CloseConnection()
            End Try
            Exit Sub
        End If
 
        If State = DBconnector.Add_Or_Edit_state.EditRecordstate Then
 
            Try
                Call OpenConnection()
                With OleDa
                    ' Mise à jour des données
                    .UpdateCommand = New OleDb.OleDbCommand()
                    .UpdateCommand.CommandText = "UPDATE [T_Listing_FT] SET  [CATEGORIE] = @CATEGORIE , [GAMME] = @GAMME , [DESCRIPTION1] = @DESCRIPTION1 , [DESCRIPTION2] = @DESCRIPTION2 , [REFERENCE] = @REFERENCE ," &
                    "[MARQUE] = @MARQUE , [FOURNISSEUR] = @FOURNISSEUR , [REMARQUES] = @REMARQUES , [WWW] = @WWW , [PDF] = @PDF , [LIEN] = @LIEN , [IMAGE] = @IMAGE , [NOTES] = @NOTES WHERE (ID = ?)"
                    .UpdateCommand.Connection = OleCn
                    '.UpdateCommand.Parameters.Add("@ID", OleDb.OleDbType.VarWChar, 50, "ID").Value = Me.TboxID.Text
                    .UpdateCommand.Parameters.Add("@CATEGORIE", OleDb.OleDbType.VarWChar, 50, "CATEGORIE").Value = Me.TboxCATEGORIE.Text
                    .UpdateCommand.Parameters.Add("@GAMME", OleDb.OleDbType.VarWChar, 50, "GAMME").Value = Me.TboxGAMME.Text
                    .UpdateCommand.Parameters.Add("@DESCRIPTION1", OleDb.OleDbType.VarWChar, 50, "DESCRIPTION1").Value = Me.TboxDESCRIPTION1.Text
                    .UpdateCommand.Parameters.Add("@DESCRIPTION2", OleDb.OleDbType.VarWChar, 50, "DESCRIPTION2").Value = Me.TboxDESCRIPTION2.Text
                    .UpdateCommand.Parameters.Add("@REFERENCE", OleDb.OleDbType.VarWChar, 50, "REFERENCE").Value = Me.TboxREFERENCE.Text
                    .UpdateCommand.Parameters.Add("@MARQUE", OleDb.OleDbType.VarWChar, 50, "MARQUE").Value = Me.TboxMARQUE.Text
                    .UpdateCommand.Parameters.Add("@FOURNISSEUR", OleDb.OleDbType.VarWChar, 50, "FOURNISSEUR").Value = Me.TboxFOURNISSEUR.Text
                    .UpdateCommand.Parameters.Add("@REMARQUES", OleDb.OleDbType.VarWChar, 50, "REMARQUES").Value = Me.TboxREMARQUES.Text
                    .UpdateCommand.Parameters.Add("@WWW", OleDb.OleDbType.VarWChar, 50, "WWW").Value = Me.TboxWWW.Text
                    .UpdateCommand.Parameters.Add("@PDF", OleDb.OleDbType.VarWChar, 50, "PDF").Value = Me.TboxPDF.Text
                    .UpdateCommand.Parameters.Add("@LIEN", OleDb.OleDbType.VarWChar, 50, "LIEN").Value = Me.TboxLien.Text
                    .UpdateCommand.Parameters.Add("@IMAGE", OleDb.OleDbType.VarWChar, 50, "IMAGE").Value = Me.TboxImage.Text
                    .UpdateCommand.Parameters.Add("@NOTES", OleDb.OleDbType.VarWChar, 50, "NOTES").Value = Me.TboxNotes.Text
                    .UpdateCommand.Parameters.Add(New System.Data.OleDb.OleDbParameter("AEmployeeID", OleDb.OleDbType.VarWChar, 50,
                                                                                            System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "EmployeeID", DataRowVersion.Original, Nothing)).Value = Frm_Recherche.ListView_Resultat.SelectedItems(0).Text
                    .UpdateCommand.ExecuteNonQuery()
 
                End With
                Call CloseConnection()
                MsgBox("Record(s) has been Updated...", MsgBoxStyle.Information, "Record(s) Updated...")
                Me.Close()
            Catch ex As Exception
                MsgBox("Unable to update record(s), Employee ID already exist, please enter another Employee ID...", MsgBoxStyle.Exclamation, "Attention...")
                TboxID.Focus()
                TboxID.SelectAll()
                Call CloseConnection()
            End Try
            Exit Sub
        End If
 
    End Sub

[Phil Rob]

En SQL, on peut exécuter des "procédures stockées" dans la DB. Mais je ne sais pas si Access permet les procédures stockées°;

Par rapport à une macro, vois ce qui se fait pour lancer une macro écrite dans XLS :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
' ... ... ...
        XLSAPP = New Excel.Application
        XLSAPP.Visible = True
        XLSAPP.Workbooks.Open("D:\Tmp\ProbExcel\Test.xls")
        XLSAPP.Sheets("Feuil1").Select()
 
        XLSAPP.Run("MaMacro")             'exécuter la macro MaMacro sans argument
        XLSAPP.Run("UneMacro", "Coucou")  ' appel de la macro UneMacro avec arguments ....

Peut-être que la même démarche est possible à partir d'un application Access : ACCAPP = New Access.Application

A tester ...

[Phil Rob]

Bonsoir,

Désolé, mais je ne comprends pas très bien le problème (je suis un peu fatigué ce soir ... )

Mais ton code me pose questions.

Dans FillTextbox(), tu remplis les TextBox ainsi que la propriété Text du TboxGAMME :

Code :

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

Me.TboxGAMME.Text = IIf(.IsDBNull(2), "", .Item("GAMME").ToString())

Cette opération place une valeur dans la zone de texte du Combo, mais pas dans sa liste.
Pour placer les valeur dans la liste, il faut faire :

Code :

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

Me.TboxGAMME.Item.add(LaVaeurQueTuVeux)

C'est ce que tu fais dans Frm_Edition_Load et là, la liste du Combo se rempli et rien ne se place dans la zone de texte, sauf lorsqu'il y aura une sélection d'un Item de cette liste.

Je répète que je ne comprends pas très bien, mais si le but est d'avoir la liste remplie et un Item particulier dans la zone de texte, je ferais ceci :

1. Remplir la liste Me.TboxGAMME.Item.add( ...
2. Rechercher l'Item que tu veux et le désigner pour la zone de texte :

Code :

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

1
2
3
   If CEstLeItemQueJeCherche Then
         Me.TboxGAMME.Text = Me.TboxGAMME.Items(LIndiceDeCetItem)
   End If

Je ne pense pas t'aider beaucoup ici. Si tu peux éclaircir davantage, je verrai demain si je peux faire mieux.

[rezolu]

Bonjour Phil Rob

J'ai fait une capture d'écran, c'est peut-être plus facile pour expliquer mon petit soucis :

Pièce jointe 583606

Bonne journée

[Phil Rob]

Il est effectivement possible de faire ± la même chose pour lancer une macro Access que pour une XLS.
Mais il faut s'attendre à quelques difficultés ...
Celles-ci ne me passionnent pas et alors là, je te laisse le soin des recherches à partir de "Run Macro Access en VB.net".






Bon amusement,

[rezolu]

Phil Rob
tu as plus de chance que moi, car avec le même code que toi cela ne fonctionne pas.
Tu as mis quoi dans les références.

Je continue mes recherches

Bonne soirée

[Phil Rob]

Bonjour,

Je reviens sur mon dernier message, pas besoin d'utiliser ShowDialog à la place de Show, ni de fermer de suite le Form secondaire.
Reprenant un détail expliqué au début du pdf que j'ai envoyé, je montre dans la vidéo comment créer (ou ne pas créer) plusieurs instances "simultanées" d'un même Form :

C'est la différence entre :

Code :

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

1
2
3
4
5
 
        Dim Fs As New FSecondaire
 
        Fs.Owner = Me
        Fs.Show()

et :

Code :

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

1
2
3
4
5
6
 
        Dim Fs As Form
        Fs = FSecondaire
 
        Fs.Owner = Me
        Fs.Show()

La vidéo : https://www.dropbox.com/s/ocwzcnb3o6...Forms.mp4?dl=0

Très bonne journée ...