مثال بسيط لتحميل مجموعة بيانات من ورقة Excel في DataGridView

اذهب الى الأسفل

مثال بسيط لتحميل مجموعة بيانات من ورقة Excel في DataGridView Empty مثال بسيط لتحميل مجموعة بيانات من ورقة Excel في DataGridView

مُساهمة من طرف المبرمج الطموح في الأحد أكتوبر 28, 2018 8:39 am

اهلا بكم

مثال بسيط لتحميل مجموعة من ورقة Excel في [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] ...... ما يلي هو كود بسيط لتتمكن من الاتصال بورقة Excel، وقراءة مجموعة من البيانات وعرضها أو تحميلها في عنصر تحكم من [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

مثال بسيط لتحميل مجموعة بيانات من ورقة Excel في DataGridView 64-excel-en-visual-basic-net
الكود:

Option Explicit On
Option Strict On

Public Class Form1
    Private Sub Form1_Load( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load

        Button1.Text = "Cargar"
        txtRange.Text = "A1:C15"

    End Sub

    Private Sub Button1_Click( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click

        ' // Pasar valores para Leer el rango    
        loadRange("c:\book1.xls", "sheet1", txtRange.Text, DataGridView1)

    End Sub

    ' ----------------------------------------------------------------------------------
    ' // Subrutina para conectar al libro Excel y obtener el rango de datos
    ' ----------------------------------------------------------------------------------
    Private Sub loadRange( _
        ByVal sFileName As String, _
        ByVal sSheetName As String, _
        ByVal sRange As String, _
        ByVal dv As DataGridView)

        Try
            ' // Comprobar que el archivo Excel existe
            If System.IO.File.Exists(sFileName) Then

                Dim objDataSet As System.Data.DataSet
                Dim objDataAdapter As System.Data.OleDb.OleDbDataAdapter
                ' // Declarar la Cadena de conexión
                Dim sCs As String = "provider=Microsoft.Jet.OLEDB.4.0; " & "data source=" & sFileName & "; Extended Properties=Excel 8.0;"
                Dim objOleConnection As System.Data.OleDb.OleDbConnection
                objOleConnection = New System.Data.OleDb.OleDbConnection(sCs)

                ' // Declarar la consulta SQL que indica el libro y el rango de la hoja
                Dim sSql As String = "select * from " & "[" & sSheetName & "$" & sRange & "]"
                ' // Obtener los datos
                objDataAdapter = New System.Data.OleDb.OleDbDataAdapter(sSql, objOleConnection)

                ' // Crear DataSet y llenarlo
                objDataSet = New System.Data.DataSet

                objDataAdapter.Fill(objDataSet)
                ' // Cerrar la conexión
                objOleConnection.Close()

                ' // Enlazar DataGrid al Dataset
                With dv
                    .DataSource = objDataSet
                    .DataMember = objDataSet.Tables(0).TableName
                End With
            Else
                MsgBox("No se ha encontrado el archivo: " & sFileName, MsgBoxStyle.Exclamation)
            End If

            Exit Sub
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub
End Class
المبرمج الطموح
المبرمج الطموح
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 192
النقاط : 345
التقيم : 13
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى