[Resolvido] VB6 - Listar 1 registro exibi-lo em Labels aguardar u

[Paulo Correia 0]

Amigos,

Já tentei usando a API Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Estou usando Timer

E nem mostra o Primeiro Registro, vai direto para o último

Estou usando ADO

E o seguinte código:

numa outra parte...

 

mConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\base.mdb"
Set rs = New Recordset

rs.Open "SELECT count(ID) from tabela ", mConn, adOpenForwardOnly, adLockReadOnly

total = rs(0)

rs.Close

Private Sub Timer1_Timer()
Dim rs1 As Recordset
Dim i as integer
Dim L1 as String
Dim L2 as String
Dim L3 as String
Dim SQL as String

Set mConn1 = New Connection
mConn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\base.mdb"
Set rs1 = New Recordset

Loop2:
i = i + 1
SQL = "SELECT campo1,campo2,campo3 from tabela where ID=" & i
rs1.Open SQL, mConn1, adOpenForwardOnly, adLockReadOnly

L1=rs1(0)
L2=rs1(1)
L3=rs1(2)

Label1.Caption=L1
Label2.Caption=L2
Label3.Caption=L3

If i < total Then
rs1.Close
GoTo Loop2
Else
rs1.Close
End If

O que estou fazendo de errado ?

[Claudio Neto 3]

Não entendi o que você quer fazer.

 

Como assim guardar em um label e depois mostrar?

 

Se você jogar o valor que quer no label, será exibido no mesmo instante.

 

E o motivo de ir direto para o último é que você montou um loop (cara, existem maneiras mais corretas de fazer isso), e seus labels estão recebendo os valores do banco. Na verdade, provavelmente eles estão recebendo todos os valores, só que um está sendo jogado por cima do outro. Então no final, só exibirá o último.

 

Explique melhor o que está tentando fazer que achamos uma solução melhor para isso.

 

Abraços...

[Fábio Ramos 0]

Eu acho que entendi o que você quer fazer.

 

É exibir um registro por um determinado tempo e depois exibir o 2º, 3º, 4º, ...

É isso?

[Paulo Correia 0]

Eu acho que entendi o que você quer fazer.

 

É exibir um registro por um determinado tempo e depois exibir o 2º, 3º, 4º, ...

É isso?

Era isto mesmo

Já consegui resolver obrigado