ASP.NET学习网|ASP.NET教程|ASP.NET MVC|ASP.NET 源码|VS2010教程|ASP.NET视频教程

''' <summary>
    ''' 导入Excel表数据
    ''' </summary>
    ''' <param name="FilesPath"></param>
    ''' <remarks></remarks>
    Public Sub OpenXLSFileMaterialData(ByVal FilesPath As String)
        Dim m_sConn1 As String
        Dim FileNames As String = Microsoft.VisualBasic.Left(FilesPath, FilesPath.Length - 4)
        m_sConn1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilesPath & ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1';"
        Dim MyConnectiong As OleDbConnection = New OleDbConnection()
        Dim MyCommand As OleDbCommand = New OleDbCommand()
        Dim sqlDA As OleDbDataAdapter = New OleDbDataAdapter()
        Dim oleDS As New DataSet()
        Try
            MyConnectiong.ConnectionString = m_sConn1
            MyCommand.Connection = MyConnectiong
            MyCommand.CommandText = "SELECT * FROM [零件清单$]"
            sqlDA.SelectCommand = MyCommand
            sqlDA.Fill(oleDS)
            Dim rows As Integer = oleDS.Tables(0).Rows.Count - 1
            If rows > 0 Then
                     For i As Integer = DgvDetail.CurrentCell.RowIndex To rows - 1
                    If i > DgvDetail.RowCount - 1 Then
                        objDSDDgvDetail.Tables("ProjectDetail").Rows.Add()
                    End If
                    Try
                        DgvDetail.Rows(i).Cells("序号").Value = oleDS.Tables(0).Rows(i + 9)(0).ToString()
                    Catch ex As Exception
                    End Try

                 Next
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            Try
                sqlDA.Dispose()
                MyCommand.Dispose()
                MyConnectiong.Dispose()
            Catch ex As Exception
            End Try
        End Try
    End Sub