récupération de données de ma base [VB6]

Question

bonjour &#224; tous
Il y &#224; quelques jours,j'ai pos&#233; une quetion sur le forum,concernant "l'affichage des donn&#233;es d'une listview dans des labels",Daniel m'a donn&#233; la solution.Mais j'ai enlev&#233; des colonnes de ma listview,et je voudrais quand meme affich&#233; toutes les donn&#233;es en allant r&#233;cup&#233;r&#233; les donn&#233;es dans ma base.Donc j'ai se code,mais quand je click sur une ligne,il n'y &#224; rien qui s'affiche dans les labels (les labels se trouvent dans la meme Form).
j'esp&#232;re avoir &#233;tait assez clair .

Private Sub List_Click()
   Set Rs = New ADODB.Recordset
    Rs.Open "select * from film where code_film=" & CodeFilm, Db   If Rs.BOF False And Rs.EOF True Then
'-- V&#233;rifie qu'il existe une entr&#233;e
        lbl_arti.Caption = Rs!article
        lbl_code.Caption = Rs!code
        lbl_famille.Caption = Rs!famille
        lbl_cat&#233;.Caption = Rs!cat&#233;gorie
        lbl_stock.Caption = Rs!stock
        lbl_gere.Caption = Rs!ger&#233;
        label11_.Caption = Rs!divers
         Image5.ToolTipText = Rs.Fields("affiche")
    Image5.Picture = LoadPicture(App.Path & "\affiche" & Image5.ToolTipText)
     
      End If
 Rs.Close
End Sub
merci
@ plus
petchy

jpleroisse · Answer

Bonjour,

Essaye &#224; la place de   If Rs.BOF False And Rs.EOF True Then ,mets

Do Until Rs.EOF 

        lbl_arti.Caption = Rs!article

        lbl_code.Caption = Rs!code

        lbl_famille.Caption = Rs!famille

        lbl_cat&#233;.Caption = Rs!cat&#233;gorie

        lbl_stock.Caption = Rs!stock

        lbl_gere.Caption = Rs!ger&#233;

        label11_.Caption = Rs!divers

         Image5.ToolTipText = Rs.Fields("affiche")

Rs.MoveNext

Loop



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

cs_petchy · Answer

bonjour jpleroisse
merci pour ta r&#233;ponse,mais &#231;a ne fonctionne pas,il n'y &#224; rien qui s'affiche dans les labels quand je click sur un item,pourtant j'ai bien modifi&#233; les lignes .
petchy

jpleroisse · Answer

Re,

Pourrais-tu me passer ton code de remplissage de la ListView, cela me
perettra d'adapter &#224; un de mes BD et pouvoir essayer de r&#233;gler ton
probl&#232;me.



jpleroisse

cs_petchy · Answer

Re
voila le code pour remplir la listview.
Private Sub Bt_Enreg_Click()
Dim MaX As Integer
Dim qualite As String


On Error GoTo prob
'-- Verification des champs
If Txt_article = "" Then
    MsgBox "Vous devez entrer un Article", vbInformation, "Gestion Article"
    Txt_article.SetFocus
    Exit Sub
End If
    '-- Verifie la qualite du film et fait le remplacement par du texte
   
    
    '-- Appel fonction de verification des champs
    Call verif(txt_obs)
    Call verif(Txt_article)
    
    Call verif(Txt_stock)
  
    
'--Ajoute un nouvel enregistrement
If nouv = True Then
'-- cherche la cle la plus eleve de la table
     Set Rs = New ADODB.Recordset
     Rs.Open "select max(code_film) as nouv from film", Db
     If IsNumeric(Rs!nouv) = False Then
        MaX = 1
    Else
        MaX = Rs!nouv + 1
    End If
    Rs.Close


    Set Rs = New ADODB.Recordset
    Rs.Open "Film", Db, adOpenDynamic, adLockOptimistic
    Rs.AddNew
    
    
'ajout de film
     Rs!code_film = MaX
    Rs!article = Txt_article 'article
    Rs!code = txt_code 'code
    Rs!famille = comb_famille.Text 'famille
   Rs!cat&#233;gorie = Comb_cat&#233; 'cat&#233;gorie
   Rs!stock = Txt_stock 'stock
   Rs!divers = Text1
   Rs!observation = txt_obs 'obsevation
    If Option1 = True Then
         Rs!ger&#233; = "non"
    End If
    
    If Option3 = True Then
         Rs!ger&#233; = "oui"
    End If
  Rs!affiche = imgAffiche.ToolTipText 'jaquette dans controle imgage
   If Rs!affiche = "" Then
   Rs!affiche = "-"
     MsgBox Txt_article & " &#224; bien &#233;t&#233; ajout&#233; " _
& vbCrLf & vbCrLf & vbTab & "article : " & Txt_article _
& vbCrLf & vbCrLf & vbTab & "code : " & txt_code _
& vbCrLf & vbCrLf & vbTab & "famille : " & comb_famille _
& vbCrLf & vbCrLf & vbTab & "stock : " & Txt_stock, _
vbInformation, "Mode Ajout"
End If


    Rs.AddNew
    Unload Me
   
    
    Else
    
    Set Rs = New ADODB.Recordset


    Rs.Open "select * from film where code_film=" & CodeFilm, Db, adOpenDynamic, adLockOptimistic


   'modif de film
     Rs!code_film = MaX
    Rs!article = Txt_article 'article
    Rs!code = txt_code 'code
    Rs!famille = comb_famille.Text 'famille
   Rs!cat&#233;gorie = Comb_cat&#233; 'cat&#233;gorie
   Rs!stock = Txt_stock 'stock
   'Rs!ger&#233; = gestion
  Rs!affiche = imgAffiche.ToolTipText 'jaquette dans controle imgage
    Rs!affiche = imgAffiche.ToolTipText 'jaquette dans controle image
   ''message pour modif film
     MsgBox Txt_article & " &#224; bien &#233;t&#233; mis &#224; jour " _
& vbCrLf & vbCrLf & vbTab & "article : " & Txt_article _
& vbCrLf & vbCrLf & vbTab & "code : " & txt_code _
& vbCrLf & vbCrLf & vbTab & "famille : " & comb_famille _
& vbCrLf & vbCrLf & vbTab & "stock : " & Txt_stock, _
vbInformation, "Mode Mise &#224; Jour Accomplie"
    Rs.Update
    Rs.Close
   
   
    Unload Me
    Call Rafresh("select * from film order by article")
    
    End If


Exit Sub


prob:
MsgBox "Manques donn&#233;es", vbCritical, "Gestion Article"


End Sub"

Récupération de données de ma base [VB6]

4 réponses

Discussions similaires