منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

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

تصدير محتوى بيانات FlexGrid فى جدول مستند Word Empty تصدير محتوى بيانات 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
end.sub
.....
.....

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

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

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

ََ

مواضيع ذات صلة


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