IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Ajout et modification d'une base de donnée objet Connection et Recordset


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2006
    Messages
    26
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2006
    Messages : 26
    Par défaut Ajout et modification d'une base de donnée objet Connection et Recordset
    salut tt le monde.
    J'ai créer les objets oConn et oRs respectivement pour accéder à une base de donnée existante. Sur la feuille j'ai 5 boutons de commandes ( First, last, previous, next et add). Les quatres premiers marche bien par contre pour je n'arrive pas à ajouter des enregistrements. je recoit le message d'erreur.

    Erreur d'exécution '35511:
    " Le jeu d'enregistrements suivant ne prend pas en charge la mise à jour. Il s'agit peut-être d'une limitation du fournisseur ou du type de verrou séléctionné.".

    Alors, pour contourner le pb j'ai essayé de changer le Provider ou AdOpenStatic par AdOpenDynamic sans résultats. Voilà la Subroutine Form_Load et cmdAdd_Click()


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
     
    Private Sub Form_Load()
    Dim NomBD As String
    Dim strConn As String, strSql As String
         NomBD = FrmOuvrir.TxtChemin.Text
         strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomBD & ";Persist Security Info=false"
         strSql = "select * from T_Personnes"
        Set OConn = CreateObject("AdoDB.Connection")
        OConn.Open strConn
     
        Set oRs = CreateObject("AdoDB.Recordset")
        oRs.Open strSql, OConn, adOpenStatic
     
        UpdateUI
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Private Sub cmdAdd_Click()
    oRs.AddNew
    End Sub
    Que doit_je faire pour pouvoir ajouter et modifier ma base de donnée et merci

  2. #2
    Membre Expert
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Octobre 2006
    Messages
    1 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : Argentine

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Finance

    Informations forums :
    Inscription : Octobre 2006
    Messages : 1 173
    Par défaut
    c'est oracle ?
    Personnellement je pense que la meilleure solution de toute façon est de passer par des ordres clairs de type update ou insert, en sus du recordset courant (ça me parait moins bidouille)

    Au-delà de cela, tu peux éventuellement si on parle d'Oracle essayer un select ... for update, qui permet en tout cas sous pl/sql dev d'éditer les enregistrements retournés.

  3. #3
    Expert confirmé
    Avatar de ThierryAIM
    Homme Profil pro
    Inscrit en
    Septembre 2002
    Messages
    3 673
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2002
    Messages : 3 673
    Par défaut
    Citation Envoyé par Vld44 Voir le message
    c'est oracle ?
    Ca me surprendrait :
    Citation Envoyé par laribi71 Voir le message
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
         strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomBD & ";Persist Security Info=false"
    où est déclaré oRs ?

Discussions similaires

  1. Problème lors d'une modification d'une base de données
    Par 4rocky4 dans le forum Modélisation
    Réponses: 2
    Dernier message: 08/01/2008, 16h04
  2. Ajouter des éléments dans une base de données Access
    Par bidule123456 dans le forum ASP
    Réponses: 74
    Dernier message: 07/09/2007, 14h00
  3. Réponses: 17
    Dernier message: 18/07/2007, 15h46
  4. [VB.net 2003] Annuler les dernieres modifications d'une base de donnée
    Par winny107 dans le forum Accès aux données
    Réponses: 2
    Dernier message: 10/10/2006, 07h05
  5. Modification d'une base de donnée
    Par scorpion37 dans le forum C++Builder
    Réponses: 70
    Dernier message: 16/06/2006, 09h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo