temsehs
Messages postés34Date d'inscriptionvendredi 2 mai 2008StatutMembreDernière intervention27 avril 2012
-
23 avril 2009 à 15:34
temsehs
Messages postés34Date d'inscriptionvendredi 2 mai 2008StatutMembreDernière intervention27 avril 2012
-
23 avril 2009 à 15:57
BONJOUR.
J'ai un petit problème sur vb.net , je veut inserer des ligne sur un table datagridview, personne qui peut m'aider a ce sujet??? et merci beaucoup d'avance.
temsehs
Messages postés34Date d'inscriptionvendredi 2 mai 2008StatutMembreDernière intervention27 avril 2012 23 avril 2009 à 15:45
non, je veut saisir des ligne avec des champ de saisie; cad, je doit saisi dans les champs puis quand je clic sur bouton valider les champs doit s'insérer dans la datagridview (chaque champ de saisie dans une colone bien sur)
cs_dalel
Messages postés2Date d'inscriptionjeudi 23 septembre 2004StatutMembreDernière intervention23 avril 2009 23 avril 2009 à 15:51
tu peux voir ce morceau de code, extrait d'une application qui existe sur ce site (cocktail) et qui permet d'ajouter une nouvelle ligne dans un datagridview
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
''''''''' Ceci servira a voir si l'ingrédient éxiste déjà dans le cocktail ''''''''
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source='" & selectbase.emplacement.Text & "'")
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
'ici on recherche les ingrédients du cocktail sélectionné dans la combobox du formulaire précédent (form_modif) Mycommand.CommandText "SELECT Table_autre.ingrédient FROM Table_nom INNER JOIN Table_autre ON Table_nom.ID_cocktail Table_autre.ID_cocktail WHERE Table_nom.nom_cocktail='" & form_modif.cb.Text & "'"
MyConnexion.Open()
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
Dim compte As Integer
Dim lol As String
compte = 0
Do While myReader.Read()
'ici on compte combien d'ingrédients il y a dans le cocktail
lol = myReader.GetString(0)
compte = compte + 1
Loop
myReader.Close()
Dim myReader1 As OleDbDataReader = Mycommand.ExecuteReader()
Dim tabel(compte) As String
Dim i As Integer
i = 0
Do While myReader1.Read()
'et ici on met chaque ingrédient appartenant au cocktail dans le tableau
tabel(i) = myReader1.GetString(0)
i = i + 1
Loop
myReader1.Close()
MyConnexion.Close()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If TextBox1.Text = "" Then
'petite vérification
MsgBox("Il faut entrer le nom de l'ingrédient !")
Else
Dim j As Integer
j = 0
For i = 0 To compte
If tabel(i) = TextBox1.Text Then
'autre vérification pour éviter les doublons d'ingrédients
'on recherche si le nouvel ingrédient appartient déjà au cocktail(le cas s'il figure déjà dans le tableau)
MsgBox("L'ingrédient " & TextBox1.Text & " appartient déjà au cocktail " & form_modif.cb.Text)
j = 1
Exit Sub
End If
Next
If j <> 1 Then
'si l'ingrédient n'appartient pas au cocktail alors...
Dim Mycommand1 As OleDbCommand = MyConnexion.CreateCommand() Mycommand1.CommandText "SELECT Table_autre.* FROM Table_nom INNER JOIN Table_autre ON Table_nom.ID_cocktail Table_autre.ID_cocktail WHERE Table_nom.nom_cocktail='" & form_modif.cb.Text & "'"
'on séléctionne tous les détails du cocktail sélectionné
Dim MyDataAdapter1 As New OleDbDataAdapter
MyDataAdapter1 = New OleDbDataAdapter(Mycommand1)
Dim MyDataset1 As New DataSet()
Dim MyDataTable1 As DataTable
Dim MyDataRow1 As DataRow
MyConnexion.Open()
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
MyDataAdapter1.Fill(MyDataset1, "Table_autre")
'Mettre dans un Objet DataTable une table du DataSet
MyDataTable1 = MyDataset1.Tables("Table_autre")
Dim MyCommandBuilder1 As New OleDbCommandBuilder(MyDataAdapter1)
MyDataRow1 = MyDataset1.Tables("Table_autre").NewRow()
'On permet l'écriture
''''''''''' on entre les nouvelles valeurs '''''''''''
MyDataRow1("ID_cocktail") = form_modif.ID_cock.Value
MyDataRow1("dose") = Me.NumericUpDown1.Value
MyDataRow1("ingrédient") = Me.TextBox1.Text
MyDataset1.Tables("Table_autre").Rows.Add(MyDataRow1)
''''''''''''''''''''''''''''''''''''''''''''''''''''''
'et on met à jour
MyDataAdapter1.Update(MyDataset1, "Table_autre")
MyDataset1.Clear()
MyDataAdapter1.Fill(MyDataset1, "Table_autre")
MyDataTable1 = MyDataset1.Tables("Table_autre")
MyConnexion.Close()
MsgBox("Ingrédient " & TextBox1.Text & " enregistré avec succés")
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End If
End If
End Sub