VB.NET et ACCESS

**wayne1989** · 26/03/2017, 23h46

Bonjour a tous

Je travail sur un projet et j'ai crée un comboBox qui me permet d'entre un Code unique a chaque employe
alors j'ai besoin d'un programme me permettant de compléter les information dans ma base de donnee a chaque que j'entre un code et que je complete la cette Windows Form car je je ne veux pas que le reste des champs reste vide : voici une capture de mon windows form

Je vous pries de me donner des idees

Nom : Capture d’écran (121).png
Affichages : 437
Taille : 86,6 Ko

Nom : Capture d’écran (121).png
Affichages : 437
Taille : 86,6 Ko

**Philippe57** · 16/04/2017, 02h07

Salut.

J'aurais bien quelques idées à te soumettre mais qu'est ce que tu veux faire exactement?

Modifier une fiche existante ou en créer de nouvelle avec un code unique?

**Mario Rousson** · 16/04/2017, 07h42

Ça donne rien de nous montrer que tu dessines bien, ci tu veux qu'on t'aide nous avons besoin de voir ton code.

**zitoune92** · 21/04/2017, 10h54

Si tu veux un code unique, pourquoi ne pas utiliser la fonctionnalité native d'Access en créant un champ [Autonumber] dans ta table employé?

**wayne1989** · 25/04/2017, 08h18

Bonjour a tous

