vb批量插入高效

Imports System.Data.SqlClient

Module Module1

    Sub Main()
        Dim scsb As SqlConnectionStringBuilder = New SqlConnectionStringBuilder()
        scsb.DataSource = "."
        scsb.InitialCatalog = "wenhua2020"
        scsb.UserID = "sa"
        scsb.Password = "dinglin"


        Using dt As DataTable = New DataTable("t_1")
            dt.Columns.Add("id", GetType(Integer))
            dt.Columns.Add("InstrumentID", GetType(String))
            dt.Columns.Add("TradingDayUpdateTime", GetType(DateTime))
            dt.Columns.Add("LastPrice", GetType(Decimal))
            dt.Columns.Add("PreClosePrice", GetType(Decimal))
            dt.Columns.Add("OpenPrice", GetType(Decimal))
            dt.Columns.Add("HighestPrice", GetType(Decimal))
            dt.Columns.Add("LowestPrice", GetType(Decimal))
            dt.Columns.Add("LowerLimitPrice", GetType(Decimal))
            dt.Columns.Add("Volume", GetType(Integer))

            For index = 1 To 50000
                Dim dr As DataRow = dt.NewRow()

                dr("InstrumentID") = "asdf65asd4f6"
                dr("TradingDayUpdateTime") = DateTime.Parse("2025-03-09 12:06:56.0000000")
                dr("LastPrice") = 2.65
                dr("PreClosePrice") = 456.3
                dr("OpenPrice") = 234.32
                dr("HighestPrice") = 34.45
                dr("LowestPrice") = 34.34
                dr("LowerLimitPrice") = 345.34
                dr("Volume") = 23445
                dt.Rows.Add(dr)
            Next

            Using conn As SqlConnection = New SqlConnection(scsb.ConnectionString)
                Using sbc As SqlBulkCopy = New SqlBulkCopy(conn)
                    conn.Open()
                    sbc.DestinationTableName = "t_1"
                    sbc.WriteToServer(dt)
                End Using
            End Using
        End Using
        'Using conn As SqlConnection = New SqlConnection(scsb.ConnectionString)
        '    conn.Open()
        '    For index = 1 To 50000



        '        Using cmd As SqlCommand = New SqlCommand("insert into t_1 (InstrumentID, TradingDayUpdateTime, LastPrice, PreClosePrice, OpenPrice, HighestPrice, LowestPrice, LowerLimitPrice, Volume) values ('asdfsdf', '2025-9-8 23:8:6', 234.234, 234.345, 34534.456, 34543.45, 345345.54665, 345453.4, 345)", conn)


        '            cmd.ExecuteNonQuery()
        '        End Using

        '    Next
        'End Using

    End Sub

End Module