29-09-12, 04:41 PM
من واقع الحياه العمليه خصوصا فى شغل الشركات والمصانع يوجد الكثير من الإدارات بتعتمد فى علمها على الإكسيل وعند عمل نظم لتلك الإدارات نحتاج إلى الإتصال فى بعد الأحيان بالإكسيل لجلب البيانات والتعامل معها
فقط لإستخدام الفانكشن قم بتمرير مسار ملف الإكسيل الذى تريدج قرأءة البيانات منه
وقم بتمرير جريد فيو لعرض البيانات فيها
PHP كود :
Public Function ReadExcelIntoDataset(ByVal file As String, ByVal Dgrview As DataGridView) As Data.DataSet
If Not IO.File.Exists(file) Then
MsgBox("The file provided doesn't exist. Please check the name and try again")
Else
Try
Dim sOleDbString As New String("SELECT * FROM [SheetName$]")
Dim cnExcel As New Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; data source='" & _
file & " '; " & "Extended Properties=Excel 8.0;")
cmdExcel = New System.Data.OleDb.OleDbDataAdapter(sOleDbString, cnExcel)
Try
dsExcel.Clear()
cmdExcel.Fill(dsExcel)
Dim dv As DataView
dv = dsExcel.Tables(0).DefaultView
Dgrview.DataSource = dv
Catch ex As Exception
MsgBox(ex.Message)
dsExcel = Nothing
Finally
cnExcel.Close()
End Try
Catch ex As Exception
MsgBox(ex.Message)
dsExcel = Nothing
End Try
Return dsExcel
End If
End Function
فقط لإستخدام الفانكشن قم بتمرير مسار ملف الإكسيل الذى تريدج قرأءة البيانات منه
وقم بتمرير جريد فيو لعرض البيانات فيها
http://www.elfouadsoft.com
mohamed_tegara@yahoo.com
mohamed_tegara@yahoo.com