Les fonctions dcount, dlookup et dsum d'access en vb6

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 308 fois - Téléchargée 31 fois

Contenu du snippet

Ce code est utile lors d'une migration d'Access vers VB6 (et donc aussi vers VB .Net) :

Source / Exemple :


Public Function DLookup(ByVal sChamp$, ByVal sTable$, ByVal sCritere$) As Variant

    ' Implementation de la fonction DLookup d'Access en VB6 :
    ' Relever la valeur d'un champ d'une table avec un critère
    '  si la table et le critère sont inchangés depuis le dernier appel,
    '  une bufférisation permet de gagner du temps !

    Static sMemRq$, asChamps$(), avVal() As Variant
    Dim iNbChamps%, i%

    If sTable & sCritere = sMemRq Then
        iNbChamps = UBound(asChamps)
        For i = 0 To iNbChamps - 1
            If asChamps(i) = sChamp Then
                DLookup = avVal(i)
                Exit Function
            End If
        Next i
        Stop
    End If

    Dim Rq As DAO.Recordset
    Set Rq = m_bd.OpenRecordset(sTable, dbOpenSnapshot)
    Rq.FindFirst sCritere
    If Rq.NoMatch Then
        DLookup = Null
    Else
        DLookup = Rq(sChamp).Value
        
        iNbChamps = Rq.Fields.Count
        ReDim asChamps(iNbChamps)
        ReDim avVal(iNbChamps)
        For i = 0 To iNbChamps - 1
            asChamps(i) = Rq.Fields(i).Name
            avVal(i) = Rq.Fields(i).Value
        Next i
        
        sMemRq = sTable & sCritere
        
    End If
    Rq.Close

End Function

Public Function DSum(ByVal sChamp$, ByVal sTable$, ByVal sCritere$) As Variant

    ' Implementation de la fonction DSum d'Access en VB6 :
    '  faire un cumul d'un champ d'une table avec un critère

    Dim Rq As DAO.Recordset, sSQL$
    sSQL = "SELECT Sum(" & sChamp & ") AS SommeDeChamp FROM " & sTable
    If sCritere <> "" Then sSQL = sSQL & " WHERE " & sCritere
    Set Rq = m_bd.OpenRecordset(sSQL, dbOpenSnapshot)
    If Rq.EOF Then
        DSum = Null
    Else
        DSum = Rq.Fields(0).Value
    End If
    Rq.Close

End Function

Public Function DCount(ByVal sChamp$, ByVal sTable$, ByVal sCritere$) As Variant

    ' Implementation de la fonction DCount d'Access en VB6 :
    '  Compter le nombre d'enregistrement (via un champ) d'une table avec un critère

    Dim Rq As DAO.Recordset, sSQL$
    sSQL = "SELECT " & sChamp & " FROM " & sTable
    If sCritere <> "" Then sSQL = sSQL & " WHERE " & sCritere
    Set Rq = m_bd.OpenRecordset(sSQL, dbOpenSnapshot)
    If Rq.EOF Then
        DCount = 0
    Else
        Rq.MoveLast
        DCount = Rq.RecordCount
    End If
    Rq.Close

End Function

Conclusion :


Pour que ca marche, il suffit d'un Private m_bd As Database dans votre module et de l'initialiser, c'est tout !

A voir également

Ajouter un commentaire Commentaires
Messages postés
30
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
20 juin 2005

merci j ai tout fait je suis allee partout donc aussi a cette adresse et ca ne ma pas trop aidé ....:-(
ya pas qqun qui pourrait m expliqu ai comment on fait un code vb????
merci
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

Messages postés
30
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
20 juin 2005

merci de ta reponse mais la tu parle a une inculte du vb j ai rien compris, je n arirve meme pas a declarer des variable...lol
explique moi de quoi tu parle???
merci
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

Je pense qu'un DLookUp devrait le faire, avec pour critère : "nom='" & N & "' And prenom='" & P & "' And [code postal]='" & CP & "'"
Autre solution : ouvre un Recordset, fait un .FindFirst avec ces memes critères, si .NoMatch alors .AddNew et sinon .Edit
Messages postés
30
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
20 juin 2005

bonjour, voila j ai un probleme je ne sais pas ecrire un code vb et je nai pas d autre solution il me faut absolument du vb pour ma bd access,
je dois pouvoir afficher un numero de client dans mon formulaire de saisie mais pour ce faire il faut que en rentrant les coordonnee du client (nom/prenom/code postal) ca puisse chercher ds ma base si le client existe et dc me donner son numero sinon lui cree un nouveau numero
je crois que pour ca il faut utiliser les fonction
-Dcount pour compter les client
- si >0 faire un OpenRecordset pour chercher si le client existe
- sinon Docmd.RunSQL("insert...) pour en cree un

on ma dit d utiliser ces fonction mais je capte rien merci de votre aide
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.