تصدير محتوى بيانات FlexGrid فى جدول مستند Word
صفحة 1 من اصل 1 • شاطر
تصدير محتوى بيانات FlexGrid فى جدول مستند Word
بسم الله الرحمن الرحيم
سنتعلم ان شاء الله تعالى كيفية إنشاء جدول فى مستند Word ثم تصدير محتوى بيانات FlexGrid الية بخطوات بسيطة للغاية :
1_ فى البداية سنقوم بإدراج عنصر التحكم FlexGrid على النافذة
2_ نقوم إيضا بادراج المكتبة Microsoft Activex data objects
3_ نقوم ايضا بإدراج المكتبة Microsoft Word object library للمشروع من خلال menu ثم References ثم من المربع الحوارى يتم اختيار المكتبة ثم بعد ذلك أضغط ok
4_ فى قسم التصريح العام يتم الاعلان عن الكائنات التى تستخدم فى الاتصال بقاعدة البيانات :
5_كتابة الاكواد التالية فى حدث النقر لزر الامر exporta على النحو التالى :
حيث c لتمثيل الاعمدة و f لتميثل الصفوف
سنتعلم ان شاء الله تعالى كيفية إنشاء جدول فى مستند 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
النقاط : 132
التقيم : 10
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد