11-09-16, 10:39 AM
عندي قاعدة بيانات باسم Emp.mdb وثلاث جدوال
الجدول الأول Emp_Data بيانات شخصية
الجدول الثاني Pro_Data بيانات وظيفية
الجدول الثالث money_Data بيانات مالية
سؤالي : كيف أعدل على هذا الكود بحيث استدعي بيانات الحقول المطلوبة من الجدوال الثلاثة
الجدول الأول Emp_Data بيانات شخصية
الجدول الثاني Pro_Data بيانات وظيفية
الجدول الثالث money_Data بيانات مالية
سؤالي : كيف أعدل على هذا الكود بحيث استدعي بيانات الحقول المطلوبة من الجدوال الثلاثة
كود :
Private Sub Form_Load()
On Error Resume Next: Err.Clear
Call ConnectionDatabase
If Rs.State = adStateOpen Then Rs.Close
Rs.Open "Select ID,Name_Emp,Name_Ep,Name_gad,Name_Epgad,lakp_sora,home,lakp_sora,Date_Birth,mak,bit,hala,nambr,ikama,sarh,Tel_Emp,email,Date_Birth From Emp_Data Order BY ID ", db, adOpenStatic, adLockOptimistic
'
MSHFlexGrid1.Clear
If Rs.RecordCount > 0 Then
Set MSHFlexGrid1.DataSource = Rs
Else
Set MSHFlexGrid1.DataSource = Nothing
End If
MSHFlexgridAlignment
lVersion.Caption = App.Major & "." & App.Minor & "." & App.Revision
Call Clear_Text
End Sub