للاستعلام عن آخر إجازة يتم بعكس الترتيب بـ 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
اسامه الهرماوي
للاستعلام عن آخر إجازة يتم بعكس الترتيب بـ 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
أرجوأن يكون المطلوب
اعتذر على ازعاجك و إزعاج الاخوان الباقين
هل بالأمكان أن تربطها مع جدولين مختلفه ، و المرة هذي بدون داتا قريد .
البرنامج في المرفقات وللجميع شكري
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
20-09-19, 06:12 PM (آخر تعديل لهذه المشاركة : 20-09-19, 06:15 PM {2} بواسطة 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) & "'"
(20-09-19, 06:12 PM)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) & "'"
تمنياتي لك وللجميع التوفيق
أشكرك على سرعة الرد ، ولكن هل تتكرم و تعدل على برنامجي المرفق ، لأنها لم تنجح معي
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
If T1.Text = "" Then
MsgBox("الرجاء ادخال البيانات كاملة ")
T1.Focus()
Else
Try
Using da As New OleDbDataAdapter("select AllName.ID, AllName.ID1, AllName.Name1, AllName.Age, AllName.HomeHdress ,Ejaza.ID, Ejaza.NameEjaza, Ejaza.DateStart, Ejaza.DateEnd from AllName, Ejaza where AllName.ID1= Ejaza.ID1 And AllName.ID1 ='" & T1.Text & "' order by DateStart Desc", con)