Discussion :

[chipmunkette]

Dans mon frm_load il est declaré de façon a ce qu'il recupere le numero et le titre .

Code :

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

1
2
3
4
5
6
7
8
 Dim requete As SqlCommand = MyConnexion.CreateCommand()
requete.CommandText = "SELECT Rubrique.Numero_Rubrique, Rubrique.Titre_rubrique from Rubrique;"
  Dim myReader As SqlDataReader = requete.ExecuteReader()
            Do While myReader.Read()
                lstbRubBD.Items.Add(myReader.GetValue(0) & " " & myReader.GetValue(1))
 
            Loop
            myReader.Close()

Sachant que GetValue(0) = a l'id et getVBalue(1) = le nom

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
'Selection le ernier numero ajouter
Dim requete4 As SqlCommand = MyConnexion.CreateCommand()
requete4.CommandText = "Select max([code_numero]) from Numero;"
Dim nb As Integer = requete4.ExecuteScalar()
 
'Ajoute
Dim strql As String
Dim requete2 As SqlCommand = MyConnexion.CreateCommand()
 
 
'Pour chaque rubrique choisi, insere le numero dans lequel il figure
For Each Rubrique As Integer In LSTbRubChoix.Items
 
    strql = "INSERT INTO figurer (code_numero_Numero, Numero_rubrique_Rubrique) VALUES ('" & nb & "', '" & Rubrique & "' );"
 
    requete2.CommandText = strql
    Dim resultat = requete2.ExecuteScalar
Next

Voila la partie qui m'interersse dans & rubrique & j'ai le num et le titre mais je veux que le num comment faire ?

[Sankasssss]

Bonsoir,

si vous remplissez votre ListBox via un datatable :

Code :

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

1
2
3
4
5
6
7
8
9
10
  Using requete As SqlCommand = MyConnexion.CreateCommand()
            requete.CommandText = "SELECT Rubrique.Numero_Rubrique, Rubrique.Numero_Rubrique || ' ' || Rubrique.Titre_rubrique numero_titre from Rubrique"
            Using adapt As New SqlDataAdapter(requete)
                Dim dt As New DataTable
                adapt.Fill(dt)
                ListBox1.DataSource = dt
                ListBox1.ValueMember = "Numero_Rubrique"
                ListBox1.DisplayMember = "numero_titre"
            End Using
        End Using

vous pouvez facilement retrouver cette valeur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        Using com As New SqlCommand("INSERT INTO figurer (code_numero_Numero, Numero_rubrique_Rubrique) VALUES (@nb , @rubrique )")
 
            com.Parameters.Add("@nb", SqlDbType.Int)
            com.Parameters.Add("@rubrique", SqlDbType.Int)
 
            For Each row As DataRowView In ListBox1.Items
                com.Parameters("@nb").Value = nb
                com.Parameters("@rubrique").Value = row("Numero_Rubrique")
                com.ExecuteNonQuery()
            Next
        End Using

Je vous conseille d'utiliser les requêtes paramétrées comme ci-dessus pour des raisons de sécurité et de facilité (vous aurez moins d'erreurs de typage).