大家有没有用过DataRelation，我写了一个，不过怎么关联表的数据也不能删除~！！大家帮忙啊

[ketao_78]

代码我我贴：
我用的是northwind的两个表orders employees

: Private Sub CreateConstraint()
' Declare parent column and child column variables.
Dim pCol As DataColumn
Dim cCol As DataColumn
Dim myFKC As ForeignKeyConstraint
' Set parent and child column variables.
pCol = DataSetOrder.Tables("Orders").Columns("EmployeeID")
cCol = DataSetOrder.Tables("Employees").Columns("EmployeeID")
myFKC = New ForeignKeyConstraint("SuppierFKConstraint", pCol, cCol)
' Set null values when a value is deleted.
myFKC.DeleteRule = Rule.SetNull
myFKC.UpdateRule = Rule.Cascade
myFKC.AcceptRejectRule = AcceptRejectRule.Cascade
' Add the constraint, and set EnforceConstraints to true.
DataSetOrder.Tables("Employees").Constraints.Add(myFKC)
DataSetOrder.EnforceConstraints = True
End Sub

Private Sub DataGrid2_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid2.DeleteCommand

'CreateRelation()
CreateConstraint()
Me.SqlCommand1.Parameters("@para1").Value = Me.Label1.Text
Me.SqlConnection1.Open()
Me.SqlCommand1.ExecuteNonQuery()


End Sub

大家看看~！

[mbm]

因为你没有DataTextField

private void Page_Load(object sender, System.EventArgs e)
{

string connstring="data source=mbm;initial catalog=kms_db;user id=mbm;password=mbm";
string querystring="select * from person";

SqlConnection myconn=new SqlConnection(connstring);

myconn.Open();

SqlCommand mycommand=new SqlCommand(querystring,myconn);
SqlDataReader myreader=mycommand.ExecuteReader();

RadioButtonList1.DataSource=myreader;
RadioButtonList1.DataTextField="cName";
RadioButtonList1.DataBind();
}

[walaqi]

你在更新完毕后，重新调用fill方法
SqlDataAdapter.Fill(DataSet,"tablename");
或者不要使用command对象进行更新，而是使用SqlDataAdapter.Update(DataSet,"tablename",version)得方法进行更新。首先在dataset中删除你要删除得行，然后调用dataAdapter得update方法。
不过要注意，在调用update方法前不要调用dataset得acceptChanges方法否则不会发生任何更新动作。

[mbm]

对不起，我上边的代码贴错地方了。

你自己想想怎么写吧！你主要的错误是：你是在dataset中建的关联，你必须利用sqldataadapter通过dataset更新库表，而sqlcommand是不经过dataset直接操纵数据库的。

[mbm]

你是在数据集中建立的relation，但你删除时操作的是数据库，你应该用sqldataadapter对象在数据集中操作，它会引发数据集中相关表的改变，然后update(),这样，数据库会发生改变。
不应该用sqlcommand对象操作数据库，这样你的表关联没用，因为你没有通过数据集。
还有，如果你用DataRealtion，一些主健，外健等信息会自动创建的。

[ketao_78]

你好，能不能给个例子给我看看

[mbm]

看来这个问题还挺重要，用DataRealation实现，已经调试通过。
建两个表
employ:id,name id主健
order1:orderid,id orderid主健

string connstring="data source=mbm;initial catalog=kms_db;user id=mbm;password=mbm";
string querystring1="select * from employ";
string querystring2="select * from order1";

SqlConnection myconn=new SqlConnection(connstring);
SqlDataAdapter myadapter1=new SqlDataAdapter(querystring1,myconn);
SqlDataAdapter myadapter2=new SqlDataAdapter(querystring2,myconn);

SqlCommandBuilder mybuilder1=new SqlCommandBuilder(myadapter1);
SqlCommandBuilder mybuilder2=new SqlCommandBuilder(myadapter2);

DataSet ds=new DataSet();

myadapter1.Fill(ds,"employ");
myadapter2.Fill(ds,"order1");

DataRelation myrelation=new DataRelation("relation1",ds.Tables["employ"].Columns["Id"],ds.Tables["order1"].Columns["Id"]);
//注意，这行会自动创建外健约束

