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 :

ajouter un nouveau enregistrement au base donnees


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Janvier 2008
    Messages
    47
    Détails du profil
    Informations forums :
    Inscription : Janvier 2008
    Messages : 47
    Par défaut ajouter un nouveau enregistrement au base donnees
    bonjour mes amis ;je suis en train de prepare une application "gestion stagiaire " j"ai un button "ajouter un nouveau stagiaire" j'ai tape le code mais un message d'erreur s'affiche :
    le jeu d'enregistrements suivant ne prend pas en charge la mise a jour.il s'agit d'une limitation du fournisseur ou de type verrou selectionné"
    dans la connexion avec la base donnee j'ai pas utilisé ado j"ai declaré
    module :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    public cn as adodb.connection
    etc
    aider moi s'il cous plait

  2. #2
    Membre Expert Avatar de OhMonBato
    Homme Profil pro
    Inscrit en
    Mars 2007
    Messages
    2 660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2007
    Messages : 2 660
    Par défaut
    Bonjour,
    comment veux tu qu'on t'aide si tu ne nous montres pas ton code en spécifiant sur quelle ligne se produit l'erreur ?

  3. #3
    Membre averti
    Inscrit en
    Janvier 2008
    Messages
    47
    Détails du profil
    Informations forums :
    Inscription : Janvier 2008
    Messages : 47
    Par défaut voila le code
    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
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
     
    Private Sub ajouter_Click()
     
     
    If Text1.Text = "" Then
    MsgBox "veuillez remplir le champ numéro stagiaire,c'est obligatoire"
    Exit Sub
    End If
    Do While Not r.EOF
    If r.Fields(0) = Text1.Text Then
    MsgBox "Ce numero existe deja", vbInformation
    Text1.Text = ""
    Text1.SetFocus
    Exit Sub
    End If
    r.MoveNext
    Loop
     
    r.AddNew
    r.Fields(0) = Text1.Text
    r.Fields(1) = Text2.Text
    r.Fields(2) = Text3.Text
     
    End Sub
    Private Sub Form_Load()
    seconnecter
    With r
    .Open "select * from stagiaire", cn, adOpenDynamic, adLockOptimistic
    End With
    End Sub

  4. #4
    Membre Expert Avatar de OhMonBato
    Homme Profil pro
    Inscrit en
    Mars 2007
    Messages
    2 660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2007
    Messages : 2 660
    Par défaut
    Tu ne précises pas sur quelle ligne se produit l'erreur, on ne voit pas le code de la procédure 'seconnecter' pas plus que la déclaration de 'r'.

    Mais ça peut être dû au fait aussi que ta base de données est en lecture seule. Cette base est elle sur la même machine que ton programme ou sur un lecteur réseau ?

  5. #5
    Membre averti
    Inscrit en
    Janvier 2008
    Messages
    47
    Détails du profil
    Informations forums :
    Inscription : Janvier 2008
    Messages : 47
    Par défaut
    dans la meme machine

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    Public cn As New Connection
    Public r As New Recordset
     
    Sub seconnecter()
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\chahir\Mes documents\prj.mdb;Persist Security Info=False"
    End Sub

  6. #6
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 130
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 130
    Par défaut
    Cela peut provenir du mode d'ouverture de ta BD
    Exemple:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Option Explicit
    Public CheminDataBase As New ADODB.Connection
    Public TablES1 As New ADODB.Recordset
     
    Public Sub TestBaseSourceExiste()
    CheminDataBase.Mode = adModeReadWrite
    ' CheminDataBase.Open "PROVIDER=Mic ............
    End Sub
    L'important et le mode d'ouverture, ici adModeReadWrite
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

Discussions similaires

  1. Réponses: 2
    Dernier message: 09/04/2011, 15h16
  2. Ajout enregistrement à une base de données
    Par nahoula1231 dans le forum VB.NET
    Réponses: 1
    Dernier message: 14/07/2010, 14h42
  3. Réponses: 6
    Dernier message: 28/05/2008, 20h17
  4. Réponses: 8
    Dernier message: 29/10/2007, 17h52
  5. MàJ/ajout d'un enregistrement dans une base de données mySQL
    Par BMT_Benoît dans le forum Windows Forms
    Réponses: 2
    Dernier message: 21/08/2007, 08h02

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