Ajouter à un dataSet
amylee1984
Messages postés
153
Date d'inscription
mardi 1 novembre 2005
Statut
Membre
Dernière intervention
20 août 2006
-
23 juin 2006 à 04:47
amylee1984 Messages postés 153 Date d'inscription mardi 1 novembre 2005 Statut Membre Dernière intervention 20 août 2006 - 23 juin 2006 à 16:39
amylee1984 Messages postés 153 Date d'inscription mardi 1 novembre 2005 Statut Membre Dernière intervention 20 août 2006 - 23 juin 2006 à 16:39
A voir également:
- Ajouter à un dataSet
- Ajouter un élément dans un tableau java - Forum Java
- Ajouter des entiers dans un tableau a trier dans un ordre croissant - Forum Java
- AJout de ligne dans un tableau en fonction de la saisie ✓ - Forum Java
- Sql ajouter une colonne dans un select ✓ - Forum ASP / ASP.NET
- Comment ajouter une zone de texte sur canva ✓ - Forum Delphi / Pascal
3 réponses
olixelle
Messages postés
506
Date d'inscription
vendredi 30 juillet 2004
Statut
Membre
Dernière intervention
3 mars 2008
2
23 juin 2006 à 09:42
23 juin 2006 à 09:42
Dim dat_row() As DataRow
dat_row = ds.Tables(0).Select("num_stagiaire" & "=" & Num.Text)
If not dat_row.Hasrows Then
dr = ds.Tables("personne").NewRow
dr("num_stagiaire") = code.Text
dr("nom") = nom.Text
dr("prenom") = prenom.Text
dr("section") = section.Text
ds.Tables("personne").Rows.Add(dr)
Else
MsgBox("ce numero existe deja")
End If
dat_row = ds.Tables(0).Select("num_stagiaire" & "=" & Num.Text)
If not dat_row.Hasrows Then
dr = ds.Tables("personne").NewRow
dr("num_stagiaire") = code.Text
dr("nom") = nom.Text
dr("prenom") = prenom.Text
dr("section") = section.Text
ds.Tables("personne").Rows.Add(dr)
Else
MsgBox("ce numero existe deja")
End If
olixelle
Messages postés
506
Date d'inscription
vendredi 30 juillet 2004
Statut
Membre
Dernière intervention
3 mars 2008
2
23 juin 2006 à 09:44
23 juin 2006 à 09:44
non je t'ai dit des bétises:
If ds.Tables(0).Select("num_stagiaire" & "=" & Num.Text).rows.count = 0 Then
dr = ds.Tables("personne").NewRow
dr("num_stagiaire") = code.Text
dr("nom") = nom.Text
dr("prenom") = prenom.Text
dr("section") = section.Text
ds.Tables("personne").Rows.Add(dr)
Else
MsgBox("ce numero existe deja")
End If
If ds.Tables(0).Select("num_stagiaire" & "=" & Num.Text).rows.count = 0 Then
dr = ds.Tables("personne").NewRow
dr("num_stagiaire") = code.Text
dr("nom") = nom.Text
dr("prenom") = prenom.Text
dr("section") = section.Text
ds.Tables("personne").Rows.Add(dr)
Else
MsgBox("ce numero existe deja")
End If
amylee1984
Messages postés
153
Date d'inscription
mardi 1 novembre 2005
Statut
Membre
Dernière intervention
20 août 2006
3
23 juin 2006 à 16:39
23 juin 2006 à 16:39
bonjour, merci pour la reponse , mais il me souligne encore la ligne :
ds.Tables(0).Select("num_stagiaire" & "=" & Num.Text).rows.count = 0
le message c'est " Rows n'est pas un membre de system.array"
merci d'avance
ds.Tables(0).Select("num_stagiaire" & "=" & Num.Text).rows.count = 0
le message c'est " Rows n'est pas un membre de system.array"
merci d'avance
