Discussion :

[isa21493]

bonjour à tous,

voici mon code :

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
32
33
34
35
36
37
38
39
40
41
42
Set rsa = Server.CreateObject("ADODB.Recordset")
rsa.ActiveConnection = cn
rsa.Open "DROP TABLE tmp_critere", , , , adCmdText
 
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.ActiveConnection = cn
rs2.Open "SELECT count FROM tmp_count " , , , , adCmdText
 
nbre_group=rs2.Fields("count").Value
response.Write("coucou")
for i=1 to nbre_group
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.ActiveConnection = cn
	rs.Open "SELECT * FROM tmp_resultats_"&i , , , , adCmdText
 
	'do until rs.EOF
	if(i=1)then
	tmp=rs.Fields("Critere").Value
	response.Write(tmp)
	Set rs3 = Server.CreateObject("ADODB.Recordset")
	rs3.ActiveConnection = cn
	rs3.Open "SELECT '" & tmp & "' AS Critere INTO tmp_critere" , , , , adCmdText
	rs.Movenext
	response.Write(rs.Fields("Critere").Value)
	do until rs.EOF
	tmp=rs.Fields("Critere").Value
	Set rs4 = Server.CreateObject("ADODB.Recordset")
	rs4.ActiveConnection = cn
	rs4.Open "INSERT INTO tmp_critere(Critere) SELECT '" & tmp & "'" , , , , adCmdText
	rs.Movenext
	loop
 
	else
	do until rs.EOF
	tmp=rs.Fields("Critere").Value
	Set rs5 = Server.CreateObject("ADODB.Recordset")
	rs5.ActiveConnection = cn
	rs5.Open "INSERT INTO tmp_critere(Critere) SELECT '" & tmp & "'" , , , , adCmdText
	rs.Movenext
	loop
	end if
next

en fait je crée une table où j'y insere ma variable tmp qui comprend le résultat d'une autre requete.
Ce que je veux c récupérer les données du champ critere qui se trouvent dans les tables tmp_resultats_1, tmp_resultats_2, tmp_resultats_3 et les mettre à la suite dans la table tmp_critere.

mais en faisant ça jk'ai une erreur me disant :

Les données chaîne ou binaires seront tronquées.

au niveau de :

Code :

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

rs4.Open "INSERT INTO tmp_critere(Critere) SELECT '" & tmp & "'" , , , , adCmdText

si qqun pouvait m'aider à réparer mon erreur ce serait formidable, j'ai une heure pour le faire.

Merci

[isa21493]

j'ai trouvé moins long comme code mais j'ai toujours la meme erreur:

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
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.ActiveConnection = cn
rs2.Open "SELECT count FROM tmp_count " , , , , adCmdText
 
nbre_group=rs2.Fields("count").Value
response.Write("coucou")
 
 
for i=1 to nbre_group
	Set rs1 = Server.CreateObject("ADODB.Recordset")
	rs1.ActiveConnection = cn
	rs1.Open "SELECT * FROM tmp_resultats_"&i , , , , adCmdText
 
	do until rs1.EOF
		tmp=rs1.Fields("Critere").Value
 
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.ActiveConnection = cn
		rs.Open "INSERT INTO tmp_critere(Critere) VALUES('"& tmp & "')" , , , , adCmdText
		rs1.MoveNext
	loop
next