j'ai des méthodes manquantes!!

Question

bonjour,
Je me suis aperçu qu'il y avait des méthodes pour le datagrid et pour les listview que je n'ai pa!!

"Set datagrdimport.RecordSource = rs"  génère une erreur!!

comment faire??

cs_DARKSIDIOUS · Answer

et quel type d'erreur ca te fait ?

Ca m'étonnerai fort que tu n'ai pas les propriétés RecordSource (y'a aucune raison, elles y sont depuis les premières versions il me semble).

Quelles sont les autres méthodes que tu n'a pas ? Quelle version du windows common controls possède-tu ?

DeamonXTZ1 · Answer

re, 
en fait, je veux utiliser un datagrid ou une liste view dans mon application, mais j'arrive pa à remplir le datagrid à partir de ma requète:

"Set db = OpenDatabase(App.Path & "\base_ssc.mdb")sql "SELECT verbe_traite, expression_situ, actant_situ FROM situation where (verbe_traite '" & situcinem.verbe1.Text & "')  "
 Set rs = db.OpenRecordset(sql, dbOpenDynaset) 
 Set datagrdimport.RecordSource = rs

et ca m'affiche ce message:
compile error : method or data member not found

et puis j'ai seeayé avec une Listview; ca ne ve pa marcher non plus!!

Set db = OpenDatabase(App.Path & "\base_ssc.mdb")sql "SELECT verbe_traite, expression_situ, actant_situ FROM situation where (verbe_traite '" & situcinem.verbe1.Text & "')  "
 Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
 Do While Not rs.EOF
                    
       Dim n As Long
        n = List.ListItems.Count + 1
        List.ListItems.Add n, , rs.Fields(0)
        List.ListItems(n).SubItems(1) = rs.Fields(1)
        List.ListItems(n).SubItems(2) = rs.Fields(2)
rs.MoveNext
Loop

et ca m'affiche :
invalid property value

c ca mon pb!!

cs_DARKSIDIOUS · Answer

Cela ne veut pas dire que les propriétés ne sont pas existantes !
j'utilise pas le RecordSource du datagrid, donc je peux pas vraiment te dire ce qui cloche pour le datagrid, mais pour le listview :

Dim n As long
Set db =  OpenDatabase(App.Path & "\base_ssc.mdb")
sql = "SELECT
verbe_traite, expression_situ, actant_situ FROM situation where
(verbe_traite = '" &  Replace(situcinem.verbe1.Text, "'", "''")  & "')  "
 Set rs  = db.OpenRecordset(sql, dbOpenSnapshot)
 Do While Not rs.EOF
                    
        n = List.ListItems.Count + 1
        List.ListItems.Add , , rs.Fields(0)
        List.ListItems(n).SubItems(1).Add ,, rs.Fields(1)
        List.ListItems(n).SubItems(2).Add ,, rs.Fields(2)
        rs.MoveNext
Loop

DeamonXTZ1 · Answer

merci du conseil, mais ca me génère une erreur: invalid qualifier!!

cs_DARKSIDIOUS · Answer

Oups, autant pour moi :

Dim n As long
Set db =  OpenDatabase(App.Path & "\base_ssc.mdb")sql "SELECT verbe_traite, expression_situ, actant_situ FROM situation where (verbe_traite '" & Replace(situcinem.verbe1.Text , "'", "''")  & "')  "
 Set rs  = db.OpenRecordset(sql, dbOpenSnapshot)
 Do While Not rs.EOF
                    
        n = List.ListItems.Count + 1
        List.ListItems.Add , , rs.Fields(0)
        List.ListItems(n).SubItems.Add ,, rs.Fields(1)
        List.ListItems(n).SubItems.Add ,, rs.Fields(2)
        rs.MoveNext
Loop

DeamonXTZ1 · Answer

je veux pas paraitre con, mais ca fait 4 ans que g pa utimisé VB, mai ca me met une autre erreur : argument not optional.

J'ai des méthodes manquantes!!

6 réponses

Votre réponse

Discussions similaires