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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

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

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


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



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


2_ نقوم إيضا بادراج المكتبة  Microsoft Activex data objects


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

4_ فى قسم التصريح العام يتم الاعلان عن الكائنات التى تستخدم فى الاتصال بقاعدة البيانات :

الرمز:
Dim cn As ADODB.Connection  
Dim rs As ADODB.Recordset  

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



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

الرمز:
Dim o_Word As Word.Application
Dim Documento As Word.Document


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


الرمز:
Dim Parrafo As Table


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

الرمز:
Dim F, C As Double

حيث c لتمثيل الاعمدة و f لتميثل الصفوف


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



الرمز:
Set o_Word = New Word.Application



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


الرمز:
Set Documento = o_Word.Documents.Add  

  • إنشاء الجدول داخل مستند الورد


الرمز:
Set Parrafo = Documento.Tables.Add(Documento.Range(0, 0), _ 
                        MSHFlexGrid1.Rows, MSHFlexGrid1.Cols) 

  • إضافة بيانات الاعمدة و الصفوف الى الجدول


الرمز:
For C = 0 To MSHFlexGrid1.Cols - 1 
            Parrafo.Cell(0, C + 1).Range.Text = MSHFlexGrid1.TextMatrix(0, C) 
              For F = 0 To MSHFlexGrid1.Rows - 1 
            Parrafo.Cell(F + 1, C + 1).Range.Text = MSHFlexGrid1.TextMatrix(F, C) 
        Next F 
    Next C 



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

الرمز:

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

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


الرمز:
Private Sub Form_Load() 
     
    MSHFlexGrid1.FixedCols = 0 
           
    Set cn = New ADODB.Connection 
    cn.CursorLocation = adUseClient 
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _ 
                          "Source=C:\Archivos de programa\Microsoft " & _ 
                          "Visual Studio\VB98\NWIND.MDB;Persist Security Info=False" 
     
    cn.Open 
     
      Set rs = New ADODB.Recordset 
      rs.Open "Select IdEmpleado,Nombre From empleados", _ 
                    cn, adOpenStatic, adLockOptimistic 
       
    Set MSHFlexGrid1.DataSource = rs 
     
End Sub 


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

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

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

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


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