تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] ربط الاكسيل مع الdatagrid؟؟؟؟
#1
لسلام عليكم ورحمة الله وبركاته

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

كود :
 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
الرد }}}}
تم الشكر بواسطة:


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


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