Problème ListView vb6Résolu

Question

je c pas quelle est le problème avec cette code vb6  


Private Sub LoadData()
Dim List As ListItem
Dim X As Integer
       Call ConnectDB
       rs.Open "select * from employe", db, adOpenStatic, adLockOptimistic
       Do Until rs.EOF
            Set Liste = ListView1.ListItems.Add(, , rs(0))
                For X = 1 To 4
                   Liste.SubItems(X) = rs(X)
              Next X
              rs.MoveNext
        Loop
        Set rs = Nothing
        db.Close: Set db = Nothing
    End Sub

LIBRE_MAX · Accepted Answer

Bonsoir,

Et on est sensé deviner ce qui cloche..

Imaginons donc qu' on a un compilateur intègré,
et qu' après t' avoir signaler une erreur, on te propose une rectif (VB6):



rs.Open "select * from employe", db, adOpenDynamic, adLockOptimistic 

If rs.BOF And rs.EOF Then
  MsgBox "Aucun enregistrement"
  Exit Sub
End If

rs.MoveFirst
Dim i As Integer

Do Until rs.EOF 
  i=i+1
  Set Liste = ListView1.ListItems.Add(i, , rs.Fields(0)) 
  For X = 1 To 4 
    Liste.SubItems(X) = rs.Fields(X)
  Next X 
  rs.MoveNext 
Loop 


[] Ce qui va sans dire. va mieux en le disant.

acive · Answer

Bonjour

je c pas quelle est le problème avec cette façon de poser les questions !...


Private Sub LoadData()
Dim List As ListItem
Dim X As Integer
Call ConnectDB
rs.Open "select * from employe", db, adOpenStatic, adLockOptimistic
Do Until rs.EOF
Set Liste = ListView1.ListItems.Add(, , rs(0))
For X = 1 To 4
Liste.SubItems(X) = rs(X)
Next X
rs.MoveNext
Loop
Set rs = Nothing
db.Close: Set db = Nothing
End Sub

Cordialement


[del]CF2i - Guadeloupe
Ingénierie Informatique/del

fajjeri · Answer

merci mé ca marche pas 
voici tt l' code du prog
connect

Public db As Database
Public pro As Recordset
Public ser As Recordset
Public emp As Recordset
Public ope As Recordset
Public path As String
Public pathname As String
Function ConnectDB()
path = App.path & "\FORCEINFO1.mdb"
    Set db = OpenDatabase(path)
    Set pro = db.OpenRecordset("produit", dbOpenDynaset)
    Set ser = db.OpenRecordset("service", dbOpenDynaset)
    Set emp = db.OpenRecordset("employe", dbOpenDynaset)
    Set ope = db.OpenRecordset("operation", dbOpenDynaset)
    
End Function

---------------------------------------------------------------------------

Private Sub Form_Load()
Call LoadData
End Sub

Private Sub LoadData()
Dim List As ListItem
Dim X As Integer
Call LoadData
       Call path
       emp.Open "select * from employe", db, 3, 3
       Do Until emp.EOF
            Set Liste = ListView1.ListItems.Add(, , emp(0))
                For X = 1 To 4
                   Liste.SubItems(X) = emp(X)
              Next X
              emp.MoveNext
        Loop
        Set emp = Nothing
        db.Close: Set db = Nothing
    End Sub

LIBRE_MAX · Answer

parceque ta sub télephonne à elle-même..!

Private Sub LoadData() 
Dim List As ListItem 
Dim X As Integer 
Call LoadData 
...

[] Ce qui va sans dire. va mieux en le disant.

ucfoutu · Answer

Bonjour, LIBRE_MAX,

C'est ce genre d'incompréhension manifeste de ce que l'on fait (et c'est hélas de plus en plus fréquent) qui me déprime. (comment a-t-il pu écrire cela ? Mystère !)
Enfin quoi : la totale, aujourd'hui : 
- temps maussade (pluvieux, devrais-je dire)
- un bureau de vote mal organisé ===>> attente trop longue
- un conduit d'eau qui a lâché au mauvais moment
- lecture de certains bouts de "codes" obligeant un constat
- lecture de demandes très mal formulées

Me reste à espérer que mon restaurant du dimanche ne sera pas victime d'une coupure de courant inopinée (je m'attends maintenant à tout et à n'importe quoi).

Bon dimanche malgré tout à tous...




________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Problème ListView vb6

5 réponses

Votre réponse

Discussions similaires