enregistrement datagrid

Question

bonjour a tous

je me pose comme question comment enregistrer un datagridview en vb.net 2008 express
en sachant que je ne veut pas utiliser acces .je travailler en vb6 avant et je ne comprend pas tous au .net . mon but est de reprendre un code que j ais fait en vb6 " sur ce site calcul heure de nuit 2 " pour le modifier en .net donc pour les personnes qui on vue ma source je remplace le msflexgrid par un datagrid et je vire les textbox par des MaskedTextBox pour une meilleur prise en main .
je vous mais le début de ma transformation en .net pour la compréhension ( je vous previens il n y a pas encore grand chose ) 
public Class Form1
 Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        Dim HeureDebut, HeureFin, hnormal, hjour As New DateTime


        Dim Intervalle_Heures_Minutes As String

        Dim hsupp As String
        hnormal = CDate(MaskedTextBox4.Text)
        HeureDebut = CDate(MaskedTextBox1.Text)


        HeureFin = CDate(MaskedTextBox2.Text)
       

        Intervalle_Heures_Minutes = HeureFin.Subtract(HeureDebut).ToString
        

        MaskedTextBox3.Text = (Intervalle_Heures_Minutes)
        hjour = CDate(MaskedTextBox3.Text)
        hsupp = hjour.Subtract(hnormal).ToString
        MaskedTextBox5.Text = (hsupp)
        
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Table1TableAdapter1.Fill(Me.Relever_heuresDataSet1.Table1)
        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter
        
       



    End Sub

    Private Sub AjoutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AjoutToolStripMenuItem.Click
        Dim style As New DataGridViewCellStyle
        With style
            .BackColor = Color.Beige
            .ForeColor = Color.Brown
            .Font = New Font("Verdana", 8)
        End With


        DataGridView1.AlternatingRowsDefaultCellStyle = style
        Me.Controls.Add(DataGridView1)
        DataGridView1.ColumnCount = 6

       

        With DataGridView1
          

            .Columns(0).Name = " Date"
            .Columns(1).Name = "heure embauche"
            .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(2).Name = "fin de service"
            .Columns(3).Name = "hsupp"
            .Columns(4).Name = "hnuit"
            .Columns(5).Name = "info"

            
        End With
        Dim row0 As String() = {DateTimePicker1.Text, MaskedTextBox1.Text, MaskedTextBox2.Text, MaskedTextBox3.Text, MaskedTextBox6.Text, TextBox1.Text}
        

        With Me.DataGridView1.Rows
            .Add(row0)
            
        End With

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
    
    End Sub

    Private Sub SauvegardeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SauvegardeToolStripMenuItem.Click
    End Sub
End Class  

je vous remercie d avance pour vos reponce qui vous me faire avancer très vite je pence

cs_christoni · Answer

Bonsoir,
pour enregistrer vos données entrées dans votre DGV, si vous ne voulez pas de base de données, il ne reste que la sauvegarde sous XML, à ma connaissance.
Utiliser un fichier.txt ne me semble pas trop adapté.

ocejade · Answer

bonjour a toi

excuse moi pour le retard a te repondre j ai actuellement des problemes de connection 
bon pour l enregistrement je ne suis pas contre l idée  d une basse de donnée mais le soussie c est que ne sais pas comment faire si tu peux m expliquer ca serais tres sympas et en plus il faut que quant j ouvre mon application la base souvre aussi avant de pouvoir inserée de nouvelles ligne 


merci d avance et a bientot

cs_christoni · Answer

Bonjour,
N'ayant jamais eu à sauvegarder de gros volumes, je ne travaille pas avec des bases de données, je ne puis t'être d'un grand secours.
J'utilise du XML pour ça.
Mais là il faut apprendre ce langage, ainsi que le xsl.
Tu peux te lancer dans une base de données, tu auras plus d'aide, ceux qui les manipulent semblent plus nombreux que ceux qui manipulent du xsl, sur les forums.
Bonne continuation.

ocejade · Answer

bonjour a tous 

je vous remercie pour le conseille et du coup je prent comme obtion la basse de donner 
mais la mon probleme et que je ne peut pas ajouter mes MaskedText et autres control dans mon datagrid qui est lie a ma base acces
alors je peut faire ? 

JE VOUS MAIS CE QUE J AIS CODER POUR MIEUX COMPRENDRE
 Class Form1

  

    

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     

        Me.ReleverTableAdapter.Fill(Me.PoiteuseDataSet.relever)

        ReleverDataGridView.EditMode = DataGridViewEditMode.EditOnEnter
        Dim style As New DataGridViewCellStyle
        With style
            .BackColor = Color.Beige
            .ForeColor = Color.Brown
            .Font = New Font("Verdana", 8)
        End With
        ReleverDataGridView.AlternatingRowsDefaultCellStyle = style
        Me.Controls.Add(ReleverDataGridView)

        
        

    End Sub

   

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then

            TextBox1.Text = "normal"
        End If
    End Sub

    

   


    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton1.Checked = False Then

            TextBox1.Text = "maladie"
        End If
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton3.Checked = True Then
            RadioButton1.Checked = False
            RadioButton2.Checked = False

            TextBox1.Text = "récupération"

        End If
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        If RadioButton4.Checked = True Then
            RadioButton1.Checked = False
            RadioButton2.Checked = False
            RadioButton3.Checked = False
            TextBox1.Text = "férié"
        End If
    End Sub

    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
        If RadioButton5.Checked = True Then
            RadioButton1.Checked = False
            RadioButton2.Checked = False
            RadioButton3.Checked = False
            RadioButton4.Checked = False
            TextBox1.Text = "congé"

        End If
    End Sub

    
    
    Private Sub ReleverBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReleverBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ReleverBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.PoiteuseDataSet)

    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Dim HeureDebut, HeureFin, hnormal, hjour, dhnuit, fhnuit As New DateTime
        
        Dim Intervalle_Heures_Minutes As String
        
        Dim hsupp As String
        Dim tnuit As String
        hnormal = CDate(MaskedTextBox4.Text)
        HeureDebut = CDate(MaskedTextBox1.Text)
        
        HeureFin = CDate(MaskedTextBox2.Text)
        

        Intervalle_Heures_Minutes = HeureFin.Subtract(HeureDebut).ToString
        

        MaskedTextBox3.Text = (Intervalle_Heures_Minutes)
        hjour = CDate(MaskedTextBox3.Text)
        hsupp = hjour.Subtract(hnormal).ToString
        MaskedTextBox5.Text = (hsupp)
        dhnuit = CDate(MaskedTextBox9.Text)
        fhnuit = CDate(MaskedTextBox10.Text)
        tnuit = fhnuit.Subtract(dhnuit).ToString
        MaskedTextBox11.Text = (tnuit)
        If (MaskedTextBox3.Text < MaskedTextBox11.Text) Then
            MaskedTextBox5.Text = "-" & MaskedTextBox5.Text


        End If


       

    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Dim row1 As Integer() = {DateTimePicker1.Text, MaskedTextBox1.Text, MaskedTextBox2.Text, MaskedTextBox3.Text, MaskedTextBox5.Text, MaskedTextBox6.Text, TextBox1.Text}


        With Me.ReleverDataGridView.Rows
            .Add(row1)

        End With
    End Sub

    
End Class

J ESPERE QUE QUELQU UN POURRAS M AIDER CAR LA JE BLOCQUE 
JE VOUS REMERCIE D AVANCE

Enregistrement datagrid

4 réponses

Votre réponse

Discussions similaires