تصدير بيانات DataGrid فى جدول مستند Word

اذهب الى الأسفل

تصدير بيانات DataGrid فى جدول مستند Word

مُساهمة من طرف end.sub في الأربعاء يوليو 09, 2014 8:20 am

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

كل سنة وانتم طيبيين

سنتعلم ان شاء الله تعالى كيفية إنشاء جدول فى مستند Word ثم تصدير بيانات DataGrid الية بخطوات بسيطة للغاية :



1_ فى البداية سنقوم بإدراج عنصر التحكم DataGrid على النافذة

2_ نقوم إيضا بادراج عنصر التحكم Adodc1 على النافذة

3_ نقوم ايضا بإدراج المكتبة Microsoft Word object library للمشروع من خلال menu ثم References ثم من المربع الحوارى يتم اختيار المكتبة ثم بعد ذلك أضغط ok 


4_كتابة الاكواد التالية فى حدث النقر لزر الامر exporta على النحو التالى :


  • الاعلان عن كائن التطبيق Word Aplication و كائن الوثيقة

الكود:
Dim o_Word As Word.Application
Dim Documento As Word.Document


  • الاعلان عن الكائن الذى سيقوم بإنشاء الجدول


الكود:
Dim Parrafo As Table


  • الاعلان عن المتغيرات التى تمثل الصفوف و الاعمدة فى الجدول الذى سيتم إنشائه

الكود:

Dim F As Long  
 Dim C As Integer  
 Dim dato As Variant



  • إنشاء مثيل جديد من كائن التطبيق



الكود:
Set o_Word = New Word.Application



  • إضافة الوثيقة الى التطبيق


الكود:
Set Documento = o_Word.Documents.Add  



  • إنشاء جدول داخل المستند او الوثيقة

الكود:

Set Parrafo = Documento.Tables.Add(Documento.Range(0, 0), _  
            DataGrid1.ApproxCount + 1, DataGrid1.Columns.Count)  
      
    For C = 0 To DataGrid1.Columns.Count - 1  
        DataGrid1.Row = 0  
         ' إضافة الأعمدة  
        Parrafo.Cell(1, C + 1).Range.InsertAfter DataGrid1.Columns(C).Caption  
  
            ' إنشاء صفوف من العمود الحالي  
            For F = 0 To DataGrid1.ApproxCount - 1  
                ' تخزين البيانات من خلايا DataGrid في العمود الحالي
                dato = DataGrid1.Columns(C).CellValue(DataGrid1.GetBookmark(F))  
                'إضافة البيانات إلى خلايا الجدول
                Parrafo.Cell(F + 2, C + 1).Range.InsertAfter dato  
                            
            Next F  
  
    Next C  


  • إغلاق الكائنات التى تم إنشائها

الكود:

Set o_Word = Nothing  
    Set Documento = Nothing  
    Set Parrafo = Nothing



  • أما فى حدث التحميل للنافذة نقوم بكتابة الكود التالى :

الكود:

Private Sub Form_Load()  
    
    With Adodc1  
        .CursorLocation = adUseClient  
        ' نص الاتصال بقاعدة البيانات
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source" & _  
                            "=C:\Archivos de programa\Microsoft Visual " & _  
                            "Studio\VB98\NWIND.MDB;Persist Security " & _  
                            "Info=False"  
      
        .CommandType = adCmdText  
        ' جملة الاستعلام  
        .RecordSource = "Select IdEmpleado,Nombre From Empleados"  
      
        .Refresh  
    End With  
      
      Set DataGrid1.DataSource = Adodc1.Recordset  
      
  
End Sub  



و النتيجة

avatar
end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 131
التقيم : 9
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تصدير بيانات DataGrid فى جدول مستند Word

مُساهمة من طرف المبرمج المسلم في الجمعة يوليو 11, 2014 3:33 pm

جزاك الله خيرا

المبرمج المسلم
..
..

تاريخ التسجيل : 21/06/2014
المساهمات : 17
النقاط : 29
التقيم : 0
الدولة : المغرب
الجنس : ذكر
الموقع : http://ra7y9.blogspot.com/

http://ra7y9.blogspot.com/

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تصدير بيانات DataGrid فى جدول مستند Word

مُساهمة من طرف end.sub في السبت يوليو 12, 2014 9:32 am


أشكرك على مرورك اخى الفاضل وكل عام وانتم بخير
avatar
end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 131
التقيم : 9
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تصدير بيانات DataGrid فى جدول مستند Word

مُساهمة من طرف gadr في الخميس فبراير 19, 2015 5:43 pm

ممكن اخى الكريم مثال لنا الكود لم يعمل معي
بارك الله فيك
avatar
gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 45
النقاط : 57
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تصدير بيانات DataGrid فى جدول مستند Word

مُساهمة من طرف NEXT في السبت فبراير 21, 2015 9:24 am

المثال :

http://zakyshny.eu5.org/kleeja/uploads/egy-tech14245106581.rar
avatar
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 265
النقاط : 380
التقيم : 9
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تصدير بيانات DataGrid فى جدول مستند Word

مُساهمة من طرف gadr في السبت فبراير 21, 2015 3:46 pm

بارك الله فيك اخى الكريم واشكرك على رحابت صدرك
avatar
gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 45
النقاط : 57
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى