none
Code d'enrégistrement ! RRS feed

  • Question

  • Bonjour !

    'InsertCommand()

    Private

    Sub BindingNavigatorSaveHS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorSaveHS.Click

    MsgBox(

    "Voulez-vous sauvegarder cet enrgistrement ?", MsgBoxStyle.YesNoCancel)

    Me.OleDbConnection.Open()

    Me.OleDbCommand.ExecuteNonQuery()

    Me.OleDbCommand.Parameters.Add("CodeEnsg", OleDbType.WChar, 10, "CodeEnsg")

    Me.OleDbCommand.Parameters.Add("NomEnsg", OleDbType.WChar, 30, "NomEnsg")

    Me.OleDbCommand.Parameters.Add("PrnomEnsg", OleDbType.WChar, 30, "PrnomEnsg")

    Me.OleDbCommand.Parameters.Add("Adresse", OleDbType.WChar, 25, "Adresse")

    Me.OleDbCommand.Parameters.Add("Telephone", OleDbType.Integer, 25, "Telephone")

    Me.OleDbCommand.Parameters.Add("Email", OleDbType.WChar, 25, "Email")

    Me.OleDbDataAdapter.InsertCommand = OleDbCommand

    Try

    Me.OleDbDataAdapter.Update(Me.BDD_MIGSI_DSet.Enseignants)

    Catch ex As Exception

    End Try

    Me.OleDbConnection.Close()

    End

    Sub

    C'est un morceau de code auquel je désir exécuter un enrégistrement dans une bdd access, il est lié à un formulaire sur lequel existe un bindingnavigator avec lequel je navigue sur les données. Je l'ai lié à un boutton ''Enrégistrer", dans bindingnavigator.  Après different bugs renvoyés, ici il ne renvoie plus rien comme bugs, et aucun n'enrégistrement ne se fait.  1- Pourriez-vous m'indiquer ce qui manque ? 2-Et aussi, est-ce que avec les commandes Insert, Update et Delete de OleDbCommand il faut aussi associer celà aux DataRows pour préciser les differents champs ou le simple InsertCommand en exemple  ici peut suffire ? Merci !


    Thibaut MOUELE

    mercredi 17 octobre 2012 11:17

Réponses

  • Bonjour,

    Me .OleDbCommand.ExecuteNonQuery() doit être situé aprèsMe.OleDbDataAdapter.InsertCommand = OleDbCommand

    Ensuite pourquoi ne faites-vous pas un insert avec OleDbDataAdaptater ?

     

    Cordialement


    Merci de valider par "Proposer comme réponse" si celle-ci répond à votre demande !

    • Proposé comme réponse Aurel Bera jeudi 18 octobre 2012 11:17
    • Marqué comme réponse Aurel Bera vendredi 19 octobre 2012 07:06
    mercredi 17 octobre 2012 13:02

Toutes les réponses

  • Bonjour,

    Me .OleDbCommand.ExecuteNonQuery() doit être situé aprèsMe.OleDbDataAdapter.InsertCommand = OleDbCommand

    Ensuite pourquoi ne faites-vous pas un insert avec OleDbDataAdaptater ?

     

    Cordialement


    Merci de valider par "Proposer comme réponse" si celle-ci répond à votre demande !

    • Proposé comme réponse Aurel Bera jeudi 18 octobre 2012 11:17
    • Marqué comme réponse Aurel Bera vendredi 19 octobre 2012 07:06
    mercredi 17 octobre 2012 13:02
  • Bonjour,

    Est-ce que vous avez testé les solutions proposées ? Merci de partager avec nous les résultats, afin que d'autres personnes avec le même problème puissent profiter de cette solution.

    Cordialement,

    Aurel


    Aurel BERA, Microsoft
    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

    jeudi 18 octobre 2012 13:38
  • Bonjour,

    Pouvons-nous considérer que vous avez résolu votre problème avec les scénarios proposés ? Dans l'affirmative, pourriez-vous partager avec nous la solution, afin que d'autres personnes avec le même problème puissent profiter de cette solution ?

    Désormais, nous marquons les solutions proposées. N'hésitez pas à revenir et supprimer la réponse marquée si la solution n’est pas correcte. Merci !

    Cordialement,

    Aurel


    Aurel BERA, Microsoft
    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

    vendredi 19 octobre 2012 07:06
  • Bonjour à tous !

    Désolé pour la manière de mon intervantion !

    En effet, j'ai evolué dans la recherche d'une solution.

    J'ai abandoné la manipulation avec le BindingNavigator, il n'est pas mal, mais pour l'instant, je me suis contenté de créer des boutons que je manipule aisement, et celà avec le BindingContext de mon DataGridView.

    Le code de navigation :

    'Allez au dernier enrgistrement

    Me.DtGrid_Ensg.BindingContext(Me.BDD_MIGSI_DSet, "Enseignants").Position = Me.DtGrid_Ensg.BindingContext(Me.BDD_MIGSI_DSet, "Enseignants").Count - 1

    MsgBox(

    "Vous tes sur le dernier enrgistrement", MsgBoxStyle.Information)

    End Sub

    'Enrgistrement Suivant

    Private Sub BtnSuivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSuivant.Click

    Me.DtGrid_Ensg.BindingContext(Me.BDD_MIGSI_DSet, "Enseignants").Position += 1

    End Sub

    'Enrgistrement Precedent

    Private Sub BtnPrecedent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrecedent.Click

    Me.DtGrid_Ensg.BindingContext(Me.BDD_MIGSI_DSet, "Enseignants").Position -= 1

    End Sub

    'Premier enrgistrement

    Private Sub BtnPremier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPremier.Click

    Me.DtGrid_Ensg.BindingContext(Me.BDD_MIGSI_DSet, "Enseignants").Position = 0

    MsgBox(

    "Vous tes sur le premier enrgistrement", MsgBoxStyle.Information)

    End Sub'ai plusieures DataTable dans mon DataSet, mais pour tester mon code, j'ai lié le datagriview à un dataTable, que j'ai appelé "Enseignants", je fais des saisies dans des textbox, pas besoin de toucher au datagridview, quand je click sur mes boutons, le DataGrid et les textbox sont synchronisés, et je peux me déplacer aisement. Et actuelement 2 boutons sont encore assez obscure " BtnAjout" et "BtnEnrégistrer".     D'où le code que j'ai posté avant celui-ci.  merci à vous tous. Je rest tout ouïe !


    Thibaut MOUELE

    • Marqué comme réponse thima137 jeudi 25 octobre 2012 11:31
    • Non marqué comme réponse thima137 jeudi 25 octobre 2012 11:32
    jeudi 25 octobre 2012 09:24
  • Bonjour Lyamine

    Merci, je teste  pour l'exécution du InsertCommand !


    Thibaut MOUELE

    jeudi 25 octobre 2012 09:32