Discussion :

[NeHuS]

Salut tout le monde ,
j'ai repris une appli qui tournait sur access , je l'ai migré sur sql server , j'utilise un

Code :

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

set cmd = createObject("ADODB.Command")

pour mes requetes avec access cela fonctionnait parfaitement , d'une maniere differente , actuellement j'utilise un seul objet command ( variable cmd) auquel j'alloue les differentes requetes et plusieurs recordet qui font les boucles etc...

pour la 1ere requete c'est ok des que je mets la seconde :

Code :

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

1
2
3
 
Microsoft VBScript runtime (0x800A01A8)
Object required

mouais donc j'ai creer une seconde instance de adobd.command mais meme resultat , une idée ?

[Oluha]

perso moi je fais comme ça :

Code :

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

1
2
3
set RS = server.CreateObject("ADODB.RecordSet")
sql = "select STOCK_VPC.*, STOCK_DEPART+STOCK_ACHATS-(STOCK_JANVIER+STOCK_FEVRIER+STOCK_MARS+STOCK_AVRIL+STOCK_MAI+STOCK_JUIN+STOCK_JUILLET+STOCK_AOUT+STOCK_SEPTEMBRE+STOCK_OCTOBRE+STOCK_NOVEMBRE+STOCK_DECEMBRE) as TOTAL from STOCK_VPC order by CODE_PRODUIT"
RS.open sql, connex

[NeHuS]

Salut oluha et merci pour cette réponse rapide , je faisais aussi comme ça, mais c'est pareil et même plus simple d 'utiliser .commandText ... enfin


tout ça pour dire que ta solution ou la mienne donne le meme resultat , pour y voir plus clair j'ai fais un

Code :

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

On Error Resume Next

et typiquement il s'arrete a le seconde iteration de la seconde requete ... c'est sur que ça vient du recordset ...

[Oluha]

tu utilises le même RS pour tes 2 requêtes ?

[NeHuS]

Les recordset sont differents ( ce qui est normal ) le set cmd = createObject("ADODB.Command") est le meme ...

[Oluha]

je connais pas le command, je peux pas t'aider à ce sujet

[Immobilis]

Salut,

Tu passes ta commande en variable globale et non locale. Il faut la déclarer en dehors de ta procedure.

A+

[NeHuS]

comme son nom l 'indique voila la procedure qui se connecte a la db

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
 
sub openDB()
 
set cmd = createObject("ADODB.Command")
set cnn = createObject("ADODB.Connection")
 
 
sCmd= "driver={SQL Server};" & _
	"Provider=sqloledb;" & _
	"Data Source=une_source;" & _
	"Initial Catalog=un_catalogue;" & _
  	"User Id=un_id;" & _
   	"Password=un_password"
 
cnn.Open sCmd
 
cmd.ActiveConnection = cnn
 
end sub

ensuite je fais

Code :

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

1
2
3
4
5
 
 
call opendb()
 
call mesrequtesimbriquées()

voila un extrait de code de la procedure mesrequestesimbriqué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
19
20
21
22
23
24
25
26
27
28
29
30
31
 
sub mesrequestesimbriquées  () 
set rs_1  = createObject("ADODB.Recordset")
set rs_2     = createObject("ADODB.Recordset")
 
cmd.commandText = "SELECT DISTINCT untruc FROM latable"
 
rs_1.open cmd
 
if not ...
do while ...
 
' imbrication...
 
	cmd.commandText = "SELECT DISTINCT unautretruc FROM latable WHERE untruc='" & rs_1(0) & "'"  
	rs_2.open cmd
if not ...
'traitement
 
'boucle
 
rs_2.movenext
loop
rs_2.close
 
 
rs1.movenext
 
...
 
end sub

donc voila tu me dis de mettre en global set cmd = createObject("ADODB.Command") ? ça n'a pas l'air de fonctionner ...

[Immobilis]

Non,

Tu mets

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
 
Dim cmd
Dim cnn
Dim sCmd
 
sub openDB()
 
set cmd = createObject("ADODB.Command")
set cnn = createObject("ADODB.Connection")
 
 
sCmd= "driver={SQL Server};" & _
	"Provider=sqloledb;" & _
	"Data Source=une_source;" & _
	"Initial Catalog=un_catalogue;" & _
  	"User Id=un_id;" & _
   	"Password=un_password"
 
cnn.Open sCmd
 
cmd.ActiveConnection = cnn
 
end sub

Comme cela tu peux les utiliser dans chacune de tes procédures et tu detruits tout à la fin de ta page. Inutile d'en créer 36! Tu imagines si tu fais 200 boucles!

ET NE PAS OUBLIER OPTION EXPLICIT

A+

[NeHuS]

Waip encore moi , aprés avoir mis option explicit et donc la declaration des var ( en global ) et bien j'en reviens au meme probleme que j'ai depuis le debut : ça ne boucle pas ,le recordset s'arrete ...

je n'utilise plus l'objet commande pour plus de "simplicite"

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
24
25
26
27
28
29
30
31
 
sql_1 = "SELECT untrcuc FROM unetable"
 
 
rs_1.open sql_1 , cnt_DB
if not rs_1.eof then 
 
            do while not rs_1.eof 
                response.write(rs_1(0))  
 
 
sql_2 = "SELECT autre_chose FROM unetable WHERE untruc='" & rs_1(0) & "'" 
				rs_2.open sql_2 , cnt_DB
				if not rs_2.eof and rs_1(0) <> "" then 
				do while not rs_2.eof 
						response.write(...
 
	               rs_2.movenext 
               loop
 
            end if
        rs_2.close
        set rs_2 = nothing
 
 
 rs_1.movenext                                                 
    Loop
end if        
rs_1.close
set rs_1 = nothing
end sub

au pire est ce que quelqu'un a un exemple de requete imbriquées sur une base sql server , que je regarde ou est le probleme :s

[NeHuS]

Oluha : l'objet command est un peu mieux que le simple recordset dans le sens ou c'est plus simple pour pour paramétrer les requêtes ( avec un "?" )


tuto vbscript ADODB regarde la si tu veux : http://drq.developpez.com/vb/tutoriels/ADO/Chapitre4/


c'est bon probleme resolu : set rs_2 = nothing

je ne sais pourquoi il fallait le mettre comme ça :

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
       rs_2.movenext 
               loop
 
            end if
        rs_2.close
 
 
 
 rs_1.movenext                                                 
    Loop
end if        
rs_1.close
 
 
 
 
set rs_1 = nothing
end sub

Voila donc c'etait bien un probleme de recordset grrr !

[Immobilis]

Ah, dslé, j'ai confondu avec procedure imbriquées