suresh

• May 15th, 2006

 

Dim samp

 Set samp=createobject("ADODB.Connection")

samp.ConnectionString="DSN=try"

samp.open strQuery="Select * from employee"

Set sampresults=samp.execute(strQuery)

a=sampresults.fields.count

Do until sampresults.eof

For i = 0 to a-1

b=sampresults.fields.item(i).value

reporter.ReportEvent 2,"column " & i , b

Next

sampresults.movenext

Loop

sampresults.close

samp.close

Set sampresults=nothing

Set samp=nothing

' for updating the table

strQuery="update employee set column name = new value where column name = some _value"

Set sampresults=samp.execute(strQuery)