Voici le code complet du programme il marche super bien. je voudrais donner un code unique a chaque employer
comment faire svp?

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
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
 
 
 
 
Imports System.Data
Imports System.Data.OleDb
Imports Excel = Microsoft.Office.Interop.Excel
Imports System.IO
 
 
'NB:Tout haut PROJET aller sur--> Ajouter une Reference-->Framework Puis cocher <Microsoft.Office.Interop.Excel>
 
 
Public Class FrmProjets
 
    'Etablissement de connexion
    Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\V_Techno_DB_be.mdb")
 
    'Déclaration de quelques variables
    Public rSQL As String
    Public i As Integer
    Public arrimage() As Byte
    Dim cmd As New OleDbCommand
 
    Private Property HeureSup24 As Long
 
    Private Property KeyAscii As Object
 
 
 
 
 
    '---Initialisation
    Private Sub FrmProjets_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Me.Text = "WELCOME TO MY HOOD"
 
        remplirDatagridProjet()
        ComboBoxCode.Items.Clear()
 
 
 
        remplirComboxcode()
 
    End Sub
 
 
 
    '---Affichage de données de la Table Projet par la DataGridViewProjet
 
    Sub remplirDatagridProjet()
        Try
            Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\V_Techno_DB_be.mdb")
            Dim cmd As New OleDbCommand()
            cmd.CommandType = CommandType.Text
            cmd.CommandText = " select * from RequêteGENERALE"
            cmd.Connection = cn
            Dim da As New OleDbDataAdapter(cmd)
            Dim dt As New DataTable()
            da.Fill(dt)
            DataGridViewProjet.DataSource = dt
            cn.Close()
 
        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
 
    End Sub
 
 
 
    '---Affichage de données respectives dans les TextBox via la selection d'une ligne de la DataGridViewProjet
 
    Private Sub DataGridViewProjet_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridViewProjet.CellMouseClick
        Try
            If e.RowIndex >= 0 Then
                Dim Ligns As DataGridViewRow
                Ligns = Me.DataGridViewProjet.Rows(e.RowIndex)
 
 
                DateTimePickerDate_de_demarrage_Projet.Text = Ligns.Cells(4).Value.ToString
                TextBoxNom.Text = Ligns.Cells(1).Value.ToString
                TextBoxPrenom.Text = Ligns.Cells(2).Value.ToString
 
                CboRef_Projet.Text = Ligns.Cells(6).Value.ToString
                CboNom_Projet.Text = Ligns.Cells(5).Value.ToString
                TextDesignation_Tache.Text = Ligns.Cells(7).Value.ToString
                MaskedTextBoxHeures_Depart.Text = Ligns.Cells(8).Value.ToString
                MaskedTextBoxHeures_Fin.Text = Ligns.Cells(9).Value.ToString
                DateTimePickerDate_de_Fin_Projet.Text = Ligns.Cells(10).Value.ToString
                CboPoste.Text = Ligns.Cells(3).Value.ToString
                DateTimePickerDate_de_Licenciement.Text = Ligns.Cells(11).Value.ToString
                TextRemarques.Text = Ligns.Cells(12).Value.ToString
                ComboBoxCode.Text = Ligns.Cells(0).Value.ToString
 
 
            End If
 
        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
    End Sub
 
 
 
    '---Remplissage comboBoxCode avec les codes 
 
    Sub remplirComboxcode()
        Try
            Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\V_Techno_DB_be.mdb")
 
            Dim cmd As New OleDbCommand("select DISTINCT Code from RequêteGENERALE ", cn)
            cn.Open()
            Dim dr As OleDbDataReader = cmd.ExecuteReader
            Do While dr.Read
                ComboBoxCode.Items.Add(dr.GetValue(0))
            Loop
            dr.Close()
            cn.Close()
        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
    End Sub
 
 
    '---Le bouton Ajouter par la suite renommé Effacer vide tous les TextBox
 
    Private Sub BtnAjouter_Click(sender As Object, e As EventArgs) Handles BtnAjouter.Click
 
 
 
        ComboBoxCode.Text = ""
        TextBoxNom.Text = ""
        TextBoxPrenom.Text = ""
        CboPoste.Text = ""
        DateTimePickerDate_de_demarrage_Projet.Text = ""
        CboNom_Projet.Text = ""
        CboRef_Projet.Text = ""
        TextDesignation_Tache.Text = ""
        MaskedTextBoxHeures_Depart.Text = ""
        MaskedTextBoxHeures_Fin.Text = ""
        DateTimePickerDate_de_Fin_Projet.Text = ""
        DateTimePickerDate_de_Licenciement.Text = ""
        TextRemarques.Text = ""
 
 
 
    End Sub
 
 
 
 
    Private Sub BtnEnregitrer_Click(sender As Object, e As EventArgs) Handles BtnEnregitrer.Click
 
        Try
 
 
 
            Dim cmd As New OleDbCommand("select * from RequêteGENERALE", cn)
            cn.Open()
 
            With cmd
 
                rSQL = "insert into Employers(Code,Nom,Prenom,Poste,Date_de_demarrage_Projet,Nom_Projet,Ref_Projet,Designation_Tache,Heures_Depart,Heures_FIN,Date_de_Fin_Projet,Date_de_Licenciement,Remarques) values (@a1,@a2,@a3,@a4,@a5,@6,@a7,@a8,@a9,@a10,@11,@12,@13)"
                .CommandText = rSQL
 
 
                .Parameters.Add("@a1", OleDbType.VarChar).Value = ComboBoxCode.Text
                .Parameters.Add("@a2", OleDbType.VarChar).Value = TextBoxNom.Text
                .Parameters.Add("@a3", OleDbType.VarChar).Value = TextBoxPrenom.Text
                .Parameters.Add("@a4", OleDbType.VarChar).Value = CboPoste.Text
                .Parameters.Add("@a5", OleDbType.VarChar).Value = DateTimePickerDate_de_demarrage_Projet.Text
                .Parameters.Add("@a6", OleDbType.VarChar).Value = CboNom_Projet.Text
                .Parameters.Add("@a7", OleDbType.VarChar).Value = CboRef_Projet.Text
                .Parameters.Add("@a8", OleDbType.VarChar).Value = TextDesignation_Tache.Text
                .Parameters.Add("@a9", OleDbType.VarChar).Value = MaskedTextBoxHeures_Depart.Text
                .Parameters.Add("@a10", OleDbType.VarChar).Value = MaskedTextBoxHeures_Fin.Text
                .Parameters.Add("@a11", OleDbType.VarChar).Value = DateTimePickerDate_de_Fin_Projet.Text
                .Parameters.Add("@a12", OleDbType.VarChar).Value = DateTimePickerDate_de_Licenciement.Text
                .Parameters.Add("@a13", OleDbType.VarChar).Value = TextRemarques.Text
 
 
 
                .Connection = cn
                i = .ExecuteNonQuery()
                .Dispose()
 
                cn.Close()
                If (i > 0) Then
                    MsgBox("Données sauvegardées !")
                End If
 
 
                ComboBoxCode.Text = ""
                TextBoxNom.Text = ""
                TextBoxPrenom.Text = ""
                CboPoste.Text = ""
                DateTimePickerDate_de_demarrage_Projet.Text = ""
                CboNom_Projet.Text = ""
                CboRef_Projet.Text = ""
                TextDesignation_Tache.Text = ""
                MaskedTextBoxHeures_Depart.Text = ""
                MaskedTextBoxHeures_Fin.Text = ""
                DateTimePickerDate_de_Fin_Projet.Text = ""
                DateTimePickerDate_de_Licenciement.Text = ""
                TextRemarques.Text = ""
 
                cn.Close()
            End With
            remplirDatagridProjet()
            ComboBoxCode.Items.Clear()
 
 
 
            remplirComboxcode()
        Catch ex As Exception
            MsgBox("Erreur lors de l'enregistrement de données. Access exige que les champs (Numeriques) soient remplis!")
            'MsgBox(ex.Message)
        End Try
 
 
    End Sub
 
    '---Excecution du bouton Supprimer. Suppression de données dans la Table Employers
 
    Private Sub BtnSupprimer_Click(sender As Object, e As EventArgs) Handles BtnSupprimer.Click
 
 
 
        Try
            Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\V_Techno_DB_be.mdb")
 
            Dim cmd As New OleDbCommand("select * from Employers where Code='" & ComboBoxCode.Text & "'", cn)
            cn.Open()
            Dim dr As OleDbDataReader = cmd.ExecuteReader
            dr.Read()
            dr.Close()
            Dim da As New OleDbDataAdapter(cmd)
            Dim ds As New DataSet
            da.Fill(ds, "V_Techno_DB_be")
            ds.Tables("V_Techno_DB_be").Rows(0).Delete()
            Dim cb As New OleDbCommandBuilder(da)
            da.Update(ds, "V_Techno_DB_be")
 
 
            ComboBoxCode.Text = ""
            TextBoxNom.Text = ""
            TextBoxPrenom.Text = ""
            CboPoste.Text = ""
            DateTimePickerDate_de_demarrage_Projet.Text = ""
            CboNom_Projet.Text = ""
            CboRef_Projet.Text = ""
            TextDesignation_Tache.Text = ""
            MaskedTextBoxHeures_Depart.Text = ""
            MaskedTextBoxHeures_Fin.Text = ""
            DateTimePickerDate_de_Fin_Projet.Text = ""
            DateTimePickerDate_de_Licenciement.Text = ""
            TextRemarques.Text = ""
 
 
 
            cn.Close()
            MsgBox("Données supprimées !")
 
            remplirDatagridProjet()
            ComboBoxCode.Items.Clear()
 
            remplirComboxcode()
 
        Catch ex As Exception
            ' MsgBox(ex.Message)
        End Try
 
    End Sub
 
 
 
    '---Excecution du bouton Actualiser. Ce bouton permet de voir en temps reel les changements effectués sur les données de la Table Projets
 
    Private Sub BtnActualisation_Click(sender As Object, e As EventArgs) Handles BtnActualisation.Click
 
 
 
        remplirDatagridProjet()
        ComboBoxCode.Items.Clear()
 
 
 
        remplirComboxcode()
 
 
    End Sub
 
    Private Sub BtnFermerr_Click(sender As Object, e As EventArgs) Handles BtnFermerr.Click
 
        Me.Hide()
 
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        LabelHeure.Text = TimeOfDay
    End Sub
 
    '---Afficheur de Date
    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        LabelDate.Text = Date.Now.ToString("dd/MM/yyyy")
    End Sub
 
 
    '---un element selectionné dans le ComboBoxCode affiche dans les TextBox leur données correspondantes
 
    Private Sub ComboBoxCode_SelectedIndexChanged_1(sender As Object, e As EventArgs)
 
 
        Try
            Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\V_Techno_DB_be.mdb")
 
            Dim cmd As New OleDbCommand("select * from RequêteGENERALE where Code='" & ComboBoxCode.Text & "'", cn)
            cn.Open()
            Dim dr As OleDbDataReader = cmd.ExecuteReader
            dr.Read()
 
 
 
            TextBoxNom.Text = dr(1).ToString
            TextBoxPrenom.Text = dr(2).ToString
            CboPoste.Text = dr(3).ToString
            DateTimePickerDate_de_demarrage_Projet.Text = dr(4).ToString
            CboNom_Projet.Text = dr(5).ToString
            CboRef_Projet.Text = dr(6).ToString
            TextDesignation_Tache.Text = dr(7).ToString
            MaskedTextBoxHeures_Depart.Text = dr(8).ToString
            MaskedTextBoxHeures_Fin.Text = dr(9).ToString
            DateTimePickerDate_de_Fin_Projet.Text = dr(10).ToString
            DateTimePickerDate_de_Licenciement.Text = dr(11).ToString
            TextRemarques.Text = dr(12).ToString
 
            dr.Close()
            cn.Close()
        Catch ex As Exception
            'MsgBox(ex.Message)
 
 
        End Try
 
 
 
    End Sub
 
 
 
    Private Sub MaskedTextBox1_MaskInputRejected(sender As Object, e As MaskInputRejectedEventArgs) Handles MaskedTextBoxHeures_Depart.MaskInputRejected
        Try
            Debug.Print(CDate(Me.MaskedTextBoxHeures_Depart.Text))
        Catch ex As Exception
            MessageBox.Show("Entrer Chiffres!")
        End Try
    End Sub
 
    Private Sub MaskedTextBox2_MaskInputRejected(sender As Object, e As MaskInputRejectedEventArgs) Handles MaskedTextBoxHeures_Fin.MaskInputRejected
        Try
            Debug.Print(CDate(Me.MaskedTextBoxHeures_Fin.Text))
        Catch ex As Exception
            MessageBox.Show("Entrer Chiffres!")
        End Try
    End Sub
 
 
    Private Sub ComboBoxCode_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs)
        If Not (Char.IsNumber(e.KeyChar) Or Char.IsControl(e.KeyChar)) Then
 
            e.Handled = True
 
        End If
    End Sub
 
 
 
 
 
 
    Private Sub BtnModifiers_Click(sender As Object, e As EventArgs) Handles BtnModifiers.Click
        Try
            Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\V_Techno_DB_be.mdb")
            'RequêteGENERALE
 
            Dim cmd As New OleDbCommand("select * from Employers where Nom='" & TextBoxNom.Text & "'", cn)          '("select * from RequêteGENERALE where Code='" & ComboBoxCode.Text & "' Or  Nom='" & TextBoxNom.Text & "' Or Prenom='" & TextBoxPrenom.Text & "'", cn)   'Code ='" & ComboBoxCode.Text & "' or
            cn.Open()
            Dim dr As OleDbDataReader = cmd.ExecuteReader
            dr.Read()
            dr.Close()
            Dim da As New OleDbDataAdapter(cmd)
            Dim ds As New DataSet
            da.Fill(ds, "RequêteGENERALE")
 
            ds.Tables("RequêteGENERALE").Rows(0)("Code") = ComboBoxCode.Text
            ds.Tables("RequêteGENERALE").Rows(0)("Nom") = TextBoxNom.Text
            ds.Tables("RequêteGENERALE").Rows(0)("Prenom") = TextBoxPrenom.Text
            ds.Tables("RequêteGENERALE").Rows(0)("Poste") = CboPoste.Text
            ds.Tables("RequêteGENERALE").Rows(0)("Date_Demarrage_Projet") = DateTimePickerDate_de_demarrage_Projet.Text
            ds.Tables("RequêteGENERALE").Rows(0)("Nom_Projet") = CboNom_Projet.Text
            ds.Tables("RequêteGENERALE").Rows(0)("Ref_projet") = CboRef_Projet.Text
            ds.Tables("RequêteGENERALE").Rows(0)("Designation_Tache") = TextDesignation_Tache.Text
            ds.Tables("RequêteGENERALE").Rows(0)("Heures_Depart") = MaskedTextBoxHeures_Depart.Text
            ds.Tables("RequêteGENERALE").Rows(0)("Heures_FIN") = MaskedTextBoxHeures_Fin.Text
            ds.Tables("RequêteGENERALE").Rows(0)("Date_de_Fin_Projet") = DateTimePickerDate_de_Fin_Projet.Text
            ds.Tables("RequêteGENERALE").Rows(0)("Date_de_Licenciement") = DateTimePickerDate_de_Licenciement.Text
            ds.Tables("RequêteGENERALE").Rows(0)("Remarques") = TextRemarques.Text
 
 
            Dim cb As New OleDbCommandBuilder(da)
            da.Update(ds, "RequêteGENERALE")
 
            ComboBoxCode.Text = ""
            TextBoxNom.Text = ""
            TextBoxPrenom.Text = ""
            CboPoste.Text = ""
            DateTimePickerDate_de_demarrage_Projet.Text = ""
            CboNom_Projet.Text = ""
            CboRef_Projet.Text = ""
            TextDesignation_Tache.Text = ""
            MaskedTextBoxHeures_Depart.Text = ""
            MaskedTextBoxHeures_Fin.Text = ""
            DateTimePickerDate_de_Fin_Projet.Text = ""
            DateTimePickerDate_de_Licenciement.Text = ""
            TextRemarques.Text = ""
 
 
 
            cn.Close()
            MsgBox("Données mise à jour !")
 
            remplirDatagridProjet()
            ComboBoxCode.Items.Clear()
            remplirComboxcode()
 
        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
    End Sub
 
 
