بسم الله الرحمن الرحيم



أخوانى الكرام أهلا بكم ...ميعادنا اليوم أن شاء الله تعالى مع درس جديد من دروس منتدى مصر التقنى ....الدرس سيكون عن كيفية ربط أو عرض بيانات ملف Excel فى أداة عرض البيانات DataGrid ....فيها بنا نبدأ :



1_ قم بأنشاء مشروع جديد قياسى ثم قم بإدراج أداة عرض البيانات DataGrid الى الفورم .



2_ قم بأدراج المكتبة Microsoft Activex Data Objects للمشروع .



3_ قم بكتابة الكود التالى فى حدث Load للفورم :

الكود:



 

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sconn As String
Dim sFile As String


sFile = App.Path & "\m.xls"
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic


sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.Open "SELECT * FROM [25$]", sconn
Set DataGrid1.DataSource = rs

 




شرح الكود :



السطر الاول و الثانى : قمنا بإشتقاق سجل أو مؤشر rs ليعبر عن جدول البيانات أو ورقة البيانات الموجودة فى الاكسل .



السطر الثالث : قمنا بالاعلان عن متغير نصى sconn وذلك لتخزين نص الاتصال بملف الاكسل .



السطر الرابع : قمنا بالاعلان عن متغير نصى أخر sFile وذلك لتخزين مسار ملف الاكسل .



السطر الخامس : قمنا بتخزين مسار ملف الاكسل المطلوب الاتصال به فى المتغير sFile .



اما السطر السادس و السابع و الثامن :هى اكواد خاصة بتحديد خواص rs .



السطر التاسع :قمنا بتخزين نص الاتصال الخاص بالاكسل فى المتغير sconn .



اما السطر العاشر : قمنا بعمل جملة استعلام لفتح الشيت 25 الموجود فى ملف الاكسل m والذى مساره مخزن فى المتغير sconn .



اما السطر العاشر : وضعنا مصدر البيانات لاداة عرض البيانات DataGrid تساوى rs





وفى النهاية ارجو ان يكون الدرس سهل الفهم و اليكم المشروع فى المرفقات .

مشكووووور

جزالك الله خيرا ...لكن هل فية امكانية لعمل العكس ...بمعنى عرض بيانات DataGrid الى أكسل ؟

مشكوووووووووور يااستاذ بس انا طالب منك ومن جميع الاخوان في المنتدي يعني لو امكن اني اعمل لي زر وهذا الزر يعمل browes لجميع الاشياء ومن ثم اقوم بفتح ملف الاكسل المطلوب ويقوم البرنامج بجلب هذه البيانات علي الdataGrid وجزاكم الله خيييييييير ^_^

معليش اخوان بالغلط المشاركة هذي 

أخى لا تستخدم المرفقات قم برفع المشروع على سرفر المنتدى الخارجى و ستجدة شمال اعلى شريط الادوات الجانبى

اخى الكريم ياريت ايكون العكس من داتا اقريد الى اكسل
او التعديل على هذه الكود المعمول بلفلكس اقريد الى داتا اقريد
Dim irow As Integer
    Dim icol As Integer
    Dim objExcl As Excel.Application
    Dim objWk As Excel.Workbook
    Dim objSht As Excel.Worksheet
    Dim iHead As Integer
    Dim vHead As Variant
    Set objExcl = New Excel.Application
    objExcl.Application.Visible = True
    Set objWk = objExcl.Workbooks.Add
    Set objSht = objWk.Sheets(1)
    vHead = Split(MSFlexGrid1.FormatString, "|")
    For iHead = 1 To UBound(vHead)
        If Len(Trim(vHead(iHead))) > 0 Then objSht.Cells(1, iHead) = vHead(iHead)
    Next
    For irow = 1 To MSFlexGrid1.Rows - 1
        For icol = 1 To MSFlexGrid1.Cols - 1
            MSFlexGrid1.Row = irow
            MSFlexGrid1.Col = icol
            objSht.Cells(irow + 1, icol) = MSFlexGrid1.Text
        Next icol
    Next irow
    '''''''''''''''''''''''''''''
    Set objSht = Nothing
    Set objWk = Nothing
    Set objExcl = Nothing

وينك اخى احمد

gadr كتب:وينك اخى احمد

لما قرات مشاركة حضرتك اعتقدت ان الشفرة التى اتيت بها هى لفعل العكس

gadr كتب:وينك اخى احمد

أستخدم الكود التالى مع ملاحظة أن مصدر البيانات أو طريقة الاتصال بقاعدة البيانات هى الاداة adodc 

الكود:

private sub cmdexport_click()
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
 
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
   Set oSheet = oBook.Worksheets(1)
   On Error GoTo errcode
 
   With oBook.Worksheets("sheet1").Rows(1)
        .Font.Bold = True
        For j = 0 To DataGrid1.Columns.Count - 1
            Worksheets("sheet1").Cells(1, j + 1).Value = DataGrid1.Column(j).Caption
        Next j
   End With
 
   oSheet.Range("A2").CopyFromRecordset Adodc1.Recordset
 
   oBook.SaveAs
   oBook.Close
   oExcel.Quit
   Exit Sub
errcode:
   MsgBox Err.Description, , Err.Source
 
End Sub
 

RANA كتب:

لما قرات مشاركة حضرتك اعتقدت ان الشفرة التى اتيت بها هى لفعل العكس

نعم اخى هو يقوم بلعكس ولكن بفلكس اقريد وليس الداتا قريد

gadr كتب:وينك اخى احمد

هل يكفيك ما اتى به الاخ الكريم السنى ؟

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

الكود:

Adodc

وكنت اود كود نفس الى فى المشاركة بداتا اقريد وليس الفلكس اقريد