Access 2007 e VB6 - Connection e Recordset

[aerith9]

Ho questo semplice codice:


DoCmd.GoToRecord , , acNewRec

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

Dim strCon As String
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;"
strCon = strCon & "Data Source =Inventario.accdb;"

con.Open strCon

strSql = " SELECT *" _
& " FROM Bene" _

rs.Open strSql, con

MsgBox (rs.RecordCount)

rs.ActiveConnection = Nothing
rs.Close
con.Close


la MsgBox m restituisce sempre -1. Puntualizzando inutilmente che la tabella Bene contiene ben 39 record...dov'è l'errore???

[raffaeu]

Se fai prima un MoveLast sul recordset otterai il numero di records.
Ricorda poi di tornare al primo con un movefirst.

[aerith9]

ho provato come mi hai detto tu ma mi segnala

errore di run-time '-2147217884 (80040e24)'
Il set di righe non supporta operazioni di recupero all'indietro.

qualche altra idea???

[raffaeu]

In questo modo
if not rs.eof then 
        rsArray = rs.GetRows() 
        nr = UBound(rsArray, 2) + 1 
        Debug.Print("Numero records :" & nr)
end if

[aerith9]

neanke...
rs.recordcount vale sempre -1...
dannazione

[raffaeu]

Contali ...

Dim count as Integer

rs.Open
rs.MoveFirst
While Not RS.EOF
count = count + 1
rs.MoveNext
Wend
Debug.Print(count)

[aerith9]

effettivamente così mi resistuisce il nuomero di record della tabella Bene..
ma allora come faccio a prendere solo il valore di un campo di un singolo record?
mi spiego meglio, mi serve l'id che viene generato in automatico da access del record che rispetta una certa condizione..