ADO & Objet Command

Bonsoir Patrick,
Teste ceci :

Private Sub ConnecterBase(ConnectBD As ADODB.Connection, _
Optional Rs)

Set ConnectBD = New ADODB.Connection
If Not IsMissing(Rs) Then
Set Rs = New ADODB.Recordset
End If

With ConnectBD
.Provider = "Microsoft.Jet.OLEDB.4.0"
'ici changer le chemin de la base
.ConnectionString = "D:MonDossierMaBase.mdb"
.Open
End With

End Sub

Private Sub NB_Enregistrement()
Dim ConnectBD As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim ChaineSQL As String

ChaineSQL = "SELECT * FROM T_Vendeur "
ConnecterBase ConnectBD, Rs

With Rs
.CursorType = 1
.Open ChaineSQL, ConnectBD
'indique le nombre d'enregistrement
MsgBox .RecordCount
End With

ConnectBD.Close

Set ConnectBD = Nothing
Set Rs = Nothing

End Sub

Hervé.


"Patrick Fredin" <nospam_patrick.fredin@iquebec.com> a écrit dans le message
news: E619E671-ACCA-4E9A-A14E-C3B5E73F150C@microsoft.com...

Bonjour,

J'utilise un objet Command pour récupérer des enregistrements dans une

base

Access. Mais apparemment, l'objet Recordset qui en résulte ne contient pas

le

nombre d'enregistrements. Est-il possible d'avoir cette information sans
parcourir tout le Recordset ?

Merci pour votre aide.

--
Patrick

Oups,
Modifie aussi le nom de la table dans la chaine SQL (T_Vendeur)

Hervé.

"Hervé" <hmsilve@wanadoo.fr> a écrit dans le message news:
ONrWXTOTFHA.3228@TK2MSFTNGP10.phx.gbl...

Bonsoir Patrick,
Teste ceci :

Private Sub ConnecterBase(ConnectBD As ADODB.Connection, _
Optional Rs)

Set ConnectBD = New ADODB.Connection
If Not IsMissing(Rs) Then
Set Rs = New ADODB.Recordset
End If

With ConnectBD
.Provider = "Microsoft.Jet.OLEDB.4.0"
'ici changer le chemin de la base
.ConnectionString = "D:MonDossierMaBase.mdb"
.Open
End With

End Sub

Private Sub NB_Enregistrement()
Dim ConnectBD As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim ChaineSQL As String

ChaineSQL = "SELECT * FROM T_Vendeur "
ConnecterBase ConnectBD, Rs

With Rs
.CursorType = 1
.Open ChaineSQL, ConnectBD
'indique le nombre d'enregistrement
MsgBox .RecordCount
End With

ConnectBD.Close

Set ConnectBD = Nothing
Set Rs = Nothing

End Sub

Hervé.


"Patrick Fredin" <nospam_patrick.fredin@iquebec.com> a écrit dans le

message

news: E619E671-ACCA-4E9A-A14E-C3B5E73F150C@microsoft.com...
> Bonjour,
>
> J'utilise un objet Command pour récupérer des enregistrements dans une
base
> Access. Mais apparemment, l'objet Recordset qui en résulte ne contient

pas

le
> nombre d'enregistrements. Est-il possible d'avoir cette information sans
> parcourir tout le Recordset ?
>
> Merci pour votre aide.
>
> --
> Patrick