AddNew????Résolu

Question

bonjour
pour commencer, je suis sur Visual Basic 6.0 et Access 97
J'ai un DBGrid qui se rempli de fa&#231;on globale lors du chargement de la fen&#234;tre
Apr&#232;s je dois faire en sorte que avec le d&#233;but d'un champ ( par exemple tous les codes utilisateurs commen&#231;ant par "t" ou "au" etc.... n'importe quoi) seul les champs de l'indication apparaisse dans le DBGrid
Je pensais utiliser un RecordSet pour ajouter les &#233;l&#233;ments que je voulais dedans et apr&#232;s l'afficher dans le DBGrid mais je n'y arrive pas
Je fais un AddNew suivi de plusieurs RecordSet.Fields et les recordField ne veulent prendre aucune valeur j'ai toujours la m&#234;me erreur "Variable objet ou bloc With non d&#233;finie"
Cela fait un bon moment que je suis dessus et je n'arrive pas a voir comment cela marche 
Est ce que qq'un pourrais m'aidez svp

voila mon code:

Private Sub BRechercher_Click()
    Dim req As String
    Dim Rs As Recordset
    
    Me.DBUtilisateur.DataSource = Rs
    
    Me.DataUtilisateur.RecordSource = "UTILISATEUR"
    Me.DataUtilisateur.Refresh


    If Me.TCodeUtilisateur.Text <> "" Then
    
        Me.DataUtilisateur.Recordset.MoveFirst
        While Not Me.DataUtilisateur.Recordset.EOF()


            If Me.TCodeUtilisateur.Text = Left(Me.DataUtilisateur.Recordset.Fields(0), Len(Me.TCodeUtilisateur.Text)) Then
                Rs.AddNew
                Rs.Fields(0) = Me.DataUtilisateur.Recordset.Fields(0)
                Rs.Fields(1) = Me.DataUtilisateur.Recordset.Fields(1)
                Rs.Fields(2) = Me.DataUtilisateur.Recordset.Fields(2)
                Rs.Fields(3) = Me.DataUtilisateur.Recordset.Fields(3)
                Rs.Fields(4) = Me.DataUtilisateur.Recordset.Fields(4)


            End If
            Me.DataUtilisateur.Recordset.MoveNext
        Wend
    End If

End Sub

cs_CanisLupus · Accepted Answer

Salut,

Pour moi, entre 
Dim Rs As Recordset
et 
Me.DBUtilisateur.DataSource = Rs

il manque quelquechose comme un

Set rs = TaBDD.OpenRecordset("select .... from ....", dbOpenDynaset) 'en DAO

L'erreur vient sans doute de l&#224; car ton Rs n'est pas initialis&#233;.

Ensuite, apr&#232;s un addnew, il faut faire un update quand tu a renseign&#233; les champs.

Loup Gris

GilgameshDragon · Answer

Merci &#231;a marche d&#233;j&#224; mieux, j'ai pens&#233; apr&#232;s avoir post&#233; mon message au set Rs mais je n'avais pas vu qu'il fallait mettre une requete

maintenant j'ai un probl&#232;me avec l'update. Il me dit &#231;a:
 Modifications non effectu&#233;es: risque de doublons dans champs index, cl&#233; primaire ou relation interdisant les doublons. Modifiez les donn&#233;es des champs contenant les doublons, enlevez  ou red&#233;finissez l'index pour permettre les doublons et recommencez.

Je ne comprend pas car il n'y a pas de doublons dans ma base &#224; moins qu'il veut ajouter apr&#232;s la liste existante dans le DBgrid (DBUtilisateur). Sans le update le r&#233;sultat que j'obtient c'est qu'il me garde la premi&#232;re ligne de la liste qui &#233;tait affich&#233; avant
Si je trouve avant un message ici je le pr&#233;ciserai ;)

GilgameshDragon · Answer

Maintenant mon code donne &#231;a:

req = " Select ... from..."
Set DB = OpenDatabase("BDD.MDB")    
Set Rs = DB.OpenRecordset(req, dbOpenSnapshot
Set Me.DBUtilisateur.DataSource = Rs
    
Me.DataUtilisateur.RecordSource = "UTILISATEUR"
Me.DataUtilisateur.Refresh
...

Message d'erreur:
La classe ne g&#232;re pas soit l'Automation ou l'interface attendue

J'ai fait plein de chose et &#231;a ne marche pas
help encore svp

cs_CanisLupus · Answer

Set Rs = DB.OpenRecordset(req, dbOpenSnapshot ?

Si tu veux pouvoir faire un addnew, il faut mettre dbOpenDynaset.

dbOpenSnapshot, c'est pour cr&#233;er une vue donc en lecture seule.

Pour le risque de doublons, &#224; mon avis le champs (0) de ta table est peut-&#234;tre en NumeroAuto ?

Loup Gris

GilgameshDragon · Answer

merci bien pour l'info mais au final, j'ai changer de m&#233;thode, j'utilise un MsFlexGrid et je rempli manuellement la table
C'est plus long c'est vrai mais au moins j'ai un r&#233;sultat et je n'ai pas une erreur toutes les 2 secondes
merci quand mm

AddNew????

5 réponses

Discussions similaires