A+
Exploreur

 Linux a un noyau, Windows un pépin

Re,

Voici un petit exemple avec l'utilisation d'un recordset et d'une connection ADO :

Rajoute à ton projet la référence :
- Microsoft Activix Data Objects 2.5 Library

Private Sub Form_Load()

' Connection base de données
 Dim CnxAdo As New ADODB.Connection
 
' Recordset pour mise à jours bdd
 Dim RstAdo As New ADODB.Recordset

' Choix du fournisseur
 CnxAdo.Provider = "Microsoft.jet.OLEDB.4.0"
 
' Chemin de la base pour la connection
 CnxAdo.ConnectionString = "C:\Bdd.mdb" 'CheminBase
    
' Ouvre la connection à la source
 CnxAdo.Open
 
' On ferme sans traiter erreur (s'il y en a une)
 On Error Resume Next
 RstAdo.Cancel
 RstAdo.Close
 Err.Clear

' Paramètre requête SQL
 Dim Sql As String

 Sql = "SELECT * FROM users"
 
' Execution requête avec paramètre recordset via CnxAdo
 RstAdo.CursorLocation = adUseClient
 RstAdo.Open Sql, CnxAdo, adOpenDynamic, adLockPessimistic

 
 MsgBox RstAdo.RecordCount

End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

Salut,

pour la requete, l'aide me donne ca:

La fonction Compte ne compte pas les enregistrements qui contiennent des champs de valeur Nullà moins que expr corresponde au caractère générique « * » (astérisque). Si vous utilisez un astérisque, la fonction Compte calcule le nombre total d'enregistrements, y compris ceux qui contiennent des champs de valeur Null. Compte(*) est nettement plus rapide que Compte([Nom de colonne]). Ne mettez pas l'astérisque entre guillemets simples (' '). L'exemple suivant calcule le nombre d'enregistrements contenus dans la table Commandes :

SELECT Count(*)

AS TotalOrders FROM Orders;