Discussion :

[baradoss]

salut a vous tous!

j'ai creé un dataset fortement typé en suivant les etapes de super tutoriel de J-M Rabilloud.

Mai j'ai rencontré le probleme suivant:

j'ai un table fonctionnaires qui possède les caracteristiques suivantes;
fonctionnaires(#num_fonctionnaire,nom,prenom,adresse,telephone,num_chef)
avec num_chef (short) peut etre Null, et num_fonctionnaire est auto incrémenté.

Alors je vaudrais savoir comment je peux faire pour ajouter un nouveau fonctionnaire avec num_chef sera null?

par exemple pour ajouter un nouveau fonctionnaire avec num_chef = 5. je tape :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.dataset1.fonctionnaires.AddfonctionnairesRow(nom.Text, prenom.Text, adresse.Text, telephone.Text, 5)

Mais pour num_chef = Null, Comment faire?

[bidou]

je suppose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.dataset1.fonctionnaires.AddfonctionnairesRow(nom.Text, prenom.Text, adresse.Text, telephone.Text, DBNull.Value)

[Graffito]

Comme ceci?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
int? chef; // definir ichef comme int "nullable"
chef=5   ; // cas 1 : ichef défini
chef=null; // cas 2 : ichef non spécifié
Me.dataset1.fonctionnaires.AddfonctionnairesRow
  (nom.Text, prenom.Text,adresse.Text, telephone.Text,chef );

[baradoss]

Merci bidou et Grafitto pour vos réponse!

je suppose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.dataset1.fonctionnaires.AddfonctionnairesRow(nom.Text, prenom.Text, adresse.Text, telephone.Text, DBNull.Value)

c'est ça ce que j'ai essayé au debut, mes j'aurais toujours le message suivant :

une valeur de type 'DBnull' ne peut pas etre convertie en 'Short'.

Comme ceci?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
int? chef; // definir ichef comme int "nullable"
chef=5   ; // cas 1 : ichef défini
chef=null; // cas 2 : ichef non spécifié
Me.dataset1.fonctionnaires.AddfonctionnairesRow
  (nom.Text, prenom.Text,adresse.Text, telephone.Text,chef );

Je crois que c'est la bonne solution, mais ce code et en C#, et moi je suis sous VB.Net.
pouvez vous m'indiquez comment je declare une variable nullable en VB.Net?

[Tusbar]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.dataset1.fonctionnaires.AddfonctionnairesRow(nom.Text, prenom.Text, adresse.Text, telephone.Text, Nothing)

Non ?

[baradoss]

WAWW!

Merci bien Tusbar! ça marche avec Nothing!

Mais lorsque j'ai tenté de faire un Update pour mon dataset j'ai eu l'erreur suivant que j'ai récupere par un catch de type System.Data.Sqlclient.SqlException



que dois je faire maintenant?

et Merci d'avance!

[Tusbar]

Salut, je ne m'y connais pas trop en db, mais tu peux montrer le code de ta requête d'update ?

[baradoss]

merci!

pour l'update de dataset, je l'ai fait par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Me.dafonctionnaires.update(Me.dataset)

avec dafonctionnaires un data adapter que j'ai crée en visuel, c'est a dire que j'ai pas touché son code!

[stdebordeau]

salut à tous. je me permet de relancer ce post (qui n'a pas été conclu) parce que j'ai le même problème. alors si quelqu'un à la solution ...help.

[stdebordeau]

Bon j'ai fini par trouver la solution.

en fait, la génération automatique du dataset typé a déjà tout fait.
de la même manière que sur une ligne on accède au cellule par des propriétés (colonne), on peut aussi accéder à des méthodes qui annule la valeur des cellules. exemple pour avoir la valeur d'une cellule (ligne i, colonne macolonne)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dataset.matable.matableRow(i).macolonne

maintenant pour annuler la valeur on a la methode SetmacolonneNull (généré automatiquement, aider vous de l'intellisense)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dataset.matable.matableRow(i).SetmacolonneNull

intéressant ce dataset typé, n'est ce pas ?

[stdebordeau]

Encore un problème de valeur nulle sur dataset fortement typé. il y'a tout de même peu de littérature sur le sujet.

Ma réponse précédente apportait une solution à comment passer une valeur nulle. Mais là, mon problème est encore plus corsé:

j'effectue une requête linq sur une des tables de mon dataset (fortement typé bien sur)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim rq = From element as GesBourseDataset.TransacViewRow In GesBourseDataset.TransacView() _
Where Trim(element.StatuTrsc) = "En Attente" _
Select element.NomClt, element.CodeClt, element.CodeCpteClt, element.CodeTrsc, element.NomTitre, element.TypeTitre, element.TypeTrsc, element.StatuTrsc, element.DateTrsc, Score = DateDiff(DateInterval.Day, Now, element.DateTrsc) Order By Score Descending
For Each lgn In rq.ToList
GesBourseDataset.AttenteT.AddAttenteTRow(lgn.NomClt, lgn.CodeClt, lgn.CodeCpteClt, lgn.CodeTrsc, lgn.NomTitre, lgn.DateTrsc, lgn.TypeTrsc, lgn.StatuTrsc, lgn.Score)
Next

à l'exécution du For each, avant même d'en arriver à l'ajout des lignes, il me renvoie l'erreur nullexception comme quoi ma colonne "TypeTrsc" aurait des valeurs DbNull. ce qui du reste est vrai, mais ne doit pas constituer un problème.

une idée ?
je serai très heureux d'accéder à des cours, tuto ou autres qui me permettraient enfin de maitriser la bête (dataset typé)

[stdebordeau]

Bon j'ai fini par trouver après une journée d'acharnement
pour ceux que ça intéresse, voici le code équivalent qui marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Dim rq = From element In GesBourseDataset.TransacView.AsEnumerable _
Where (element.StatuTrsc = "En attente") _
Select NomClt = If(element.IsNomCltNull, Nothing, element.NomClt), element.CodeClt, element.CodeCpteClt, element.CodeTrsc, element.NomTitre, TypeTrsc = If(element.IsTypeTrscNull, Nothing, element.TypeTrsc), StatuTrsc = If(element.IsStatuTrscNull, Nothing, element.StatuTrsc), DateTrsc = If(element.IsDateTrscNull, Nothing, element.DateTrsc), Score = DateDiff(DateInterval.Day, Now, If(element.IsDateTrscNull, Now, element.DateTrsc)) Order By Score Descending
Dim rwa As GesBourse.GesBourseDataSet.AttenteTRow
For Each lgn In rq
rwa = GesBourseDataset.AttenteT.NewAttenteTRow
rwa.CodeClt = lgn.CodeClt
If lgn.NomClt = Nothing Then
rwa.SetNomCltNull()
Else
rwa.NomClt = lgn.NomClt
End If
rwa.CodeCpteClt = lgn.CodeCpteClt
rwa.CodeTrsc = lgn.CodeTrsc
rwa.NomTitre = lgn.NomTitre
If lgn.TypeTrsc = Nothing Then
rwa.SetTypeTrscNull()
Else
rwa.TypeTrsc = lgn.TypeTrsc
End If
If lgn.StatuTrsc = Nothing Then
rwa.SetStatuTrscNull()
Else
rwa.StatuTrsc = lgn.StatuTrsc
End If
If lgn.DateTrsc = Nothing Then
rwa.SetDateTrscNull()
Else
rwa.DateTrsc = lgn.DateTrsc
End If
rwa.ScoreT1 = lgn.Score
GesBourseDataset.AttenteT.AddAttenteTRow(rwa)
End If
Next