How can move / transfer sql query output to asp Array ?

we want that sql query output move to asp Array to display the
employee progress in graph.

query is

DECLARE @totalVideos int SET @totalVideos = (SELECT COUNT(*)
FROM Training_Module) SELECT t2.Name,
COUNT(t1.emp_id)*100/44 as ViewPercentage
FROM Module_View t1 JOIN Employee t2 ON t1.emp_id = t2.emp_id
JOIN Department t3 ON t2.Department_Code = t3.Department_Code
JOIN Position t4 ON t2.Position_Code = t4.Position_Code
GROUP BY t2.emp_id, t1.emp_id,t2.Name

above query retrieve following percentage of employee like this.

Employee Name.....ViewPercentage
Khan 20
Ibrahim 25
Peterr 35
....
..

above query result move to following asp Array
following is the fix value use in Array,
inplace of following fix value sql query result move to Array how ?

<%
...
........

ShowChart Array(6, 10, 12, 18, 23, 26, 27, 28, 30, 34, 37, 45, 55), Array("P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12", "P13"), "Safety Make It Personal", "Employee ", "Progress"


Response.Write "<BR>" & vbCrLf
Response.Write "<BR>" & vbCrLf
Response.Write "<BR>" & vbCrLf

Dim I
Dim aTemp(49)

Randomize
For I = 0 to 49
    aTemp(I) = Int((50 + 1) * Rnd)
Next 'I
%>


regards
Mateen

;;;How can move / transfer sql query output to asp Array ?
use the getRows() method:
http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=161

Wind is your friend
Matt

Hi everyone,

I checked the examples given by Matt but i couldnt succeded.Below is my codes, i try to transfer sql querry results to array(degerler).But unable to do this.Could you help me how can i do that.

<%
Dim Gemiler, Partiler, Degerler
Gemiler=Array("Besiktas", "Bosphorus", "Dardanelles", "Greenland", "Scotland", "Tena")
Partiler=Array("MOC", "MOU", "Class", "Company", "Internal")
Veri_yolu = Server.MapPath("db/vessels.mdb")
Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu
Set bag = Server.Createobject("ADODB.Connection")
bag.Open (Bcumle)
for i=0 to Ubound(gemiler)
SQL = "SELECT COUNT(*) as TOPLAM FROM tblmain where Vname='"&gemiler(i)&"' and iparty='MOC';"
Set rs = bag.Execute(SQL)
Total =rs("Toplam")
response.write total
response.write "<BR>"
degerler = rs.GetRows(6,0)
    for j = 0 to ubound(degerler)
    response.write "second column : " & degerler(0,j) & "<br>"
    next
next

rs.close
set rs = Nothing
bag.close
set bag = Nothing
%>

Did you look at the link I posted? if you had you would realize this can not be done:
degerler = rs.GetRows(6,0)

The code is there for you, have a look at the link

Wind is your friend
Matt

Yes i read and applied all the lines in yr link. But unable to do what i want to do ;)

You need to get a little more detail in your post. Whats your browser behaviour, specifically your error? I assume its on this line:

degerler = rs.GetRows(6,0)

Wind is your friend
Matt

Since I am going home soon here is a very simplistic example. It assumes you have connected to the DB

DIM groupArray,groupCount,getGroups,count
count = 0

sql = "SELECT id,accronym,shortName FROM groups WHERE inactive=0 and id > 0 ORDER BY fOrder;"
set getGroups = conn.execute(sql)

IF NOT getGroups.EOF THEN
groupArray = getGroups.GetRows
groupCount = UBound(groupArray, 2)
getGroups.Close
Set getGroups = Nothing
END IF

NOTE: You can close your database connection here. A good practice if you dont require it

DO WHILE count <= groupCount
response.write groupArray(0,count) & " : I am the ID part of the SQL above<bR>"
response.write groupArray(1,count) & " : I am the accronym part of the SQL above<bR>"
response.write groupArray(2,count) & " : I am the shortName part of the SQL above<bR>"
count = count + 1
LOOP

set groupArray = nothing

Wind is your friend
Matt