Recordset dans un array

Version imprimable

Bonjour,

J'obtiens un recordset avec 41 enregistrements que j'aimerais transposer dans des arrays. Voici mon code.
J'aimerais savoir pourquoi que les données quis sont inscrites dans mes arrays égalent "" au lieu des vrai données?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
oRS3a.movefirst
		  bindtempp = 0  
 
		  'Je mets toutes les informations dans un tableau
		 		  while not oRS3a.eof
						 NP(bindtempp)= oRS3a.Fields.Item("HostNumberingPlan")
		     CS(bindtempp)= oRS3a.Fields.Item("HostCOS")
			 RR(bindtempp)= oRS3a.Fields.Item("HostRemark")
		     TP(bindtempp)= oRS3a.Fields.Item("HostTP")
			 ST(bindtempp)= oRS3a.Fields.Item("HostStatus")
		     PT(bindtempp)= oRS3a.Fields.Item("HostPortable")
 
		 	bindtempp = bindtempp + 1
		 	oRS3a.movenext
		  wend

02/09/2010, 07h52
roro06

Bonjour

En principe :

Code:

NP(bindtempp)= oRS3a.Fields.Item("HostNumberingPlan").value

Code:

1
2
3
4
5
6
7
8
9
10
11
12
'Je mets toutes les informations dans un tableau
           Do While NOT  oRS3a.eof
           NP(bindtempp)= oRS3a("HostNumberingPlan")
		     CS(bindtempp)= oRS3a("HostCOS")
			 RR(bindtempp)= oRS3a("HostRemark")
		     TP(bindtempp)= oRS3a("HostTP")
			 ST(bindtempp)= oRS3a("HostStatus")
		     PT(bindtempp)= oRS3a("HostPortable")
 
		 	bindtempp = bindtempp + 1
		 	oRS3a.movenext
		  Loop

Bonjour, finalement j'ai changé un peu ma connexion et le type de curseur
et aussi j'ai enlevé le fla fla '.Fields.Item' tout fonctionne bien!

Code:

1
2
3
4
5
6
7
8
9
10
Set oConn = Server.CreateObject("ADODB.Connection")
	strConn = "Driver={SQL Server};Server=NomServeur;Database=BDNom;Uid=admin;Pwd=admin;"
		oConn.Open strConn
 
		q = "select * from tbl_host where SerialNumber = " & SerialNumber & " order by nohost"
 
		' Objet recordset
		Set oRS3a = Server.CreateObject("ADODB.Recordset")
 
		oRS3a.Open q, oConn,  adLockReadOnly

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Je mets toutes les informations dans un tableau
           Do While NOT  oRS3a.eof
 
              NP(bindtempp)= oRS3a("HostNumberingPlan")
              CS(bindtempp)= oRS3a("HostCOS")
              RR(bindtempp)= oRS3a("HostRemark")
	 TP(bindtempp)= oRS3a("HostTP")
	 ST(bindtempp)= oRS3a("HostStatus")
	 PT(bindtempp)= oRS3a("HostPortable")
 
              bindtempp = bindtempp + 1
	 oRS3a.movenext
 
	 Loop

Merci!