lié un datacombo à deux tables via un ado et non un adoDC

Question

Salut
Je cherche à lié un datacombo à deux tables via le code avec un ado et non un adodc
Si quelq'un peut m'aider ...
merci bcp
voilà ce ke j'ai tenté mais sans succes :

    Set rsTypeArticle = New Recordset
    rsTypeArticle.Open "TypeArticle", g_cnnInterHotel, adOpenDynamic, adLockOptimistic

    Set rsArticle = New Recordset
    rsArticle.CursorLocation = adUseClient
    rsArticle.Open "Article", g_cnnInterHotel, adOpenDynamic, adLockOptimistic

    Set dtcNouveau.DataSource = rsArticle
    Set dtcNouveau.RowSource = rsTypeArticle
    
    dtcNouveau.DataField = "code_TypeArticle"
    
    dtcNouveau.BoundColumn = "code_TypeArticle"
    dtcNouveau.ListField = "lib_TypeArticle"

PittOcha

huges33 · Answer

j'ai trouvé en faite :

'2 recordsets l'un relié a la table TypeArticle et l'autre à la table Article
'1 datacombo dtcTypeArticle

    Set rsTypeArticle = New Recordset
    rsTypeArticle.CursorLocation = adUseClient
    rsTypeArticle.Open "TypeArticle", g_cnnInterHotel, adOpenDynamic, adLockOptimistic
    
    Set rsArticle = New Recordset
    rsArticle.CursorLocation = adUseClient
    rsArticle.Open "SELECT * FROM Article WHERE code_article = 4", g_cnnInterHotel, adOpenDynamic, adLockOptimistic

'--------------------------'
' Préparation du Datacombo '
'--------------------------'

'   1. Populé par la table TypeArticle
    dtcTypeArticle.BoundColumn = "code_TypeArticle"
    dtcTypeArticle.ListField = "lib_TypeArticle"
    Set dtcTypeArticle.RowSource = rsTypeArticle
'
'   2. Syncronisation par la table Article
    dtcTypeArticle.DataField = "code_TypeArticle"
    Set dtcTypeArticle.DataSource = rsArticle

Et voilà c tout
@++

PittOcha

Lié un datacombo à deux tables via un ado et non un adoDC

1 réponse

Discussions similaires