Mise a jour, ajout et suppression

Question

Bonjour a tous,

Je me permet d'écrire sur ce site car depuis un petit moment je viens de débuter un petite application en VB.net et cherche désespérément comment faire une mise a jour après un formulaire de détails. Composé de textbox. Et j'aimerais aussi ajouter ou supprimer des données dans un datagridview. 

J&#8217;espère que vous pourrez m'aider.

Cordialement, Amandine.

MINDONGO · Answer

salut didine7231


vous avez 9 msg et 19 msg CS 
alors comporte toi comme un homme ou femme c.à.d  tu demande quelque chose avec envie de ne pas avoir une réponse!!!
Soyons Toujours à la disposition des autres

didine7231 · Answer

Salut Mindongo,

Je ne comprends pas pourquoi tu dis ça. Bien sur que j'ai envie qu'on me réponde.

ucfoutu · Answer

Bonjour,
Si tu veux comprendre à quoi se réfère MINDONGO ;
Relis donc Le règlement de ce forum et procède toi-même au recensement des points non respectés.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

MINDONGO · Answer

Merci beaucoup Ucfoutu
il voulais que j ai lui réexplique or il a fallu raisonné en dissertant mes phrases  


Soyons Toujours à la disposition des autres

didine7231 · Answer

Je suis désolée.

Bonne journée a vous.

MINDONGO · Answer

pas question de dire çà mais 
cherche désespérément comment faire une mise a jour après un formulaire de détails. Composé de textbox
c pour celà que j ai bien di soit homme

alors tes textbox là si celà vont par exemple quand on parle de mise à jour ca va te réccuperer les champs Numérique, Char... et quelle méthode utilisze-vous? pck nous avons besoins peu etre de voir tes codes puis peut etre pas moi mais les autres vont t aider
Et j'aimerais aussi ajouter ou supprimer des données dans un datagridview donc selon vous c est nous qui aller préciser ta technologie (ODBC.....) hum tu es vrement Gentil

toute fois met alors en jours 
Private Sub UpdateRowToDatabaseODBC()
        If Not IsNothing(LastDataRowODBC) Then
            If (LastDataRowODBC.RowState = DataRowState.Modified) Then
                AdapterODBC.DeleteCommand =
commandBuilderODBC.GetDeleteCommand(True)
                AdapterODBC.InsertCommand =
commandBuilderODBC.GetInsertCommand(True)
                AdapterODBC.UpdateCommand =
commandBuilderODBC.GetUpdateCommand(True)
                Try
                    AdapterODBC.Update(LastDataRowODBC.Table)
                Catch ex As Exception
                End Try
            ElseIf (LastDataRowODBC.RowState = DataRowState.Added) Then
                For Each row As Object In LastDataRowODBC.ItemArray
                    Console.WriteLine(row)
                    If IsDBNull(row) Then row = DBNull.Value
                Next
            End If
        End If
    End Sub

'************************
 Dim thisBindingSource As BindingSource =
CType(PersonnelBindingSourceODBC, BindingSource)
        dataRowCopODBC = CType(thisBindingSource.Current, DataRowView).Row
   
soit maintenant sage de nous préciser quelle est ta vision comme tu ve de la réponse alors voilà une réponse en l'aire
Soyons Toujours à la disposition des autres

didine7231 · Answer

Quand je parle de faire une mise a jour avec des textbox c'est qu'en fait il faudrait récupéré les champs dans chacun d'entre eux pour pouvoir faire un update. Par exemple si j'ouvre ma fenêtre de details et que je modifie un champ dans une des textbox et que je clique sur un bouton enregistrer ca envoie l'update. Mais jusqu'a maintenant je n'ai utilisé que le mode non connecté ( avec le datatabe, dataset..), du coup oui ca récupérera des champs de type char, int.

Pour le code de mon détail je n'ai rien a pars ca :
Public Class Details

  
    
    Private Sub btn_maj_Click(sender As Object, e As EventArgs) Handles btn_maj.Click
       

    End Sub

   
    Private Sub btn_annuler_Click(sender As Object, e As EventArgs) Handles btn_annuler.Click
        Me.Close()
    End Sub

   

    
End Class Je ne sais pas si c'est utile mais je le met quand même.


Après le code de mon formulaire principale avec la datagridview est celui ci :
Imports System.Data.SqlClient
Imports System.Windows.Forms


Public Class Form1



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'DataSet11.information'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.InformationTableAdapter.Fill(Me.DataSet11.information)
        'TODO: cette ligne de code charge les données dans la table 'DataSet1.information'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.InformationTableAdapter.Fill(Me.DataSet1.information)
        'TODO: cette ligne de code charge les données dans la table 'DataSet1.materiel'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.MaterielTableAdapter.Fill(Me.DataSet1.materiel)

    End Sub



    Private Sub lst_materiel_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lst_materiel.SelectedIndexChanged
        Dim idmateriel As New DataView

        idmateriel.Table = DataSet1.information
        idmateriel.RowFilter = "id_materiel=" & lst_materiel.SelectedItem(0)
        DataGridView1.DataSource = idmateriel
    End Sub






    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

        Dim i As Integer = e.RowIndex 'Numero de la ligne
        Dim col1 As String
        Dim col2 As String
        Dim col3 As String
        Dim col4 As String
        Dim col5 As String
        Dim col6 As String


        col1 = Me.DataGridView1.Rows(i).Cells(0).Value.ToString
        col2 = Me.DataGridView1.Rows(i).Cells(1).Value.ToString
        col3 = Me.DataGridView1.Rows(i).Cells(2).Value.ToString
        col4 = Me.DataGridView1.Rows(i).Cells(3).Value.ToString
        col5 = Me.DataGridView1.Rows(i).Cells(4).Value.ToString
        col6 = Me.DataGridView1.Rows(i).Cells(5).Value.ToString




        Details.txt_lieu.Text = col1
        Details.txt_adresseip.Text = col2
        Details.txt_idinfo.Text = col6
        Details.txt_type.Text = col3
        Details.txt_nserie.Text = col4
        Details.ShowDialog()




    End Sub


    Private Sub btn_valider_Click(sender As Object, e As EventArgs) Handles btn_valider.Click
        Me.InformationBindingSource.EndEdit()
        Me.InformationTableAdapter.Update(Me.DataSet1.information)
    End Sub


    Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Dim messagequitter As Integer
        messagequitter = MsgBox("Etes-vous sure de vouloir quitter ?", vbYesNo + vbQuestion, "Quitter")
        If messagequitter = vbYes Then End
    End Sub
End Class

Si vous avez besoin d'autres détails n'hésitez pas.

Mise a jour, ajout et suppression

7 réponses

Votre réponse

Discussions similaires