从VB.Net到SQL Server的数据导出

Imports System.Data.SqlClient

Public Class Form1
    Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
        ' 连接到SQL Server数据库
        Dim connectionString As String = "Data Source=服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码"
        Dim connection As New SqlConnection(connectionString)
        connection.Open()

        ' 查询要导出的数据
        Dim query As String = "SELECT * FROM 表名"
        Dim command As New SqlCommand(query, connection)
        Dim reader As SqlDataReader = command.ExecuteReader()

        ' 导出数据到SQL Server
        While reader.Read()
            ' 获取数据字段的值
            Dim field1 As String = reader("字段1").ToString()
            Dim field2 As Integer = Convert.ToInt32(reader("字段2"))

            ' 执行插入操作
            Dim insertQuery As String = "INSERT INTO 目标表名 (字段1, 字段2) VALUES (@字段1, @字段2)"
            Dim insertCommand As New SqlCommand(insertQuery, connection)
            insertCommand.Parameters.AddWithValue("@字段1", field1)
            insertCommand.Parameters.AddWithValue("@字段2", field2)
            insertCommand.ExecuteNonQuery()
        End While

        ' 关闭连接
        connection.Close()

        MessageBox.Show("数据导出成功！")
    End Sub
End Class