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

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

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

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

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


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