[VB6][SQL] Convertion de code en SQL

Version imprimable

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:

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

qqch comme ça :

Code:

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

29/12/2006, 19h54
Sytchev3

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.
29/12/2006, 20h08
Antoun

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.

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:

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

03/01/2007, 04h47
Antoun

Citation:

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 ?

Citation:

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.
03/01/2007, 08h57
Sytchev3

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.
03/01/2007, 21h14
Antoun

euh... je t'invite à relire lentement mon message précédent, en prêtant attention au mot en gras...
04/01/2007, 12h28
Sytchev3

tu vas me prendre pour un demeuré mais à quel moment alimentes tu le champ UTILISC qui provient de la table TPUTILIS dans la table TPUTIETA ???

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 :D )

Alors je te propose d'essayer avec :
Code:

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!

09/01/2007, 11h06
Sytchev3

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

Encore merci.:D

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

Code:

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

10/01/2007, 06h53
Antoun

Citation:

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 :oops: désolé !
10/01/2007, 09h25
Sytchev3

Ca n'est pas dramatique puisque ta solution marche désormais. Merci Beaucoup