本文整理汇总了VB.NET中System.Data.ForeignKeyConstraint.ForeignKeyConstraint构造函数的典型用法代码示例。如果您正苦于以下问题：VB.NET ForeignKeyConstraint构造函数的具体用法？VB.NET ForeignKeyConstraint怎么用？VB.NET ForeignKeyConstraint使用的例子？那么恭喜您, 这里精选的构造函数代码示例或许可以为您提供帮助。您也可以进一步了解该构造函数所在类System.Data.ForeignKeyConstraint的用法示例。
在下文中一共展示了ForeignKeyConstraint构造函数的4个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: CreateConstraint
' The next line goes into the Declarations section.
' SuppliersProducts is a class derived from DataSet.
Private suppliersProducts As SuppliersProducts
Private Sub CreateConstraint()
' Declare parent column and child column variables.
Dim parentColumn As DataColumn
Dim childColumn As DataColumn
Dim fkConstraint As ForeignKeyConstraint
' Set parent and child column variables.
parentColumn = _
suppliersProducts.Tables("Suppliers").Columns("SupplierID")
childColumn = _
suppliersProducts.Tables("Products").Columns("SupplieriD")
fkConstraint = New ForeignKeyConstraint(parentColumn, childColumn)
' Set various properties of the constraint.
With fkConstraint
.ConstraintName = "suppierFKConstraint"
.DeleteRule = Rule.SetNull
.UpdateRule = Rule.Cascade
.AcceptRejectRule = AcceptRejectRule.Cascade
End With
' Add the constraint, and set EnforceConstraints to true.
suppliersProducts.Tables("Products").Constraints.Add(fkConstraint)
suppliersProducts.EnforceConstraints = True
End Sub示例2: CreateConstraint
' The next line goes into the Declarations section.
' SuppliersProducts is a class derived from DataSet.
Private suppliersProducts As SuppliersProducts
Private Sub CreateConstraint()
' Declare parent column and child column variables.
Dim parentColumns(1) As DataColumn
Dim childColumns(1) As DataColumn
Dim fkConstraint As ForeignKeyConstraint
' Set parent and child column variables.
parentColumns(0) = _
suppliersProducts.Tables("OrderDetails").Columns("OrderID")
parentColumns(1) = _
suppliersProducts.Tables("OrderDetails").Columns("ProductID")
childColumns(0) = _
suppliersProducts.Tables("Sales").Columns("OrderID")
childColumns(1) = _
suppliersProducts.Tables("Sales").Columns("ProductID")
fkConstraint = _
New ForeignKeyConstraint(parentColumns, childColumns)
' Set various properties of the constraint.
With fkConstraint
.ConstraintName = "ProductSalesOrders"
.DeleteRule = Rule.SetDefault
.UpdateRule = Rule.Cascade
.AcceptRejectRule = AcceptRejectRule.Cascade
End With
' Add the constraint, and set EnforceConstraints to true.
suppliersProducts.Tables( _
"OrderDetails").Constraints.Add(fkConstraint)
suppliersProducts.EnforceConstraints = True
End Sub示例3: CreateConstraint
' The next line goes into the Declarations section of the module:
' SuppliersProducts is a class derived from DataSet.
Private suppliersProducts As SuppliersProducts
Private Sub CreateConstraint()
' Declare parent column and child column variables.
Dim parentColumn As DataColumn
Dim childColumn As DataColumn
Dim fkeyConstraint As ForeignKeyConstraint
' Set parent and child column variables.
parentColumn = _
suppliersProducts.Tables("Suppliers").Columns("SupplierID")
childColumn = _
suppliersProducts.Tables("Products").Columns("SupplierID")
fkeyConstraint = New ForeignKeyConstraint( _
"SupplierFKConstraint", parentColumn, childColumn)
' Set various properties of the constraint.
With fkeyConstraint
.DeleteRule = Rule.SetNull
.UpdateRule = Rule.Cascade
.AcceptRejectRule = AcceptRejectRule.Cascade
End With
' Add the constraint, and set EnforceConstraints to true.
suppliersProducts.Tables("Products").Constraints.Add(fkeyConstraint)
suppliersProducts.EnforceConstraints = True
End Sub示例4: CreateConstraint
Private Sub CreateConstraint(ByVal suppliersProducts As DataSet)
' Declare parent column and child column variables.
Dim parentColumns(1) As DataColumn
Dim childColumns(1) As DataColumn
Dim fkConstraint As ForeignKeyConstraint
' Set parent and child column variables.
parentColumns(0) = _
suppliersProducts.Tables("OrderDetails").Columns("OrderID")
parentColumns(1) = _
suppliersProducts.Tables("OrderDetails").Columns("ProductID")
childColumns(0) = _
suppliersProducts.Tables("Sales").Columns("OrderID")
childColumns(1) = _
suppliersProducts.Tables("Sales").Columns("ProductID")
fkConstraint = New ForeignKeyConstraint( _
"ProductSalesOrders", parentColumns, childColumns)
' Set various properties of the constraint.
With fkConstraint
.DeleteRule = Rule.SetDefault
.UpdateRule = Rule.Cascade
.AcceptRejectRule = AcceptRejectRule.Cascade
End With
' Add the constraint, and set EnforceConstraints to true.
suppliersProducts.Tables("OrderDetails").Constraints.Add( _
fkConstraint)
suppliersProducts.EnforceConstraints = True
End Sub