将EXCEL导入数据库之方法

首先不要忘记在项目(工程)里加上引用(Excel 2.5 就行了),这个是必要的库哦~

好了,下面是实现代码:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog2.FileName = "*.xls"         '通用对话框
        OpenFileDialog2.InitialDirectory = "C:/"
        OpenFileDialog2.Filter = "Excel文件|*.xls"
        OpenFileDialog2.FilterIndex = 1

        If OpenFileDialog2.ShowDialog = Windows.Forms.DialogResult.OK Then

            Dim xlApp1 As Excel.Application '定义EXCEL类
            Dim xlBook1 As Excel.Workbook '定义工件簿类
            Dim xlSheet1 As Excel.Worksheet '定义工作表类


            xlApp1 = CreateObject("Excel.Application")    '打开Excel
            xlApp1.Workbooks.Open(OpenFileDialog2.FileName)
            xlBook1 = xlApp1.Workbooks("名单.xls")
            xlSheet1 = xlBook1.Worksheets(1)

            Dim objConn As New OleDbConnection(strConn)    '打开数据库
            Dim objAdap As New OleDbDataAdapter()
            objConn.Open()

            For i = 1 To xlSheet1.UsedRange.Rows.Count - 2    '此循环正是在批量的导入
                Dim BH As New OleDbParameter("@BH", OleDbType.Integer, 6)
                Dim XM As New OleDbParameter("@XM", OleDbType.Char, 10)
                Dim YGBH As New OleDbParameter("@YGBH", OleDbType.Char, 10)
                Dim strin As String = "Insert into 名单(编号,姓名,员工编号) " & " Values(@BH,@XM,@YGBH)"
                Dim objcmd As New OleDbCommand(strin, objConn)
                objcmd.Parameters.Add(BH)
                objcmd.Parameters.Add(XM)
                objcmd.Parameters.Add(YGBH)

                BH.Value = Val(xlSheet1.Cells(i + 1, 1).value)  '导入 这里有些IDE的value 打点时出不来,不用怕,直接写上就OK了~
                XM.Value = xlSheet1.Cells(i + 1, 2).value
                YGBH.Value = xlApp1.Cells(i + 1, 3).value

                objcmd.ExecuteNonQuery()
                objcmd = Nothing
            Next

            objConn.Close()
            MsgBox("名单写入成功!", MsgBoxStyle.OkOnly, "提示")

            xlBook1.Close(True) '关闭EXCEL工作簿
            xlApp1.Quit() '关闭EXCEL
            xlApp1 = Nothing '释放EXCEL对象
        End If

    End Sub

还有,做以下解释,我举得数据库例子是在我做的抽奖系统中取出来的,以后我会在其他文章中介绍抽奖系统

还有一些全局的变量的定义,和一些包的导入,在此就不罗列了,如果懂得一点数据库知识的都应该能补充上的

Good Luck!

阅读更多
想对作者说点什么? 我来说一句

Excel导入数据库

2011年08月19日 1.56MB 下载

将数据从excel导入数据库

2014年01月10日 26KB 下载

excel导入数据库

2011年12月29日 8KB 下载

Excel导入数据库

2009年12月01日 27KB 下载

EXCEL导入数据库

2012年07月28日 7KB 下载

Excel导入数据库超简单方法

2009年09月15日 6KB 下载

excel导入数据库.pdf

2009年02月18日 69KB 下载

java web Excel导入数据库

2018年05月21日 11.93MB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