Bonjour
Pour remplir un formulaire j'ai créé une SQL qui attaque une requête Access
Quand cette SQL tombe sur un champ vide celle-ci s'arrête et n'affiche pas tous les champs du formulaire
Par exemple si un acteur est encore vivant le champ 'Mort' est vide
Dès que la requête tombe sur ce champ elle s'arrête !
Voici mon code pour ce form
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
Private Sub Filmo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBoxActeur.Text = VisuFilmsAvecPhotosActeurs.TextBoxPhotoActeur.Text
        Me.Text = "Filmographie de " & TextBoxActeur.Text
        ListViewFilms.Items.Clear()
        ListViewFilms.Columns.Clear()
        Me.ListViewFilms.ListViewItemSorter = Nothing
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
                     "C:\Access\DvdData.mdb")
        Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
 
        Mycommand.CommandText = "SELECT * FROM Filmographie WHERE Acteur1 =  '" & TextBoxActeur.Text & "'"
        MyConnexion.Open()
 
        Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
        ListViewFilms.View = View.Details
        With ListViewFilms.Columns
            .Add("N°", 100, HorizontalAlignment.Left)
            .Add("Films", 320, HorizontalAlignment.Left)
        End With
 
 
        Do While myReader.Read()
            TextBoxActeur.Text = myReader.GetValue(1).ToString
            TextBoxNaissance.Text = myReader.GetValue(3)
            TextBoxMort.Text = myReader.GetValue(4)
            TextBoxAgeDC.Text = myReader.GetValue(6)
            TextBoxVilleNaissance.Text = myReader.GetValue(12)
            TextBoxNationalite.Text = myReader.GetValue(13)
            TextBoxPaysNaissance.Text = myReader.GetValue(14)
            TextBoxVilleDC.Text = myReader.GetValue(15)
            TextBoxPaysDC.Text = myReader.GetValue(16)
 
            Dim _MyListViewItem As ListViewItem = New ListViewItem(Format(myReader.GetValue(10), "000"))
            With _MyListViewItem
                .SubItems.Add(myReader.GetValue(7).ToString)
            End With
            ListViewFilms.Items.Add(_MyListViewItem)
        Loop
        myReader.Close()
        MyConnexion.Close()
    End Sub
J'espère que vous pourrez m'aider
D'avance merci