+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] ربط الاكسيل مع الdatagrid؟؟؟؟ (/showthread.php?tid=12839)
ربط الاكسيل مع الdatagrid؟؟؟؟ - i1982 - 28-07-15
لسلام عليكم ورحمة الله وبركاته
اريد عمل برنامج به اداة داتا جريد مع adodc1 لربطها بملف اكسيل المطلوب هو كيف يتم ذلك علما انني حاولت بعدة طرق ولكن لم ينجح الامر...ارجو شرح الطريقة وارفاق مثال ان امكن...ولكم جزيل الشكر
RE: ربط الاكسيل مع الdatagrid؟؟؟؟ - i1982 - 28-07-15
بفضل الله تمكنت من العثور على الكود بعد بحث وعدة تجارب وهذا الكود لمن يريد
كود :
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