منتديات المشاغب

منتديات المشاغب (http://www.absba.org/index.php)
-   منتدى لغات البرمجة (http://www.absba.org/forumdisplay.php?f=40)
-   -   ربط الاكسيل بالداتا جريد في فيجوال بيسك 6 (http://www.absba.org/showthread.php?t=1369588)

ahmad1982 28-07-2015 06:33 AM

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

ahmad1982 28-07-2015 05:24 PM

بفضل الله تمكنت من العثور على الكود بعد بحث وعدة تجارب وهذا الكود لمن يريد

كود:

  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.*******
    DataGrid1.ReBind

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



الساعة الآن 01:38 AM