منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ربط الاكسيل مع الdatagrid؟؟؟؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
لسلام عليكم ورحمة الله وبركاته

اريد عمل برنامج به اداة داتا جريد مع adodc1 لربطها بملف اكسيل المطلوب هو كيف يتم ذلك علما انني حاولت بعدة طرق ولكن لم ينجح الامر...ارجو شرح الطريقة وارفاق مثال ان امكن...ولكم جزيل الشكر
بفضل الله تمكنت من العثور على الكود بعد بحث وعدة تجارب وهذا الكود لمن يريد

كود :
 Dim file_name As String
  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
 cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= d:\2003.xls ;Extended Properties=Excel 12.0;"

 If cn.State = adStateOpen Then
     MsgBox "Excel File is Connected. ", , "Message"
     rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM [aa$]", cn, 3, 3, 1 - adCmdText
     Set DataGrid1.DataSource = rs
     DataGrid1.Refresh
     DataGrid1.ReBind

  Else: MsgBox "Error: Excel File is not Connected. ", , "Message"
 End If