Select puis Insert

Version imprimable

Select puis Insert

Bonjour
Comment puis-je faire un select puis un insert ?

Code:

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.

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

Code:

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

07/11/2009, 16h42
_PascalC_
Salut, pas besoin de boucler, tu peux faire ce que tu veux en une seule requête SQL :
Code:

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 ;)
09/11/2009, 09h22
amirad
Citation:
Envoyé par _PascalC_

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

Code:

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.