تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إظهار نتيجة من جدول أخر
#1
السلام عليكم

لدي جدولين ،جدول الموظفين و جدول الإجازات .

إريد عن إختيار الموظف تظهر لي أخر اجازة حصل عليها

البرنامج في المرفقات ولكم تحياتي


الملفات المرفقة
.rar   Ejaza.rar (الحجم : 97.23 ك ب / التحميلات : 8)
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد
تم الشكر بواسطة: ابراهيم ايبو
#2
السلام عليكم

للاستعلام عن آخر إجازة يتم بعكس الترتيب بـ DESC وأخذ سطر واحد بـ TOP 1
كود :
Private Sub dgv_AllName_SelectionChanged(sender As Object, e As EventArgs) Handles dgv_AllName.SelectionChanged
    Me.NameEjaza.Text = ""
    Me.DateStart.Text = ""
    Me.DateEnd.Text = ""
    Dim da As New OleDbDataAdapter
    da = New OleDbDataAdapter("select top 1 * from Ejaza where id1='" & Val(Me.ID1.Text) & "' order by DateStart DESC", con)
    Dim dt As New DataTable
    If da.Fill(dt) > 0 Then
        Me.NameEjaza.Text = dt.Rows(0)("NameEjaza").ToString()
        Me.DateStart.Text = dt.Rows(0)("DateStart").ToString()
        Me.DateEnd.Text = dt.Rows(0)("DateEnd").ToString()
    End If
End Sub

أرجوأن يكون المطلوب

اصدقائي حسب ترتيب ظهورهم في مواضيعي:
baha
ابراهيم ايبو
سعود
Rabeea Qbaha
اسامه الهرماوي
الرد
#3
هذا هو المطلوب

جزاك الله خير

و الف شكر
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد
#4
(13-09-19, 07:08 PM)سميـر كتب : السلام عليكم

للاستعلام عن آخر إجازة يتم بعكس الترتيب بـ DESC وأخذ سطر واحد بـ TOP 1
كود :
Private Sub dgv_AllName_SelectionChanged(sender As Object, e As EventArgs) Handles dgv_AllName.SelectionChanged
   Me.NameEjaza.Text = ""
   Me.DateStart.Text = ""
   Me.DateEnd.Text = ""
   Dim da As New OleDbDataAdapter
   da = New OleDbDataAdapter("select top 1 * from Ejaza where id1='" & Val(Me.ID1.Text) & "' order by DateStart DESC", con)
   Dim dt As New DataTable
   If da.Fill(dt) > 0 Then
       Me.NameEjaza.Text = dt.Rows(0)("NameEjaza").ToString()
       Me.DateStart.Text = dt.Rows(0)("DateStart").ToString()
       Me.DateEnd.Text = dt.Rows(0)("DateEnd").ToString()
   End If
End Sub

أرجوأن يكون المطلوب


اعتذر على ازعاجك و إزعاج الاخوان الباقين
هل بالأمكان أن تربطها مع جدولين مختلفه ، و المرة هذي بدون داتا قريد .

البرنامج في المرفقات وللجميع شكري


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 86.78 ك ب / التحميلات : 2)
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد
تم الشكر بواسطة: ابراهيم ايبو
#5
وعليكم السلام ورحمة الله وبركاته


قم باستبدال جملة SQL بالجملة التالية وقم بوضع اسم جدول الموظفين وحقل رقم الموظف

كود :
"select * from Ejaza e,اسم جدول الوظفين m where m.اسم حقل رقم الموظف=e.id1 And e.DateStart=(select max(DateStart) from Ejaza where id1='" & Val(Me.ID1.Text) & "' ) And id1='" & Val(Me.ID1.Text) & "'"





تمنياتي لك وللجميع التوفيق
الرد
تم الشكر بواسطة: ابراهيم ايبو
#6
(منذ 3 ساعة مضت )baha كتب : وعليكم السلام ورحمة الله وبركاته


قم باستبدال جملة SQL بالجملة التالية وقم بوضع اسم جدول الموظفين وحقل رقم الموظف

كود :
"select * from Ejaza e,اسم جدول الوظفين m where m.اسم حقل رقم الموظف=e.id1 And e.DateStart=(select max(DateStart) from Ejaza where id1='" & Val(Me.ID1.Text) & "' ) And id1='" & Val(Me.ID1.Text) & "'"





تمنياتي لك وللجميع التوفيق

أشكرك على سرعة الرد ، ولكن هل تتكرم و تعدل على برنامجي المرفق ، لأنها لم تنجح معي
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عمل تقرير م اكثر من جدول amonem 3 134 14-09-19, 04:16 AM
آخر رد: Rabeea Qbaha
Heart كيفية نقل البيانات من جدول الى اخر الرائد 2 126 11-09-19, 02:02 AM
آخر رد: Rabeea Qbaha
  طريقة عرض أكثر من جدول في الكريستال ريبورت جيولوجي مبتدئ 4 156 05-09-19, 12:00 AM
آخر رد: ابراهيم ايبو
  [سؤال] لدي جدول به اسعار اريد السعر من خلال رقم الكلاس مرفق الكود dametucorazon 5 191 01-09-19, 03:44 PM
آخر رد: dametucorazon
Sad [سؤال] طريقة نسخ بيانات ملف أكسل موضوعة في DataGridview الى جدول قاعدة بيانات Access paradoxinoo 4 233 27-08-19, 02:43 AM
آخر رد: paradoxinoo
Big Grin [VB.NET] نقل بيانات من جدول لاخر اسامه الهرماوي 1 144 11-08-19, 07:16 AM
آخر رد: سعود
  كيفية استخراج بيانات من اكثر من جدول وطباعتها المتألق9 4 389 12-06-19, 11:41 AM
آخر رد: new2016
  [VB.NET] تصدير جدول html إلى ملف أكسل صالح حمادي 5 276 25-04-19, 09:18 AM
آخر رد: elgokr
  مقارنة بين قيمتي textbox وحفظ الخطأ في جدول قاعدة بيانات ahmedfa71 0 193 24-04-19, 12:19 PM
آخر رد: ahmedfa71
  خطأ في عملية حفظ محتوى datagridview إلى جدول من قاعدة البيانات ahmedfa71 7 271 23-04-19, 02:17 AM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم