vb6 recordset

omel · August 11th, 2010, 01:55 AM

I have 4 label which is the record take out from database order by Date.
After 2 second the data always move example data on 1st record become data on 2nd record. Sample as below(if got 5 records):-

data1
data2
data3
data4

after 2 second

data2
data3
data4
data5

after 2 second

data3
data4
data5
data1

after 2 second

data4
data5
data1
data2

how to do that using vb6?

gbianchi · August 11th, 2010, 08:35 AM

Hello there.. You need to use a timer that executes every 2 seconds to make the move by yourself.

omel · August 11th, 2010, 07:48 PM

Dear gbianchi,

For timer i have do it. But for array label i got problem on that

Old Pedant · August 11th, 2010, 08:22 PM

Don't use a new query each time. Use ADODB.Recordset.GetRows() to convert the recordset into an array and then just "rotate" the array every 2 seconds.

Code:

Set RS = conn.Execute( ... )
Dim data
data = RS.GetRows( )

Then, to display the data you just do

Code:

For row = 0 To 3 ' to show first 4 rows
    item1 = data(0,row)
    item2 = date(1,row)
    ... display the items ...
Next ' next row
' then ROTATE the array:
For col = 0 To UBound(data,1)
    temp = data( col, 0 )
    For row = 0 To UBound(data, 2)
        data( col, row ) = data( col, row + 1 )
    Next ' row
    data( col, UBound(data,2) ) = temp
Next ' col
... then use the timer to wait 2 seconds and repeat all of this block ...

omel · August 16th, 2010, 03:04 AM

Quote:

Originally Posted by Old Pedant

Don't use a new query each time. Use ADODB.Recordset.GetRows() to convert the recordset into an array and then just "rotate" the array every 2 seconds.

Code:

Set RS = conn.Execute( ... )
Dim data
data = RS.GetRows( )

Then, to display the data you just do

Code:

For row = 0 To 3 ' to show first 4 rows
    item1 = data(0,row)
    item2 = date(1,row)
    ... display the items ...
Next ' next row
' then ROTATE the array:
For col = 0 To UBound(data,1)
    temp = data( col, 0 )
    For row = 0 To UBound(data, 2)
        data( col, row ) = data( col, row + 1 )
    Next ' row
    data( col, UBound(data,2) ) = temp
Next ' col
... then use the timer to wait 2 seconds and repeat all of this block ...

Dear Old Pedant,

Your thing is a what i want. Thanks. But when reach on this row 'Data(Col, Row) = Data(Col, Row + 1) error --> subscript out of range. Why this problem happend?