message d'erreur d'ajout des données

salut tout le monde.
j'ai une table "responsable" contenant une clé étrangère depuis la table "categorie".Quand je remplie le formulaire d'un responsable et je l'affecte une catégorie un message d'erreur s'affiche qui dit:

Citation:

cette ligne appartient deja à une autre table.

j'ai pas pu corrigé l'erreur. aidez moi SVP à la correction.
merci bien :))

Bonjour,

Cela n'est pas une erreur SQL Server et ressemble fortement à une erreur Access.
Est-ce bien le cas ? :)

@++ ;)

salut
nn c'est avec sql server 2008.
C'est résolu mercii mais j'ai un autre erreur qui se génère:

Citation:

La référence d'objet n'est pas définie à une instance d'un objet

j'utilise ce code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Not (TextBox1.Text = "") And Not (TextBox2.Text = "") And Not (TextBox4.Text = "") Then
 
 
            Dim strsql As String = "Select * from responsable"
            Dim strConnexion As String = "Persist Security Info=true;Integrated Security=SSPI;database=parc municipal;server=USER-PC\AHMED"
            Dim x As Exception
 
                Dim oConnection As New SqlConnection(strConnexion)
                oConnection.Open()
                Dim ObjetDA As New SqlDataAdapter(strsql, oConnection)
                ObjetDA.Fill(Parc_municipalDataSet1, "responsable")
                ObjetDA.InsertCommand = New SqlCommand("INSERT INTO responsable(num_matricule,nom_prenom, titre) Values(@num_matricule,@nom_prenom,@titre)", oConnection)
                ObjetDA.InsertCommand.Parameters.Add("@num_matricule", SqlDbType.Int, 15, "num_matricule")
                ObjetDA.InsertCommand.Parameters.Add("@nom_prenom", SqlDbType.NVarChar, 15, "nom_prenom")
                ObjetDA.InsertCommand.Parameters.Add("@titre", SqlDbType.NVarChar, 15, "titre")
 
 
 
                Dim DR As DataRow
                DR = Parc_municipalDataSet1.Tables("responsable").NewRow
                DR("num_matricule") = TextBox1.Text
                DR("titre") = TextBox4.Text
                DR("nom_prenom") = TextBox2.Text
                Parc_municipalDataSet1.Tables("responsable").Rows.Add(DR)
                ObjetDA.Update(Parc_municipalDataSet1, "responsable")
                Parc_municipalDataSet1.Clear()
                ObjetDA.Fill(Parc_municipalDataSet1, "responsable")
 
                Parc_municipalDataSet1.concerner_r.Constraints.Add("FK_concerner_r_responsable", Parc_municipalDataSet1.responsable.Columns("num_matricule"), Parc_municipalDataSet1.concerner_r.Columns("num_matricule"))
                Parc_municipalDataSet1.concerner_r.Constraints.Add("FK_concerner_r_categorie", Parc_municipalDataSet1.categorie.Columns("nom_cat"), Parc_municipalDataSet1.concerner_r.Columns("nom_cat"))
 
 
 
                Dim DR1 As DataRow
                DR1 = Parc_municipalDataSet1.Tables("concerner_r").NewRow
                DR1("num_matricule") = TextBox1.Text
                DR1("nom_cat") = ComboBox1.SelectedItem.ToString
                Parc_municipalDataSet1.Tables("concerner_r").Rows.Add(DR1)
                ObjetDA.Update(Parc_municipalDataSet1, "concerner_r")
                Parc_municipalDataSet1.Clear()
                ObjetDA.Fill(Parc_municipalDataSet1, "concerner_r")

merciii pour l'aide

Idem, il s'agit d'une erreur VB.NET ...

@++ ;)