[VB6][SQL] Convertion de code en SQL

**Sytchev3** · 29/12/2006, 15h51

Bonjour à tous, j'ai un petit souci de convertion. je souhaite convertir le code qui suit en ordre SQL mais je ne voie vraiment pas comment faire.

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
 sRequete = "select * from TPUTILIS"
        selTPUTILST.Open sRequete, gConexion, adOpenStatic, adLockReadOnly, adCmdText
 
        sRequete = "SELECT * FROM TPUTIETA"
        upd.Open sRequete, gConexion, adOpenStatic, adLockOptimistic, adCmdText
 
        Do Until selTPUTILST.EOF
 
            upd.AddNew
            upd!UTILISC = selTPUTILST!UTILISC
            upd!FORMATY = "Ordre Mission"
            upd!FORMATL = selTPUTILST!FRMOM0L
            upd!IMPRIML = selTPUTILST!IMPOM0L
            upd!CHOIX0C = selTPUTILST!CHXOM0C
            upd!NEXEMPQ = selTPUTILST!NEXOM0Q
            upd!DERMAJC = "SMS"
            upd!DERMAJD = Date + Time
            upd!CREATIC = "SMS"
            upd!CREATID = Date + Time
 
            upd.Update
             selTPUTILST.MoveNext
             Loop

Merci d'avance

**Antoun** · 29/12/2006, 18h07

qqch comme ça :

Code :

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

1
2
3
4
5
6
INSERT INTO TPUTIETA
(FORMATY, FORMATL, IMPRIML, CHOIX0C, 
  NEXEMPQ, DERMAJC, DERMAJD, CREATIC, CREATID)
SELECT 'OrdreMission', FRMOM0L, IMPOM0L, CHXOM0C, 
  NEXOM0Q, 'SMS', NOW(), 'SMS', NOW()
FROM TPUTILST

**Sytchev3** · 29/12/2006, 19h54

Je te remercie de t'être penché sur mon problème, je vais tester ta solution, mais j'aurai bien aimé conservé le même type de structure : un curseur, un tant que. Si tu sait comment faire je t'en serais très reconnaissant.

**Antoun** · 29/12/2006, 20h08

Le curseur est inutile, contre-productif, et dépendant du SGBD. Le code que je t'ai donné insère en bloc de manière ensembliste bcp + efficace.

**Sytchev3** · 02/01/2007, 09h48

Ta solution ne peut pas marcher, je suis obligé de passer par une boucle puisque je doit créer autant de ligne que j'ai de UTILISC.

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
 sRequete = "select * from TPUTILIS"
        selTPUTILST.Open sRequete, gConexion, adOpenStatic, adLockReadOnly, adCmdText
 
        sRequete = "SELECT * FROM TPUTIETA"
        upd.Open sRequete, gConexion, adOpenStatic, adLockOptimistic, adCmdText
 
        Do Until selTPUTILST.EOF
 
            upd.AddNew
            upd!UTILISC = selTPUTILST!UTILISC
 
            ...
 
            upd.Update
             selTPUTILST.MoveNext
             Loop

**Antoun** · 03/01/2007, 04h47

Envoyé par Sytchev3

Ta solution ne peut pas marcher,

c'est pas beau d'avoir des a-priori ! Je t'ai proposé une INSERT... SELECT, qui prend toutes les lignes de TPUTILIS et les copie dans TPUTIETA. Ce n'est pas ça que tu voulais ?

Envoyé par Sytchev3

je suis obligé de passer par une boucle puisque je doit créer autant de ligne que j'ai de UTILISC.

En BDD, on n'est presque jamais obligé de faire des boucles. Le SGBD est là pour optimiser des traitements en masse, et non pour travailler ligne par ligne.

**Sytchev3** · 03/01/2007, 08h57

Je suis bien d'accord avec toi, mais moi je souhaite qu'à chaque ligne de TPUTILIS (chaque fois que j'ai un UTILISC différent) je mette à jour ma table TPUTIETA.

**Mymi** · 09/01/2007, 03h24

Le code de Antoun me semble intéressant, il faut peut-être simplement ajouter le premier champ. Il s'agit peut-être d'un oubli ou peut-être qu'étant donnée que les champs on le même nom dans les 2 tables qu'on a pas besoin de les mentionner explicitement (je suis loin d'être une pro dans le domaine mais ça m'intéresse

)

Alors je te propose d'essayer avec :

Code :

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

1
2
3
4
5
6
INSERT INTO TPUTIETA
(UTILISC, FORMATY, FORMATL, IMPRIML, CHOIX0C, 
  NEXEMPQ, DERMAJC, DERMAJD, CREATIC, CREATID)
SELECT UTILISC, 'OrdreMission', FRMOM0L, IMPOM0L, CHXOM0C, 
  NEXOM0Q, 'SMS', NOW(), 'SMS', NOW()
FROM TPUTILST

Tiens nous au courant de tes essais.

Bonne chance!

**Sytchev3** · 09/01/2007, 11h06

Je tenais à vous remercier (Antoun et Mymi), j'ai testé la solution proposée et ça marche impecablement.

Encore merci.

**Sytchev3** · 09/01/2007, 11h08

Par contre j'ai du remplacer le NOW puisque j'utilise SQL SERVER :

Code :

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

1
2
3
4
5
6
INSERT INTO TPUTIETA
(UTILISC, FORMATY, FORMATL, IMPRIML, CHOIX0C, 
  NEXEMPQ, DERMAJC, DERMAJD, CREATIC, CREATID)
SELECT UTILISC, 'OrdreMission', FRMOM0L, IMPOM0L, CHXOM0C, 
  NEXOM0Q, 'SMS', GETDATE(), 'SMS', GETDATE()
FROM TPUTILST

**Antoun** · 10/01/2007, 06h53

Envoyé par Mymi

Le code de Antoun me semble intéressant, il faut peut-être simplement ajouter le premier champ. Il s'agit peut-être d'un oubli ou peut-être qu'étant donnée que les champs on le même nom dans les 2 tables qu'on a pas besoin de les mentionner explicitement

C'est juste un oubli de ma part

désolé !