vb.net如何将excel数据导入到Access中去

why69242 2014-07-29 10:23:15

vb.net如何将excel数据导入到Access中去,我是个菜鸟想做一个应用程式，有几个excel表，表名不太统一，表中的数据不需要全部导入，只需要导入其中一部分，但列名是一致的（可能顺序不一致），随意举例数据如下，请高手帮帮忙，甚是感激！

要导入字段：姓名，值班日期，消费项目，消费金额，异常描述，使用周期

表1.保安01
NO. 姓名班別值班日期联系电话消费项目消费金额异常描述使用周期备注
1 张三白班 2014/4/1 139625***** 购卖日光灯 60 正常消耗 14个月。。。

表2.电工01
NO. 值班日期消费项目消费金额联系电话异常描述姓名班別使用周期备注
1 2014/4/1 购卖日光灯 60 139625***** 正常消耗张三白班 14个月。。。

...全文

461 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

沐NeMo 2014-07-31

打赏
举报

最好还是先整理好：excel表的格式，统一一下，如：要导入的字段放在最前面。然后再导入就方便多了。Access表格也最好和Excel表格一样对应。这样用楼上的几行代码就可以导入成功。

wind_cloud2011 2014-07-29

打赏
举报


我写了例子，你可以适当修改一下就可
  Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Book222.xls;Extended Properties='Excel 8.0;HDR=Yes;IMEX=1;'"
        Dim conn As OleDbConnection = New OleDbConnection(strConn)
        Dim strExcel As String = ""
        Dim ds As DataSet = New DataSet()
        strExcel = "select * from [sheet1$]"
        Dim da As OleDbDataAdapter = New OleDbDataAdapter(strExcel, strConn)
        da.Fill(ds)
        Dim i As Integer
        For i = 0 To ds.Tables(0).Rows.Count
            Dim s1 As DateTime = Convert.ToDateTime(ds.Tables(0).Rows(i)(0).ToString())
            insertdata1(s1)
        Next i
    End Sub
    Public Sub insertdata1(ByVal s1 As DateTime)
        Dim sql As String = "insert into dt(dt) values(@dt)"
        Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.Windows.Forms.Application.StartupPath + "\\temp21.mdb")
        con.Open()
        Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
        cmd.Parameters.Add("@dt", OleDbType.Date)
        cmd.Parameters("@dt").Value = Convert.ToDateTime("2014/6/29  15:00:00")
        cmd.ExecuteNonQuery()
        ListBox1.Items.Add(s1 + " 成功添加")
        cmd.Dispose()
        con.Close()
    End Sub