ds.Relations.Add(myrelation);

ds.Tables["employ"].Rows[0].Delete();//注意，这里只删除了employ表的一行数据

myadapter1.Update(ds,"employ");
myadapter2.Update(ds,"order1");

检查一下库表，order1中关于前面删除那行那个人的纪录也都删除了，所以可以判断dataset中表关联成功。

[ketao_78]

可惜我这里还是出错

[ketao_78]

老是说“不能启用此约束，因为不是所有的值都具有相应的父值”

[ketao_78]

没事，谢谢你
知道错误的地方了，不过还是不知道实现我的想法
我用northwind数据库，里面的表orders 和employees
我是想把employees纪录删除时候，自动将orders的与employees关联的数据删除

[ketao_78]

多多向你们学习~！

[龙腾九霄]

在数据中做一个删除的trigger就可以了，不用这么麻烦的。

[mbm]

你先把orders和employees表都填充到一个dataset
然后建立这两个表的关联，建立两个DataColumn对象对应两个表主健和外健，然后ds.Relations.Add(你建立的daterelation对象)。你看看msdn中的datarelation类。
以后，你更改数据集中的主表时从表就会随着更改，这只是在数据集中。最后Sqldataadapter.Update()，将数据集中的更改写回数据库。
其实我也没写过上述代码，只是了解，共同进步吧

[mbm]

对，jackyhx(飞不动的侠)的方法是最好的办法。
不过既然dataset提供了这项功能，试试也无妨。

[ketao_78]

你好，我是这么写的：
Private Sub DataGrid2_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid2.DeleteCommand

CreateConstraint()

Dim index As Integer
index = e.Item.ItemIndex
DataSetOrder.Employees.Rows(index).Delete()
Me.SqlDataAdapter2.Update(Me.DataSetOrder)
Me.DataGrid2.DataBind()

End Sub


Private Sub CreateConstraint()
' Declare parent column and child column variables.
Dim pCol As DataColumn
Dim cCol As DataColumn
Dim myFKC As ForeignKeyConstraint
' Set parent and child column variables.
pCol = DataSetOrder.Tables("Employees").Columns("EmployeeID")
cCol = DataSetOrder.Tables("Orders").Columns("EmployeeID")
myFKC = New ForeignKeyConstraint("SuppierFKConstraint", pCol, cCol)
' Set null values when a value is deleted.
myFKC.DeleteRule = Rule.SetNull
myFKC.UpdateRule = Rule.Cascade
myFKC.AcceptRejectRule = AcceptRejectRule.Cascade
' Add the constraint, and set EnforceConstraints to true.
DataSetOrder.Tables("Orders").Constraints.Add(myFKC)
DataSetOrder.EnforceConstraints = True
End Sub

报错是：不能启用此约束，因为不是所有的值都具有相应的父值。

[mbm]

我估计你的orders表中肯定有EmployeeId值在Employees表中不存在

[ketao_78]

这个报错一般是什么引起的，高人看看

[muddledman]

收藏！

[muddledman]

看来这个问题还挺重要，用DataRealation实现，已经调试通过。
建两个表
employ:id,name id主健
order1:orderid,id orderid主健

vb.net版本的

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
SqlConnection1.Open()
Dim str1 As String = "SELECT * FROM order1"
Dim str2 As String = "SELECT * FROM employ"

Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(str1, SqlConnection1)
Dim mybuilder1 As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(adapter1)

Dim adapter2 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(str2, SqlConnection1)
Dim mybuilder2 As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(adapter2)

Dim dataset As Data.DataSet = New Data.DataSet()
adapter1.Fill(dataset, "order1")
adapter2.Fill(dataset, "employ")
Dim datarelation1 As Data.DataRelation = New Data.DataRelation("relation1", dataset.Tables("employ").Columns("ID"), dataset.Tables("order1").Columns("ID"))
dataset.Relations.Add(datarelation1)
dataset.Tables("employ").Rows(0).Delete()
adapter2.Update(dataset, "employ")
adapter1.Update(dataset, "order1")

End Sub

Private Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Unload
SqlConnection1.Close()
SqlConnection1 = Nothing
End Sub