Member Avatar for zafs

Hi,

Please help me in passing the data from recorset to an array..


Thanks in advance..

  • 2 Contributors
  • 1 Reply
  • 81 Views
  • 19 Hours Discussion Span
  • Latest Post Latest Post by noman78
Member Avatar for noman78

information u provided is very less, but hope this will help
lets consider
"Con" is ur dbase cnnection
Dim Array1() --->keep it open for dynamic use
then
set Rs=con.execute("select * from tablename") --> it is ur table recordet
linecount=0
while not Rs.eof
linecount=linecount+1
redim preserve Array1(LineCount)
Array(1)=rs.fields("fieldname")
Rs.movenext
wend

now Array1 is your array and as it is dynamic so no need to worry about the no of records or array size as well

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.