[new_programer]

السلام عليكم

كود الاستيراد من الاكسيل يعمل فقط مع لغة واحدة يعنى لو الملف مكتوب عربي لا يفتح ملف مكتو ب انجليزى كما بالكود

كيف اجعلة يقراء اى ملف باى لغة

كود :

    ofd.Filter = "Excel 2007|*.xlsx|Excel 2003|*.xls"
       If ofd.ShowDialog = System.Windows.Forms.DialogResult.OK Then                        'Windows.Forms.DialogResult.OK Then
           dvg_items.DataSource = Nothing
           dvg_items.Columns.Clear()
           Dim path As String = ofd.FileName
           Dim conn As New OleDb.OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & path & "; EXTENDED PROPERTIES=EXCEL 12.0;")
           Dim ds As New DataSet
           'Dim da As New OleDbDataAdapter("SELECT * FROM [ورقة1$]", conn)
           'da.Fill(ds, "[ورقة1$]")
           'dvg_items.DataSource = ds.Tables("[ورقة1$]")

           Dim da As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", conn)
           da.Fill(ds, "[Sheet1$]")
           dvg_items.DataSource = ds.Tables("[Sheet1$]")
       Else
           End
       End If

---

يعنى لو الملف عربي لازم اكتب الكود - ورقة1
لو انجليزى اكتب الكود sheet1
اريد ان يقراء الكل