VB.Net中如何通过按钮点击执行数据库表创建模块？

首先需要调整你现有的模块代码，把原本控制台程序的Main方法改成可被窗体按钮事件调用的公共方法，同时替换控制台输出为Windows窗体的消息提示：

Module Module1
    Public Sub CreateEmployeesTable()
        ' 定义连接字符串（根据你的服务器和数据库修改）
        Dim connectionString As String = "Server=localhost\SQLEXPRESS;Database=master;Trusted_Connection=True;"
        ' 创建表的SQL语句
        Dim createTableQuery As String = "
        CREATE TABLE Employees (
            EmployeeID INT PRIMARY KEY IDENTITY,
            FirstName NVARCHAR(50),
            LastName NVARCHAR(50),
            BirthDate DATE
        )"

        Using connection As New SqlConnection(connectionString)
            Try
                connection.Open()
                Using command As New SqlCommand(createTableQuery, connection)
                    command.ExecuteNonQuery()
                    ' 用消息框替换控制台输出
                    MessageBox.Show("Employees表创建成功！", "操作成功", MessageBoxButtons.OK, MessageBoxIcon.Information)
                End Using
            Catch ex As Exception
                MessageBox.Show("创建失败：" & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally
                ' Using语句会自动释放连接，无需手动调用Close()
            End Try
        End Using
    End Sub
End Module

接下来，在窗体的按钮点击事件中，直接调用这个公共方法即可：

按钮点击事件代码 #

假设你的按钮名为btnCreateTable，双击按钮生成事件后，写入以下代码：

Private Sub btnCreateTable_Click(sender As Object, e As EventArgs) Handles btnCreateTable.Click
    ' 调用模块中的创建表方法
    Module1.CreateEmployeesTable()
End Sub

注意事项 #

• 确保你的项目已引用System.Data.SqlClient程序集（在项目引用中添加）
• 连接字符串中的服务器、数据库名称请根据实际环境修改
• Using语句会自动管理连接的释放，无需手动调用Close()

内容的提问来源于stack exchange，提问作者Manny Somarriba