Bonjour
Comment puis-je faire un select puis un insert ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim req2 As String = "SELECT CODE,NOM FROM MATABLE"
            Dim cmd2 As New SqlCommand(req2, cnx)
            Dim reader2 As SqlDataReader = cmd2.ExecuteReader()
            While reader2.Read
                CODE = reader2(0)
                NOM = reader2(1)
            End While
            reader2.Close()
 
            'Insertion dans la table3
            Dim reqIns2 As String = "insert into TABLE3 values ('" & code & "', '" & NOM &"')"
            Dim cmdIns2 As New SqlCommand(reqIns2, cnx)
            cmdIns2.ExecuteNonQuery()
Ce bout de code ne me permet pas de boucler, il m'insère qu'une seule ligne dans TAble3.