Discussion :

[amirad]

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.

[benito9253]

Essaye d'utiliser un tableau pour stocker les données:

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
Dim CODE, NOM As String()
 
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 
            For i = 0 to CODE.lenght - 1
            reqIns2 = "insert into TABLE3 values ('" & code(i) & "', '" & NOM(i) &"')"
            Dim cmdIns2 As New SqlCommand(reqIns2, cnx)
            cmdIns2.ExecuteNonQuery()
            Next

[_PascalC_]

Salut, pas besoin de boucler, tu peux faire ce que tu veux en une seule requête SQL :

Code :

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

1
2
3
4
 
Dim cmd As New SqlCommand("INSERT INTO TABLE3 (Champs1, Champs2) SELECT CODE, NOM FROM MATABLE", cnx)
cmd.ExecuteNonQuery()
cmd.Dispose()

... avec Champs1 et Champs2 à remplacer évidemment

[amirad]

Salut, pas besoin de boucler, tu peux faire ce que tu veux en une seule requête SQL :

Code :

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

1
2
3
4
 
Dim cmd As New SqlCommand("INSERT INTO TABLE3 (Champs1, Champs2) SELECT CODE, NOM FROM MATABLE", cnx)
cmd.ExecuteNonQuery()
cmd.Dispose()

... avec Champs1 et Champs2 à remplacer évidemment

MErci. Résolu.