aspexcel导入数据库文件

<%@ Import Namespace="ASPExcel" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>

<%
    ' 读取 Excel 文件
    Dim excel As New ASPExcel.ExcelFile
    excel.Open("C:\path\to\your\file.xlsx")

    ' 获取数据表
    Dim sheet As ASPExcel.ExcelSheet = excel.Worksheets(1)
    Dim data As DataTable = sheet.GetData()

    ' 连接数据库
    Dim connectionString As String = "Server=your_server;Database=your_database;User Id=your_user;Password=your_password;"
    Dim connection As New SqlConnection(connectionString)
    connection.Open()

    ' 插入数据
    Dim command As New SqlCommand("INSERT INTO your_table (column1, column2) VALUES (@column1, @column2)", connection)
    For Each row As DataRow In data.Rows
        command.Parameters.Clear()
        command.Parameters.AddWithValue("@column1", row("column1"))
        command.Parameters.AddWithValue("@column2", row("column2"))
        command.ExecuteNonQuery()
    Next

    ' 关闭连接
    connection.Close()
%>