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 1000000
        '        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 1000000



                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