在vb.net中保存表单内容

Imports System.Data.SqlClient

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    ' 获取表单内容
    Dim name As String = txtName.Text
    Dim age As Integer = Integer.Parse(txtAge.Text)
    Dim gender As String = If(rbMale.Checked, "Male", "Female")

    ' 连接数据库
    Dim connectionString As String = "Data Source=YourServer;Initial Catalog=YourDatabase;User ID=YourUsername;Password=YourPassword"
    Using connection As New SqlConnection(connectionString)
        connection.Open()

        ' 插入数据
        Dim query As String = "INSERT INTO YourTable (Name, Age, Gender) VALUES (@Name, @Age, @Gender)"
        Using command As New SqlCommand(query, connection)
            command.Parameters.AddWithValue("@Name", name)
            command.Parameters.AddWithValue("@Age", age)
            command.Parameters.AddWithValue("@Gender", gender)
            command.ExecuteNonQuery()
        End Using
    End Using

    MessageBox.Show("表单内容保存成功！")
End Sub