08-11-14, 07:59 PM
(آخر تعديل لهذه المشاركة : 10-11-14, 03:06 AM {2} بواسطة الوليد ☺.
تعديل السبب: تحسين كود المثال
)
السلام عليكم ورحمة الله
للتعامل مع ملفات الاكسل كقاعدة بيانات:
1: إضافة الخاصية (Extended Properties) في جملة الاتصال
2: الجداول هي ورقات الإكسل، مع ملاحظة إضافة الرمز $ في نهاية اسم الجدول فقط
3: أسماء الأعمدة هي خلايا السطر الأول
4: البيانات تبدأ من السطر الثاني وما بعده
وهذا مثال
PHP كود :
Imports System.Data.OleDb
Public Class Form1
'xls - Excel 2003
'Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 4.0;Data Source= Book1.xls;")
''xlsx - Excel 2007+
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source= Book1.xlsx; ")
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
Using da As New OleDbDataAdapter("SELECT * FROM [ورقة1$] ", conn)
Dim dt As New DataTable
da.Fill(dt)
Me.DataGridView1.DataSource = dt
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class

