تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
GetDataFromExcel بواسطة VB.NET
#1
كاتب الموضوع : جهاد العريقي


للامانة هذا الموضوع منقول عن احد الاخوة جزاة الله خير وارجو الفائدة


كود :
Public Function GetDataFromExcel(ByVal FileName As String, _
ByVal RangeName As String) As System.Data.DataSet

' Returns a DataSet containing information from
' a named range in the passed Excel worksheet
Try
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & FileName & ";Extended Properties=Excel 8.0;"
Dim objConn As New System.Data.OleDb.OleDbConnection(strConn)
objConn.Open()
' Create objects ready to grab data
Dim objCmd As New System.Data.OleDb.OleDbCommand( _
"SELECT * FROM " & RangeName, objConn)
Dim objDA As New System.Data.OleDb.OleDbDataAdapter()
objDA.SelectCommand = objCmd
' Fill DataSet
Dim objDS As New System.Data.DataSet()
objDA.Fill(objDS)
' Cleanup and return DataSet
objConn.Close()
Return objDS
Catch
' Possible errors include Excel file
' already open and locked, et al.
Return Nothing
End Try
End Function
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود اتصل بنا بواسطة smtp سعود 0 762 16-09-12, 09:28 PM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم