التعامل مع MSFlexGrid

[mzaki]

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

من المؤكد ان الجميع يعلم ماهى MSFlexGrid فى الفيجوال بيسيك ويعرف كيف يتم استخدامها بعد ربط قاعدة البيانات مع الفيجوال ....

المطلوب : كيفية العمل بها فى الأ كسيس أى عرض... اضافة .. حذف ... تعديل ... والخ

ولكم منى جزيل الشكر

اخوكم mzaki

[الدكتور خضر الرجبي]

السلام عليكم

أخي mzaki، ربما هذه المقاطع من الكود تساعدك

Private Sub Form_Load() 
Dim a As Integer 

MSFlexGrid1.Cols = 5 
MSFlexGrid1.Rows = 1 

'Defines the Column Headers 
With MSFlexGrid1 
    .TextMatrix(0, 1) = "Employee ID" 
    .TextMatrix(0, 2) = "Employee Name" 
    .TextMatrix(0, 3) = "Address" 
    .TextMatrix(0, 4) = "Phone" 
End With 

'Add 10 Rows. 
'a vbTab is used First as there is a fixed column 
For a = 1 To 10 
    MSFlexGrid1.AddItem vbTab & "Emp" & a & vbTab & "John" & vbTab & "124 King Street" & "NY" & vbTab & "(516)433-4500" 
Next 

End Sub

والكود التالي للإضافة أيضا بطريقة أخرى

dim LongRow as long 

For LongRow = 1 To Flex.Rows 

  Conn.Execute "INSERT INTO GLOSSARIO (DEFINIZIONE,DESCRIZIONE)VALUES ('" & Flex.TextMatrix(LongRow, 0) & "','" & Flex.TextMatrix(LongRow, 1) & "')" 

Next LongRow 

Conn.close

مع الاحترام

تم تعديل يناير 26, 2005 بواسطه خضر الرجبي