Discussion :

[InfoDemers]

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 :

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

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

[roro06]

Bonjour

En principe :

Code :

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

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

[InfoDemers]

Code :

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

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

[InfoDemers]

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 :

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

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 :

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

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!