Ajouter un commentaire

ezo-esm

Bonjour

En utilisant une base de données SQL

tu dois d'abord créer le formulaire avec les textboxes boutons et datagrid puis la connexion entre ta base de données et VS
pour afficher les information que tu veux traiter.

Public Class Form1
            Dim conn As New SqlConnection("data source=localhost;initial      catalog=nom_base_données;integrated security=true")
            Dim ds As New DataSet
            Dim da As New SqlDataAdapter("select * from nom_table", conn)
            Dim nom_table As New DataTable
   

puis dans ton form tu mets en double cliquant dessus


        da.Fill(ds, "nom_table")
        
        nom_table = ds.Tables("nom_table")
       
        DataGrid1.DataSource = nom_table
       

et dans ta datagrid (je pense je ne suis pas très sur parc que ça fait presque une année que je n'ai pas utilisé dotnet)


Dim index As Integer = DataGrid1.CurrentRowIndex
        TextBox1.Text = DataGrid1.Item(index, 0)
        TextBox2.Text = DataGrid1.Item(index, 1)
        TextBox3.Text = DataGrid1.Item(index, 2)
        TextBox4.Text = DataGrid1.Item(index, 3)

puis pour les boutons de la mise a jour tu déclare les attributs que tu as dans ta table et tu mets la requête souhaiter par exemple dans un bouton d'ajout

'
        Dim champs1 As Integer = TextBox1.Text
        Dim champs2 As String = TextBox2.Text
        Dim champs3 As String = TextBox3.Text
        Dim champs4 As Integer = TextBox4.Text
'puis tu cree une nouvelles ligne pour ajouter les information 'correspondantes au champs de ta table
        Dim ligne As DataRow = nom_table.NewRow
        ligne.Item(0) = champs1
        ligne.Item(1) = champs2
        ligne.Item(2) = chmaps3
        ligne.Item(3) = champs4
'tu ajoute cette ligne a la table
        nom_table.Rows.Add(ligne)
'puis tu ajoute  la table a datagrid
        DataGrid1.DataSource = nom_table
        Dim cmd As New SqlCommand("insert into nom_table values(" & champs1 & ",'" & chapms2 & "','" & champs3 & "'," & champs4 & ")", conn)
        da.InsertCommand = cmd
        da.Update(ds, "nom_table")

voila ce que j'ai pu Marie excuse les erreurs je ne suis pas sur de tout ça mais essayes comme même
bonne chance

Filtered HTML

Plain text

CAPTCHA
Cette question permet de vérifier que vous n'êtes pas un robot spammeur :-)
 Y   Y  Y   Y   SSS       J  X   X 
Y Y Y Y S J X X
Y Y SSS J X
Y Y S J J X X
Y Y SSSS JJJ X X