使用 SQL Server 2008 自动生成 VB.NET 表单

Question

我想使用 SQL Server 数据库中的表（一个表单/数据库表）自动生成 VB.NET 表单。为它编写自定义代码也许是可能的，但如果已经有一些功能可以完成这项工作，那就太好了（数据库有 40 多个表，手动执行这是一项乏味的任务）。

非常感谢任何答案、帮助、链接、提示。

问候， 阿尤布

Answer 1

只需一分钟即可修复，所有功能都已存在于 Visual Studio 中。

启动 Visual Studio，点击 Add new datasource... 启动数据源配置向导：

选择数据库并按照向导操作：

连接到数据库后，选择您感兴趣的表，然后按芬兰语按钮：

现在，这将在您的解决方案中创建一个强命名的数据集，如果您双击 xsd 文件，您将看到您在架构编辑器中选择的表，但暂时不要这样做：

现在，从数据菜单中选择“显示数据源”，您将看到您在向导中选择的所有表。每个字段的左侧都有一个图标，说明该字段将在结果表单上表示的控件类型：

现在您可以决定数据在表单上的显示方式，作为 datagridview 或在详细模式下，只需使用表名上的下拉菜单（仅在表单设计模式下）。

如果您在表格上选择了 details-mode，那么您可以更改该字段将由什么控件表示（必须是 form-design-mode，而不是 code-mode）：

然后只需将表格从数据源视图拖到一个空表单中，它就会神奇地创建控件来编辑/添加/删除和移动数据。

如果选择了 DataGridView 模式，这是结果：

如果在桌子上选择了详细信息：

在它后面的代码中还神奇地添加了一些代码以在表单加载时将数据加载到适配器和一些保存/验证代码：

Private Sub AccountBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AccountBindingNavigatorSaveItem.Click
    Me.Validate()
    Me.AccountBindingSource.EndEdit()
    Me.AccountTableAdapter.Update(Me.MyDBDataSet.Account)

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the 'MyDBDataSet.Account' table. You can move, or remove it, as needed.
    Me.AccountTableAdapter.Fill(Me.MyDBDataSet.Account)

End Sub