vb.net excel内容导入到数据库中_excel表格的基本操作-excel教程网

vb.net excel内容导入到数据库中

时间:2017-07-14 08:16 来源:excel.org.cn 作者:huang 点击:次

Dim strPath As String = "C:\Documents and Settings\1\桌面\1.xls"
’定义一个数据库连接字符
        Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & ";Extended Properties='Excel 8.0;HDR=False;IMEX=1'"
‘实例一个数据库连接
        Using OleConn As New OleDb.OleDbConnection(strConn)
’打开一个数据库连接
            OleConn.Open()
‘数据库查询语句，该句查询的表为“Sheet1”
            Dim sql As String = "SELECT * FROM [Sheet1$]"
’定义一个操作对象，该对象可以执行数据库的查询、插入、删除、更新等。
            Dim OleDaExcel As New OleDb.OleDbDataAdapter(sql, OleConn)
‘定义个内存数据，可以把DataSet当成内存中的数据库，DataSet是不依赖于数据库的独立数据集合。
            Dim ds As New DataSet()
’填充内存数据。
            OleDaExcel.Fill(ds)
‘使用循环取出 DataSet 第一张表，从0到末尾的“F1"列数据添加到ListView1中。
            For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
                Me.ListView1.Items.Add(ds.Tables(0).Rows(i).Item("F1").ToString.Trim)
            Next
’关闭数据库连接。
            OleConn.Close()
(责任编辑：huang)