程序代码

" get recordset, return as an array
function fetchemploymentstatuslist
dim rs 
set rs = createobject("adodb.recordset")
rs.open "select statusname, statusid from employeestatus", _
"dsn=employees;uid=sa;pwd=;"
fetchemploymentstatuslist = rs.getrows() " return data as an array
rs.close
set rs = nothing
end function

 程序代码

" get recordset, return as html option list
function fetchemploymentstatuslist
dim rs, fldname, s
set rs = createobject("adodb.recordset")
rs.open "select statusname, statusid from employeestatus", _
"dsn=employees;uid=sa;pwd=;"
s = "<select name=""employmentstatus">" & vbcrlf
set fldname = rs.fields("statusname") " ado field binding
do until rs.eof
" next line violates don"t do string concats,
" but it"s ok BECause we are building a cache
s = s & " <option>" & fldname & "</option>" & vbcrlf
rs.movenext
loop
s = s & "</select>" & vbcrlf
rs.close
set rs = nothing " see release early
fetchemploymentstatuslist = s " return data as a string
end function