extraction d'une cellule

Question

Bonjour a tous le but de ce code est d'optenir le nombre  en stocke de divers pièces, lorsque l'on click sur ListCarteMere un message doit renvoyer le nombre de carte en stocke. Si quelqu'un savait y jetté un oeil ca m'aiderait fortement.
Merci d'avance a tout les lecteurs du code.

Bye Ju

Option Explicit
    Dim strLabel As String
    Dim Recherche As String
    Dim intNbEnStocke As Integer

Private Sub ListCarteMere_Click()
    Recherche = ListCarteMere.List(ListCarteMere.ListIndex)    intNbEnStocke strNbEnStocke("select * from tblCarteMere where fldNom " & Recherche & " order by fldNom ")
    MsgBox intNbEnStocke
End Sub

Private Function strNbEnStocke(SQL As String) As String
    Dim oADOStocke   As ADODB.Connection
    Dim oRSStocke    As ADODB.Recordset
    
    Set oADOStocke = New ADODB.Connection
    With oADOStocke
        .Provider = "Microsoft.jet.oledb.4.0"
        .Mode = adModeShareDenyNone
        .ConnectionString = "E:\Qualification 2007\Fraipont\VB Fraipont Qualif Pc Mag\MagPc.mdb"
        .Open
    End With
    Set oRSStocke = New ADODB.Recordset
    With oRSStocke
        .CursorLocation = adUseClient
        .Open SQL, oADOStocke, adOpenStatic, adLockOptimistic
        .Properties.Refresh
        Do While Not .EOF
            strNbEnStocke = .Fields("fldNbStocke").Value
        Loop
        .Close
    End With
    oADOStocke.Close
    Set oRSStocke = Nothing
    Set oADOStocke = Nothing
End Function

Raul duke · Answer

^peu etre un ....= """ &  Recherche & """... pour que ds la recherche le champ soit un string

cs_jujujulien · Answer

Merci pour ta réponse, mais maintenant plus de message d'erreur c'est vb qui plante .. lol

Extraction d'une cellule

2 réponses

Votre réponse

Discussions similaires