如果你有Excel任何问题,请留言或者加我们qq 24119011 让我们知道。谢谢

excel表格的基本操作-excel教程网

当前位置: 主页 > 高级教程 > vba >

vb excel内容导入到数据库中

时间:2017-07-14 08:16来源:excel 作者: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 实例一个数据
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)
顶一下
(0)
0%
踩一下
(0)
0%

------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
验证码: 点击我更换图片