[VB6] RecordCount

[simcario]

Ciao A tutti...

utilizzando questo tipo di query

cmd1.ActiveConnection = Database.Connection1.ConnectionString
cmd1.CommandText = query
cmd1.Execute

Dim rs As New Recordset
Set rs = cmd1.Execute

n_adsl = rs.recordcount

lblAdsl.Caption = n_adsl

mi da sempre -1

perchè ?

[hunt]

ti potresti spiegare meglio perfavore ?

[simcario]

recordcount dovrebbe restituirmi il numero di record contenuti nel recordset.... ma mi restituisce sempre -1

[hunt]

Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Private tot As Integer
Private strConn As String

Private Sub Form_Load()
strConn = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;DataSource=data.mdb"
conn.Open(strConn)
        
strSql = "SELECT * FROM TABELLA"
rs.Open strSql, conn, 1, 3
    
tot = rs.RecordCount

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub

[XVincentX]

Lo da anche a me qualche volta, infatti non me lo spiego, difatti i record ci sono
Talvolta a me si risolve muovendo il record. Fai cosi

on error goto err
'apri connessioni
rs.movefirst
msgbox rs.recordcount
exit sub
err:
select case err.number
   case 13
msgbox "Niente record"
end select

[Brainjar]

Per avere la proprietà recordcount il recordset
deve essere aperto con un cursore che non sia ForwardOnly.
Nell'esempio di Hunt questo è dato dal numero 1
nella open del recordset.

rs.Open strSql, conn, 1, 3

' è equivalene a : 

rs.Open strSql, conn, adOpenKeyset, adLockOptimistic

Quindi dovresti rivedere come apri la connessione :

Database.Connection1

Ciao,