vb数据批量导入access数据库

Imports System.Data.OleDb

Module Module1
    Sub Main()
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb;"
        Dim connection As New OleDbConnection(connectionString)
        connection.Open()

        Dim sql As String = "INSERT INTO YourTable (Column1, Column2) VALUES (?, ?)"
        Dim command As New OleDbCommand(sql, connection)
        Dim adapter As New OleDbDataAdapter()

        ' 假设你有一个数据源，例如一个DataTable
        Dim dataTable As DataTable = GetData()

        For Each row As DataRow In dataTable.Rows
            command.Parameters.Clear()
            command.Parameters.AddWithValue("@Column1", row("Column1"))
            command.Parameters.AddWithValue("@Column2", row("Column2"))
            command.ExecuteNonQuery()
        Next

        connection.Close()
    End Sub

    Function GetData() As DataTable
        ' 这里是你获取数据的逻辑，例如从文件或其他数据库读取数据
        Dim dataTable As New DataTable()
        ' 填充dataTable
        Return dataTable
    End Function
End Module