End Class

**zitoune92** · 28/04/2017, 09h26

Encore une fois: redéfinis ta table "Employé" avec un champ "code" comme Autonumber. Tu n'auras plus à t'en occuper, c'est le moteur d'Access qui se charge de générer à chaque nouvel enregistrement un nombre unique.

Ton code

Code :

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

1
2
3
4
5
6
7
8
With cmd
 
                rSQL = "insert into Employers(Code,Nom,Prenom,Poste,Date_de_demarrage_Projet,Nom_Projet,Ref_Projet,Designation_Tache,Heures_Depart,Heures_FIN,Date_de_Fin_Projet,Date_de_Licenciement,Remarques) values (@a1,@a2,@a3,@a4,@a5,@6,@a7,@a8,@a9,@a10,@11,@12,@13)"
                .CommandText = rSQL
 
 
                .Parameters.Add("@a1", OleDbType.VarChar).Value = ComboBoxCode.Text
                .Parameters.Add("@a2", OleDbType.VarChar).Value = TextBoxNom.Text

Tu le change avec

Code :

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

1
2
3
4
5
6
7
With cmd
 
                rSQL = "insert into Employers(Nom,Prenom,Poste,Date_de_demarrage_Projet,Nom_Projet,Ref_Projet,Designation_Tache,Heures_Depart,Heures_FIN,Date_de_Fin_Projet,Date_de_Licenciement,Remarques) values (@a2,@a3,@a4,@a5,@6,@a7,@a8,@a9,@a10,@11,@12,@13)"
                .CommandText = rSQL
 
 
                .Parameters.Add("@a2", OleDbType.VarChar).Value = TextBoxNom.Text

(le champ Code sera mis à jour automatiquement)

Si Autonumber ne te parle pas, vois quelque tuto Access...

VB.NET et ACCESS

VB.NET

Vue hybride

Discussions similaires

Partager

Partager