RecordCount?

[biffly]

hola, alguien sabe porque cuando abro un RS y consulto cuantos registros tiene de da (-1) esto lo hago de la sig. manera:

rs.Open "SELECT * FROM P_CUENTAS", Conex
MsgBox rs.RecordCount
rs.Close

gracias

[aldo1982]

Iniciado por biffly

hola, alguien sabe porque cuando abro un RS y consulto cuantos registros tiene de da (-1) esto lo hago de la sig. manera:

rs.Open "SELECT * FROM P_CUENTAS", Conex
MsgBox rs.RecordCount
rs.Close

gracias

yo lo hago asi:


rs.Open "SELECT * FROM P_CUENTAS", Conex

do while not rs.eof
c = c + 1
rs.movenext
loop
msgbox "hay: " & c & " Registros"
rs.Close

'---------------
salu2 y espero te sirva...bye

[biffly]

gracias aldo1982, yo hago lo mismo pero lo que queria saber es porque me debuelve ese valor, gracias por tu respuesta

[aldo1982]

porke no recorrio la base de datos te da ese -1 (está en el principio del archivo recien..con el do while y el movenext va recorriendo los registros y contandolos

salu2

[VHid@lgo]

mira pruevalo asi, te mostraba -1 porque no te estaba abriendo e recorset

Public cn As ADODB.Connection
Public rs1 As ADODB.Recordset

Public Sub abrir()
On Error GoTo Mensaje
Set cn = New ADODB.Connection
Path = App.Path + "\data.mdb"
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Path & ""
Exit Sub
Mensaje:
MsgBox "No se establecio la conexión con la Base de Datos", 16, "ATENCION"
End Sub

Private Sub Command1_Click()
abrir
Set rs1 = New ADODB.Recordset
If rs1.State = adStateOpen Then
rs1.Close
End If
rs1.Open "SELECT count(campo) FROM tabla", cn
End Sub

[aldo1982]

Iniciado por VHid@lgo

mira pruevalo asi, te mostraba -1 porque no te estaba abriendo e recorset

Public cn As ADODB.Connection
Public rs1 As ADODB.Recordset

Public Sub abrir()
On Error GoTo Mensaje
Set cn = New ADODB.Connection
Path = App.Path + "\data.mdb"
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Path & ""
Exit Sub
Mensaje:
MsgBox "No se establecio la conexión con la Base de Datos", 16, "ATENCION"
End Sub

Private Sub Command1_Click()
abrir
Set rs1 = New ADODB.Recordset
If rs1.State = adStateOpen Then
rs1.Close
End If
rs1.Open "SELECT count(campo) FROM tabla", cn
End Sub

bue es otra manera jeej gracias la tendré tb en cuenta
salu2 hidalgo

[Developer9]

Eje!! que tal compañero aldo.... yo optimizo lo que tu haces:

Iniciado por aldo1982

rs.Open "SELECT * FROM P_CUENTAS", Conex

do while not rs.eof
c = c + 1
rs.movenext
loop
msgbox "hay: " & c & " Registros"
rs.Close

rs.Open "SELECT count(*) FROM P_CUENTAS", Conex
msgbox "hay: " & rs.Field(0) & " Registros"

PRUEBALO