تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد عمل استعلام على الوقت الاقل كما بالصورة
#1
السلام عليكم 

لدى جدول بيانات البصمة 
مسجل التاريخ مع الوقت مرة للدخول ومرة للخروج

اريد عمل استعلام لموظف بين تاريخين لجلب وقت الدخول فقط  الوقت الاقل كما بالصورة 

   
الرد }}}
#2
ادري ان المشروع ليس تماما كما تريد لكن احببت المشاركة فقط

وهذا  باستخدام أكسس
دمج المشاركات مشكلةSad
PHP كود :
Public Class Form2
    Dim dbpath 
As String IO.Path.GetDirectoryName(Application.ExecutablePath) & "\db.accdb"
 
   Dim str As String "provider=microsoft.ace.oledb.12.0;data source=" dbpath
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Using con 
As New OleDb.OleDbConnection(str)
 
           Using cm As New OleDb.OleDbCommand("select min(t) from tb"con)
 
               If con.State ConnectionState.Closed Then con.Open()
 
               If IsDBNull(CDate(cm.ExecuteScalar).ToShortTimeString) = False Then
                    TextBox1
.Text CDate(cm.ExecuteScalar).ToShortTimeString
                End 
If
 
               If con.State ConnectionState.Open Then con.Close()
 
           End Using
        End Using
    End Sub
    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        Using con 
As New OleDb.OleDbConnection(str)
 
           Using cm As New OleDb.OleDbCommand("select max(t) from tb"con)
 
               If con.State ConnectionState.Closed Then con.Open()
 
               If IsDBNull(CDate(cm.ExecuteScalar).ToShortTimeString) = False Then
                    TextBox2
.Text CDate(cm.ExecuteScalar).ToShortTimeString
                End 
If
 
               If con.State ConnectionState.Open Then con.Close()
 
           End Using
        End Using
    End Sub
    Private Sub Button3_Click
(sender As ObjectAs EventArgsHandles Button3.Click
        Using con 
As New OleDb.OleDbConnection(str)
 
           Using cm As New OleDb.OleDbCommand("insert into tb(t) values(@t)"con)
 
               cm.Parameters.Clear()
 
               cm.Parameters.AddWithValue("@tn"dt.Value)
 
               If con.State ConnectionState.Closed Then con.Open()
 
               Try
                    cm
.ExecuteNonQuery()
 
                   MsgBox("تم")

 
               Catch ex As Exception
                    MsgBox
(Err.DescriptionMsgBoxStyle.Critical"")
 
               End Try
 
               If con.State ConnectionState.Open Then con.Close()
 
           End Using
        End Using
    End Sub
End 
Class 

هذا هو فورم التعامل مع اكسس


الملفات المرفقة
.zip   Times.zip (الحجم : 22.27 ك ب / التحميلات : 12)
.zip   Times.zip (الحجم : 39.67 ك ب / التحميلات : 18)
الرد }}}
تم الشكر بواسطة: new_programer , new_programer , ابراهيم ايبو
#3
تسلم ربنا يباركلك

جاري التجربه
الرد }}}
تم الشكر بواسطة: سعود
#4
(26-11-21, 03:11 PM)new_programer كتب : تسلم  ربنا يباركلك

جاري التجربه

ويباركلك
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#5
السلام عليكم ورحمة الله وبركاته
اخي الكريم
لماذا لاتعمل عمود للحضور وأخر للانصراف ؟ لانك بهذا الشكل يمكنك جلب بيانات اي عمود تريد .. ناهيك عن عمل الفرق بين العمودين لتحصل على الوقت الفعلي للدوام هذا من جانب , اما الجانب الآخر هو كيف يمكن للبرنامج معرفة ان كان الوقت هو دخول او خروج ؟ الامر ايضا بسيط ستنشئ حقل من نوع Boolean  نضع فيه القيمة True ان تم تسجيل الحضور عبر فورم للدخول وسيتم الاستعلام عن الموظف بتاريخ اليوم الحالي فإن كان له سجل بتاريخ اليوم فهذا يعني انه سجل دخول وقيمة الحقل True ولن يسمح تسجيله مرة أخرى وان لم يظهر له سجل بتاريخ اليوم يضاف اسمه وتاريخ ووقت الحضور وعند الانصراف نظهر فورم للانصراف سيتم الاستعلام عن الحاضرين بشرط الحقل True فإن كان موجود نسجل له الخروج في حقل وقت الخروج وتحول فيمة الحقل البوليان الى False اتمنى ان تكون الفكرة واضحة
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: new_programer , new_programer
#6
ياريت كنت فعلا عملت كدة


لكن دة الداتا بتتسحب بالشكل دة عن طريق برنامج البصمة
وانا عايز اخد الداتا من قاعدة البيانات واشتغل عليها واعمل التقارير
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 430 09-01-24, 08:40 PM
آخر رد: new_programer
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  استعلام من عدة جداول لقاعدة بيانات اكسس Adel27213 12 1,070 09-11-23, 05:27 PM
آخر رد: justforit
Exclamation [VB.NET] من يقدر يعمل لي استعلام يحقق طلبي ؟ أبو خالد الشكري 5 417 09-11-23, 02:25 PM
آخر رد: أبو خالد الشكري
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 358 08-11-23, 08:16 AM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
Video استفسار حول استعلام في SQL devpos 2 252 27-09-23, 04:25 PM
آخر رد: devpos

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


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