VB里快速传送到SQL数据库

最新推荐文章于 2023-07-19 14:37:06 发布

ialove

最新推荐文章于 2023-07-19 14:37:06 发布

阅读量295

点赞数

文章标签：数据库 sql

本文链接：https://blog.csdn.net/ialove/article/details/130402609

版权

文章分享了一段VB.NET代码，利用SqlBulkCopy类将DataGridView中的数据高效批量地导入到SQLServer，解决了从本地到香港主机数据传输速度慢的问题。这种方法比逐行传送更快，适用于大量数据的迁移。

摘要由CSDN通过智能技术生成

用VB写的一些代码把公司里的数据传送到香港主机，一天大约有4000行数据要传送，因为以前用的逐行传送的，在本地传送速度还能接受，但是香港主机就慢得很了。
最近ChatGpt火的很，在上面问一下，他给我一代码，发现真的非常快了。分享给大家

以下是将DataGridView1的数据批量传输到SQL Server的VB.NET代码示例：

   Imports System.Data.Common

    Dim connectionString As String = "Data Source=myServerAddress;Initial Catalog=myDataBase;Integrated Security=True"

    Dim dataTable As New DataTable()
    For Each column As DataGridViewColumn In DataGridView1.Columns
        dataTable.Columns.Add(column.Name, Type.GetType("System.String"))
    Next
    For Each row As DataGridViewRow In DataGridView1.Rows
        Dim dataRow As DataRow = dataTable.NewRow()
        For Each cell As DataGridViewCell In row.Cells
            dataRow(cell.ColumnIndex) = cell.Value
        Next
        dataTable.Rows.Add(dataRow)
    Next
    Using connection As New SqlConnection(connectionString)
        connection.Open()
        Using bulkCopy As New SqlBulkCopy(connection)
            bulkCopy.DestinationTableName = "myTable"
            For Each mapping As DataColumnMapping In bulkCopy.ColumnMappings
                mapping.SourceColumn = mapping.DataSetColumn.Clone
            Next
            bulkCopy.WriteToServer(dataTable)
        End Using
    End Using

请确保替换connectionString变量与数据库服务器地址，数据库名称和凭据。还要替换myTable为目标表名。