Duda Recordset

[Siddhartha]

Hola!

Tengo un control DATA llamado "DatPaquetes" asociado a una tabla "Paquetes" de una base de datos. Esta tabla tiene cuatro registros, pero DatPaquetes.Recordset.RecordCount toma el valor 2 en vez de 4. ¿Por què?

Gracias

[2Fast To You]

Debes de poner el siguiente codigo:

Código:

label1.Caption = DatPaquetes.Recordset.RecordCount & " Registros en la Base de Datos"

Saludos.

[Siddhartha]

Tenés razón. Tengo 5 registros y el valor de DatPquetes.RecordCount es 5. Entonces no sé que pasa...estoy cargando valores de una tabla en un ComboBox :

DatPaquetes.Recordset.MoveFirst
For k=1 to DatPaquetes.Recordset.RecordCount
DatPaquetes.Recordset.MoveFirst
cboCursos.AddItem DatPaquetes.Recordset("Paquetes")
DatPaquetes.MoveNext
Next k

Pero sòlo coloca 2 valores en el comboBox de los 5 que hay en la base de datos.

[Siddhartha]

¿Alguien me puede ayudar?

[2Fast To You]

Hola Amigo

Primeramente, debes de cojer un Proyecto Nuevo y ponerle lo siguiente:

1 Label
1 Data Control

Despues debes de ponerle lo siguiente al Form

Código:

Private Sub Form_Load()
Label1.Caption = Data1.RecordCount & " Registros Agregados"
End Sub

El Control Data debe de llamarce Data1 y enlasalo a Tu Base de Datos y a la Tabla Indicada. Es decir donde tienes los 5 Registros.

Una vez esto ejecuta el Form y si te sigue diciendo 2 aviendo 5 es que tienes problemas con la Base de Datos, te recomiendo que hagas una nueva.

Saludos

[GeoAvila]

encontre un leve problema en tu codigo

Código:

DatPaquetes.Recordset.MoveFirst
For k=1 to DatPaquetes.Recordset.RecordCount
DatPaquetes.Recordset.MoveFirst
cboCursos.AddItem DatPaquetes.Recordset("Paquetes")
DatPaquetes.MoveNext
Next k  

entoy viendo que le colocas un movefirst dentro del for
ese hay que quitarlo de la siguiente manera

Código:

DatPaquetes.Recordset.MoveFirst
For k=1 to DatPaquetes.Recordset.RecordCount
cboCursos.AddItem DatPaquetes.Recordset("Paquetes")
DatPaquetes.MoveNext
Next k  

te queda de esta menera..

y si no trata con esto

Código:

DatPaquetes.Recordset.MoveFirst
Do While DatPaquetes.Recordset.BOF = false
cboCursos.AddItem DatPaquetes.Recordset("Paquetes")
DatPaquetes.MoveNext
 Loop 
 

nos vemos...

[GeoAvila]

por cierto ese fue mi Post No. 600

voy rapido....

nos vemos...