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.NET Discussion :

VB + base de donnée + access


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé Avatar de florianjoy54
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    155
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 155
    Par défaut VB + base de donnée + access
    Bonjour,

    Etudiant en BTS informatique, j'aimerais pouvoir me connecter a une base de donnée sous acces pour pouvoir faire des mises à jour.
    j'aimerais que le nom que je rentre dans mon textBox puisse s'ajouter dans ma base.

    voila mon 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
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    Imports System.Data
    Imports System.Data.OleDb
     
    Partial Public Class Form1
     
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
     
            Dim nomjoueur As String
     
            nomjoueur = TextBox1.Text
     
            'On crée une connexion
            Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data source=C:\Users\Floflo\Documents\BTS\PTI\Eventielle\joueur.mdb")
     
            'On crée notre joueur contenant la requête SQL ou on selectionne toute la table joueur
            Dim MyPlayer As OleDbCommand = MyConnexion.CreateCommand()
            MyPlayer.CommandText = "SELECT * FROM joueur "
     
            'On crée notre DataAdaptater
            Dim MyDataAdapter As New OleDbDataAdapter
            MyDataAdapter = New OleDbDataAdapter(MyPlayer)
     
            Dim MyDataSet As New DataSet()
            Dim MyDataTable As DataTable
            Dim MyDataRow As DataRow
     
            MyConnexion.Open()
            'propriété Fill qui a charger le DataSet
            MyDataAdapter.Fill(MyDataSet, "joueur")
            ' On met dans un objet DataTable une table du dataSet
            MyDataTable = MyDataSet.Tables("joueur")
            'On cré une nouvelle ligne
            MyDataRow = MyDataSet.Tables("joueur").NewRow()
            'On lui implemente la valeur du champs afin d'avoir le nom du jouueur 
            MyDataRow("joueur") = Me.TextBox1.Text
            'On ajoute une ligne au dataSet 
            MyDataSet.Tables("joueur").Rows.Add(MyDataRow)
     
            'Pour modifier les valeur changées dans le DataAdaptater
            Dim MyCommandBuilder As New OleDbCommandBuilder(MyDataAdapter)
            'Mise à jour 
            MyDataAdapter.Update(MyDataSet, "joueur")
            'On vide le DataSet et on recharche le DataSet 
            MyDataSet.Clear()
            MyDataAdapter.Fill(MyDataSet, "joueur")
            MyDataTable = MyDataSet.Tables("joueur")
     
            MyConnexion.Close()
     
     
        End Sub
     
     
     
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     
    End Sub
     
     
    End Class
    Mais lorsque j'execute j'ai un message d'erreur :

    L'exeption OledbExeption n'a pas été gérée

    fichier c:// ... joueur.mdb introuvable
    merci

  2. #2
    Membre éclairé Avatar de loulouklm
    Profil pro
    Inscrit en
    Avril 2004
    Messages
    99
    Détails du profil
    Informations personnelles :
    Âge : 45
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 99
    Par défaut
    Peux-tu donner la ligne (tu dois avoir le numéro de ligne) qui génère l'erreur ?

  3. #3
    Membre éclairé Avatar de loulouklm
    Profil pro
    Inscrit en
    Avril 2004
    Messages
    99
    Détails du profil
    Informations personnelles :
    Âge : 45
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 99
    Par défaut
    Es-tu sur du chemin du fichier ?
    Pourquoi tu ne fait pas un DataSet typé ?

  4. #4
    Rédacteur
    Avatar de Hinault Romaric
    Homme Profil pro
    Consultant
    Inscrit en
    Janvier 2007
    Messages
    4 570
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Cameroun

    Informations professionnelles :
    Activité : Consultant
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Janvier 2007
    Messages : 4 570
    Billets dans le blog
    121
    Par défaut
    y'a des balises code pour le coloriage du code. Mais déjà d'emblée le problème est au niveau de ta chaine de connexion, le programme ne trouve pas ton fichier .mdb, vérifie encore le chemin du fichier.

    @++
    Vous souhaitez participer aux rubriques .NET ? Contactez-moi

    Si déboguer est l’art de corriger les bugs, alors programmer est l’art d’en faire
    Mon blog, Mes articles, Me suivre sur Twitter
    En posant correctement votre problème, on trouve la moitié de la solution

  5. #5
    Membre confirmé Avatar de florianjoy54
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    155
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 155
    Par défaut vb + base de donnée
    J'ai bien vérifié le chemin il est correct, lorsque j'exécute l'erreur est générée à la ligne :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MyDataRow("joueur") = Me.TextBox1.Text

  6. #6
    Rédacteur
    Avatar de Hinault Romaric
    Homme Profil pro
    Consultant
    Inscrit en
    Janvier 2007
    Messages
    4 570
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Cameroun

    Informations professionnelles :
    Activité : Consultant
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Janvier 2007
    Messages : 4 570
    Billets dans le blog
    121
    Par défaut
    Pourqoui tout ca juste pour un insert? pas besoin de Dataset et tout ce qui suit.

    @++
    Vous souhaitez participer aux rubriques .NET ? Contactez-moi

    Si déboguer est l’art de corriger les bugs, alors programmer est l’art d’en faire
    Mon blog, Mes articles, Me suivre sur Twitter
    En posant correctement votre problème, on trouve la moitié de la solution

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Accès aux bases de données Access
    Par xela dans le forum C++Builder
    Réponses: 3
    Dernier message: 15/12/2004, 09h07
  2. [débutant] Connection à une base de donnée Access
    Par Lorenzox dans le forum JBuilder
    Réponses: 1
    Dernier message: 25/10/2004, 16h28
  3. Réponses: 15
    Dernier message: 25/10/2004, 11h50
  4. [Déploiement]Base de donnée Access
    Par Giovanny Temgoua dans le forum Bases de données
    Réponses: 9
    Dernier message: 09/08/2004, 20h48
  5. associer une base de données(access) a un dbgrid
    Par ange1708 dans le forum MFC
    Réponses: 3
    Dernier message: 11/06/2002, 12h18

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