SQL数据库关系构建器

• 下载源代码 - 22.7 Kb
• 下载二进制文件和帮助文件 - 20.4 Kb

引言

我最近需要用 SQL 表以及所有相关表（向上或向下）填充一个 DataSet。我还需要能够自动创建 DataSet 中存在的 SQL 关系。我在此处发布结果，以供其他程序员参考。

请注意：使用此对象加载大型 SQL 表不是一个好主意！！

背景

用于返回特定表的关系成员的 SQL 脚本可以在 SQLScripts.resx 下的 RelationQuiery_Down 或 RelationQuiery_Up 中找到。

使用代码

下面的代码片段假定你有一个名为 DataGrid1 的 DataGrid。

GetDataSet 返回一个 DataSet，其中填充了与作为参数传递的表名相关的表，以及该表本身。DataSet 中的表命名方式与 SQL 数据库中的命名方式相同。

   Protected Const SQL_CONNECTION_STRING As String = _
   "Server=localhost;" & _
   "DataBase=northwind;" & _
   "Integrated Security=SSPI"

   Protected DidPreviouslyConnect As Boolean = False
   Protected strConn As String = SQL_CONNECTION_STRING

   Sub CreateDataSet()
      Dim scnnNW As SqlClient.SqlConnection

      scnnNW = New SqlClient.SqlConnection(strConn)
      scnnNW.Open()

      'Create a new instance of the relation builder
      Dim rb As New Level54.Data.SQLClient.SQLRelationBuilder(scnnNW)

      DataGrid1.DataSource = rb.GetDataSet("Employees", _
             Data.SQLClient.RelationDirection.Down, -1)
      DataGrid1.DataMember = "Employees"
   End Sub

历史

版本 1.0.1690.32421：发布。