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
| Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Public Class InterroRéalisateur
Private Sub InterroRéalisateur_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn_string As String
Dim req_str As String
Dim dttable As New DataTable
conn_string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Access\DvdData.mdb"
req_str = "Select Réalisateur from Vidéo Group by Réalisateur"
Using conn As New OleDb.OleDbConnection(conn_string)
Dim cmd As New OleDb.OleDbCommand(req_str, conn)
conn.Open()
Dim dt_reader As OleDb.OleDbDataReader = cmd.ExecuteReader
dttable.Load(dt_reader)
With ComboBoxRéalisateur
.DataSource = dttable
.DisplayMember = "Réalisateur"
.ValueMember = "Réalisateur"
End With
TextBoxRéalisateur.Text = ComboBoxRéalisateur.SelectedValue.ToString
dt_reader.Close()
conn.Close()
End Using
End Sub
Private Sub BtnFermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFermer.Click
Close()
End Sub
Private Sub ComboBoxRéalisateur_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBoxRéalisateur.SelectionChangeCommitted
TextBoxRéalisateur.Text = ComboBoxRéalisateur.SelectedValue.ToString
RésultatRéalisateur.Show()
End Sub
End Class |
