none
Problème d'enregistrement dans la base de donnée à partir de Vb.net RRS feed

  • Discussion générale

  • Bonjour je passer par VB.net pour enregistrer des données dans ma base ( Accès) que j'avais déjà crée via le bouton Enregistrement du formulaire approprié. Pouvez-vous m'aider s'il vous plait.
    betiwahab
    • Type modifié Ciprian Duduiala samedi 7 mai 2011 12:16 pas de réponse de l'utilisateur qui a lancé la question
    dimanche 1 mai 2011 12:02

Toutes les réponses

  • Je pense qu'il faut que tu sois plus prècis sur ce que tu souhaites faire. Je n'ai pas compris la demande.
    Cordialement
    Pascal
    http://www.scalpa.info
    dimanche 1 mai 2011 13:48
  • Bonjour,

    Quelle erreur as-tu ?

    Quelle est la partie de ton code qui cause problème ?

     


    fred
    dimanche 1 mai 2011 15:10
  • Voici le code qui est derrière le formulaire et quand j'exécute une boite de dialogue s'ouvre et m'affiche ceci :Fichier 'C:\GESCOVB\Produit\Produit\bin\Debug\Exogesco.mdb' introuvable. Alors que le fichier Exogesco est dans 'C:\GESCOVB\Produit\Produit\bin\Debug

    Voici tout le code:

    'Importation des espaces de nom

    Imports System

    Imports System.Data

    Imports System.Data.OleDb

    Imports Microsoft.VisualBasic

     

    Public Class FormEtudiant

        'On déclare et on crée en même temps un nouvel objet conneection

        Dim Vconnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data source=Exogesco.mdb")

        'On déclare et on crée en même temps u n nouvel objet command qui utilisera la connection précédente

        Dim Vcommand As OleDbCommand = Vconnexion.CreateCommand()

        Dim VdataApdater As OleDbDataAdapter

        'Déclaration de l'objet DataSet.Atytention au New

        Dim VDataSet As New DataSet

        'On déclare l'objet DataTable

        Dim VDataTable As DataTable

        'Déclaration de l'objet DatasRow c'est à dire ligne

        Dim VDataRow As DataRow

        'Numéro de la ligne en cour ou de l'enregistrement courant

        Dim VRowNumber As Integer

        'Pour recompiler les données modifiées avant de les remettre dans le DataApdater

        Dim VObjetCommandBuilder As OleDbCommandBuilder

     

        Private Sub EtudiantBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

            Me.Validate()

            Me.EtudiantBindingSource.EndEdit()

            Me.TableAdapterManager.UpdateAll(Me.ExogescoDataSet)

     

        End Sub

     

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            'TODO : cette ligne de code charge les données dans la table 'ExogescoDataSet.Etudiant'. Vous pouvez la déplacer ou la supprimer selon vos besoins.

            'Me.EtudiantTableAdapter.Fill(Me.ExogescoDataSet.Etudiant)

     

     

        End Sub

     

        Private Sub CodfilLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

     

        End Sub

     

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

            Application.Exit()

        End Sub

     

        Private Sub ButtonRestaurer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRestaurer.Click

            Me.Close()

        End Sub

     

        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEnregistrer.Click

            'On déclare et on crée en même temps un nouvel objet conneection

            Dim Vconnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data source=Exogesco.mdb")

            'On déclare et on crée en même temps u n nouvel objet command qui utilisera la connection précédente

            Dim Vcommand As OleDbCommand = Vconnexion.CreateCommand()

            'On spécifie le texte de la commande SQL qui sera exécutée par l'objet command

            Vcommand.CommandText = "Insert into Etudiant values('" & NumatTextBox.Text & "','" & NometuTextBox.Text & "','" & PréetuTextBox.Text & "'," & CodfilTextBox.Text & ")"

            ' On ouvre la connection 

            Vconnexion.Open()

            'On exécute la requête SQl de l'objet command

            NumatTextBox.Text = ""

            NometuTextBox.Text = ""

            PréetuTextBox.Text = ""

            CodfilTextBox.Text = ""

            'On ferme la connection

            Vconnexion.Close()

            'On crée un nouvel enregistrement ( une nouvelle ligne) vide 

            VDataRow = VDataSet.Tables("Etudiant").NewRow

            'On le remplit avec les données des zones de textes

            VDataRow("Numat") = Me.NumatTextBox.Text

            VDataRow("NomEtut") = Me.NometuTextBox.Text

            VDataRow("Préetu") = Me.PréetuTextBox.Text

            VDataRow("Codfil") = Me.CodfilTextBox.Text

            'On ajout la ligne au Dataset

            VDataSet.Tables("Etudiant-").Rows.Add(VDataRow)

            'Pour modifier les valeurs changées dans le DataApdater

            VObjetCommandBuilder = New OleDbCommandBuilder(VdataApdater)

            'Mise à jour

            VdataApdater.Update(VDataSet, "Etudiant")

            'On vide le Dataset et on le recharge de nouveau.

            VDataSet.Clear()

            VdataApdater.Fill(VDataSet, "Etudiant")

            VDataTable = VDataSet.Tables("Etudiant")

            'On vide les zones de texte pour permettre la saisie d'un nouvel enregistrement

            NumatTextBox.Text = ""

            NometuTextBox.Text = ""

            PréetuTextBox.Text = ""

            CodfilTextBox.Text = ""

        End Sub

     

        Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

     

        End Sub

    End Class


    betiwahab
    dimanche 1 mai 2011 23:14
  • Bonjour,

     

    Pouvez-vous svp expliquer plus claire ce que votre code devrait faire? Ces informations nous aideront à comprendre ce que vous attendez de votre code et on pourra comparer le comportement actuel de votre application à ce que vous voulez obtenir. Par exemple, pour quoi est-ce vous avez défini Vconnexion deux fois (comme membre de la classe FormEtudiant et puis comme variable dans la méthode ButtonRestaurer_Click) ?

     

    Ensuite, pouvez-vous nous préciser quelle est la ligne du votre code où l’erreur est affiché ?

     

    Merci,

     

    Cipri


    Suivez MSDN sur Twitter   Suivez MSDN sur Facebook


    Ciprian DUDUIALA, MSFT  
    •Nous vous prions de considérer que dans le cadre de ce forum on n’offre pas de support technique et aucune garantie de la part de Microsoft ne peut être offerte.

    mercredi 4 mai 2011 08:44
  • Bonjour,

    Mon objectif est de pouvoir enregistrer les données dans la base à partir d'un formulaire Vb et donc quand j'exécute cela me répond que la base n'est pas retrouvée en plus je suis nouveau en vb et j'ai donc copie le présent code parce que cela permet dans un autre programme d'enregistrer les données dans la base. Vous pouvez constater des incohérences dans le code et si c'était le cas je serai ravis de vous voire corriger ces erreurs. Merci 


    betiwahab
    samedi 7 mai 2011 13:31
  • Bonjour,

    Pouvez-vous, svp, nous préciser quelle est la ligne du votre code qui génère l’erreur dont vous parlez ? Merci !

     

    Cordialement,

    Cipri


    Suivez MSDN sur Twitter   Suivez MSDN sur Facebook


    Ciprian DUDUIALA, MSFT  
    •Nous vous prions de considérer que dans le cadre de ce forum on n’offre pas de support technique et aucune garantie de la part de Microsoft ne peut être offerte.

    lundi 9 mai 2011 12:57