RecordCount

[ema21del9]

Buenas, estoy intentando utilizar la propiedad RecordCount sobre un objeto RecordSet pero me devuelve -1, intente agregando MoveLast y tambien MoveFirst pero sigue mostrando -1.

Alguna sugerencia para saber la cantidad de registros que hay?

Pd: la idea es evitar contarlos con un bucle.

[pana99]

Hola, no necesitas bucles

Lo podes hacer es usar movelast (te lleva al final del recordset) y ahí usar AbsolutePosition + 1 (porque el recordset comienza en 0)

La otra opción es que en el select pongas un campo que lo cuente.

Si pones el código que usas te lo agrego

Espero te sirva

[ema21del9]

Me darias un ejemplo como seria lo de poner un campo en el Select?

Ahora pruebo lo de AbsolutePosition, muchas gracias.

[pana99]

Tu select que estaria en el recordset asi

Select count(1) as Cant
from "tuTabla"
where "pones las condiciones"

Una vez que tenes todo el en recordset

rs!Cant tiene la cantidad

si pones el codigo que usas me parece seria mas claro

[ema21del9]

Amigo probe el metodo de AbsolutePosition y me da 0, que hago?

[pana99]

entonces es que tu recordset no encontro nada
Por eso te daba -1 antes

[ema21del9]

Iniciado por pana99

entonces es que tu recordset no encontro nada
Por eso te daba -1 antes

Pero si muestro dentro de un bucle si me muestra todos los registros.

[pana99]

Por favor, podrias poner el codigo o los archivos ?
Gracias

[ema21del9]

Jeje si perdon:

Código:

Set ventas = New ADODB.Recordset
ventas.Open "SELECT * FROM ventas", BD, adOpenStatic, adLockOptimistic

While Not ventas.EOF

arreglo = Split(ventas.Fields(2), "|")
ReDim matriz_productos(1 To ACA VA LA CANTIDAD DE REGISTROS, 0 To UBound(arreglo) + 1, 0 To 2)

Set lista_ventas = ListView1.ListItems.Add(, , ventas.Fields(0))
lista_ventas.SubItems(1) = ventas.Fields(1)
lista_ventas.SubItems(2) = ventas.Fields(3)
lista_ventas.SubItems(3) = "$ " & FormatNumber(ventas.Fields(4))

ventas.MoveNext
Wend

[pana99]

Proba asi por favor

Dim CantVentas as integer
Set Cventas = New ADODB.Recordset
Cventas.Open "SELECT count(1) as Cantidad FROM ventas", BD, adOpenStatic, adLockOptimistic

CantVentas = Cventas.Cantidad

set Cventas = nothing 'No me acuerdo si es asi como se cierra la conexion. Cerrala para no tener memoria ocupada

Set ventas = New ADODB.Recordset
ventas.Open "SELECT * FROM ventas", BD, adOpenStatic, adLockOptimistic

While Not ventas.EOF

arreglo = Split(ventas.Fields(2), "|")
ReDim matriz_productos(1 To CantVentas, 0 To UBound(arreglo) + 1, 0 To 2)

Set lista_ventas = ListView1.ListItems.Add(, , ventas.Fields(0))
lista_ventas.SubItems(1) = ventas.Fields(1)
lista_ventas.SubItems(2) = ventas.Fields(3)
lista_ventas.SubItems(3) = "$ " & FormatNumber(ventas.Fields(4))

ventas.MoveNext
Wend