Pegar o útimo registro dentro de uma listagem

[kania 0]

Salve, salve rapaziada, é o seguinte tenho o seguinte código:

 

'crio um índice para saber o valor anterior que uso posteriormente no calculo
Cvalor = 0
Do until RSEXTDATA.EOF
end if

'crio as variáveis chando os valores dentro do BD
DATAMOVIMENTO = RSEXTDATA("datamov")
HISTORICO = Lcase(RSEXTDATA("historico"))
CREDDEB = RSEXTDATA("sinal")
SALDO = RSEXTDATA("valor")

'monto a instrução utilizando o índice anterior para fazer os calculos pegando o valor anterior
If Cvalor = "0"  AND CREDDEB = "C" then
SALDONOVO = SALDOANTERIOR + SALDO
ELSEIF Cvalor = "0"  AND CREDDEB = "D" then
SALDONOVO = SALDOANTERIOR - SALDO
ELSEIF Cvalor > "0"  AND CREDDEB = "C" then
SALDONOVO = SALDONOVO + SALDO
ELSEIF Cvalor > "0"  AND CREDDEB = "D" then
SALDONOVO = SALDONOVO - SALDO
END IF

'dou o loop na tabela e fecho a conexão quando for o final
Cvalor = Cvalor+1
RSEXTDATA.movenext
loop
RSEXTDATA.Close
Set RSEXTDATA = Nothing

bom onde esta minha dúvida, tenha o índice Cvalor, como posso fazer para pegar o utimo registro indicado pelo índice, tipo se ea tabela montada tiver 50 registros eu conseguir saber qual vai ser o 50, porque preciso destacar esta linha na tabela, que claro vai ser sempre a utima, mas como vou saber se é realemnte autima tendo em vista que depende da quantidade de registro que cada consulta trouxe.

[Felipe Fonseca 0]

você pode usar o Count

 

query = "Select COUNT (*) as total from tabela"

Rs = objCon.Execute(query)

vTotal = RS("total")

 

ai você coloca um IF pra saber se eh a ultima linha

[kania 0]

Desculpa, ou eu estou comendo bola em algo ou não entendi nada, porque acabou que fiquei com a emsma dúvida, se eu der um COUNT na tabela ele vai me dizer quantos registros eu tenho, mas como eu vou pegar o utimo registro?

 

vou dizer por exemplo

 

IF vTotal =......

 

 

igual ao que? hehehe

[kania 0]

Na verdae o que eu tenho e gostaria d eimplementar é em cima da minha variavel já criada a Cvalor,porque eu tenho ela no código assim

 

cValor = 0

Cvalor = Cvalor+1

Cvalor.movenext

loop

 

ai com pegar e saber qual vai ser o valor maior da variavel Cvalor? que consequantemente será o utimo registro na tabela, se eu saber esta informação consigo macar alinha e colocar nela o que preciso.

[Public2004 79]

Talvez utilizando "recordcount", só uma idéia que me surgiu agora...

Utiliza ele para saber quantos registro você tem na consulta, depois a cada ciclo do loop vai comparando ele com a sua variável "Cvalor"...

 

Abs.

[kania 0]

então é isto que não estou sabendo fazer esta comparação, até porque se eu conseguir comparar ai a variavel Cvalor com alguma coias e saber o valor que ela esta pegando no momento fica mais simples, o problema esta ai eu não estou sabendo como fazer esta comparação, a Variavel Cvalor neste moento esta funcionando certinho, quando imprimo ela na tala ela traz certinho os valores

 

0

1

2

3

4

5

6

7

8

9

 

e assim por diante

[Public2004 79]

Supondo que o resultado do seu "recordcount" seja = 15 e armazenado em uma variável "x"

...
'dou o loop na tabela e fecho a conexão quando for o final
Cvalor = Cvalor+1


If Cvalor = "x" Then
  ultimo_registro = Cvalor
End If



RSEXTDATA.movenext
loop
RSEXTDATA.Close
Set RSEXTDATA = Nothing

[Public2004 79]

...

total_reg = RSEXTDATA.RecordCount

total_reg = total_reg-1

Cvalor = 0

...

Cvalor = Cvalor+1

If Cvalor = total_reg Then

Cvalor = Replace(Cvalor,Cvalor,"<strong>" & Cvalor & "</strong>")

End If

...