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.Worksheet = excel.Worksheets(0)

    ' 创建数据库连接
    Dim connectionString As String = "Data Source=your_server;Initial Catalog=your_database;Integrated Security=True"
    Dim connection As New SqlConnection(connectionString)
    connection.Open()

    ' 插入数据到数据库
    Dim command As New SqlCommand("INSERT INTO your_table (column1, column2, column3) VALUES (@column1, @column2, @column2)", connection)
    command.Parameters.Add("@column1", SqlDbType.VarChar)
    command.Parameters.Add("@column2", SqlDbType.Int)
    command.Parameters.Add("@column3", SqlDbType.DateTime)

    For Each row As ASPExcel.Row In sheet.Rows
        command.Parameters("@column1").Value = row.Cells(0).Value
        command.Parameters("@column2").Value = Convert.ToInt32(row.Cells(1).Value)
        command.Parameters("@column3").Value = Convert.ToDateTime(row.Cells(2).Value)
        command.ExecuteNonQuery()
    Next

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