relation entre 2 tables dans un DataSet

Bonjour, qq1 peut m'aider à créer une relation entre 2 tables dans un DataSet
Lorsque j'essaye de créer une relation entre ses 2 tables ("Achat" et "AchatDetal") dans le dataSet "AchatdataSet", je reçois une exception.

Code:

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
 
Dim relation As DataRelation
relation = New DataRelation("relationAchat", achatDataSet.Tables("Achat").Columns("IDAchat"), achatDataSet.Tables("AchatDetail").Columns("IDAchat"))
Try
relation.ChildKeyConstraint.DeleteRule = Rule.Cascade
relation.ChildKeyConstraint.UpdateRule = Rule.Cascade
achatDataSet.Relations.Add(relation)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "relation entre Achat et AchatDetail")
End Try
le message de l'exception:
Object reference not set to an instance of an object
 
voici le code:
Dim achatSQL As String = "select *from Achat"
Dim achatDetailSQL As String = "select *from AchatDetail"
Dim achatDataSet As New DataSet
Dim achatTableAdapter As SqlDataAdapter
Dim achatDetailTableAdapter As SqlDataAdapter
Dim relation As DataRelation
 
achatDataSet = New DataSet("orderDataSet")
achatTableAdapter = New SqlDataAdapter(achatSQL, con)
achatDetailTableAdapter = New SqlDataAdapter(achatDetailSQL, con)
achatTableAdapter.Fill(achatDataSet, "Achat")
achatDetailTableAdapter.Fill(achatDataSet, "AchatDetail")

NB: cette relation est déja définie dans la base de donnée
Merci

Bonjour,
Je ne remarque pas d'erreur.
Essaie :
1. remplir le dataset
2. créer 2 datacolums

Code:

1
2
3
4
5
6
7
dim Colparent as datacolumn
 dim ColEnfant as datacolumn
 dim Relation as  datarelation
 ColParent = me.achatDataSet.Tables("Achat").Columns("IDAchat")
 colEnfant = me.achatDataSet.Tables("AchatDetail").Columns("IDAchat")
 Relation = new datarelation("relationAchat", ColParent, ColEnfant)
 me.achatDataSet.Relations.Add(Eelation)

Bon boulot8-) Jean

Merci JPelli,
Je vais essayer:) .