تصدير بيانات 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  



و النتيجة


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


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

end.sub
.....
.....

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

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

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

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

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

gadr
...
...

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

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

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

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

المثال :

http://zakyshny.eu5.org/kleeja/uploads/egy-tech14245106581.rar

NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 378
التقيم : 10
الجنس : ذكر

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

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

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

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

gadr
...
...

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

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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