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

عندي جدول ( Name-Emp , Code-Emp ,Casm-Emp)
الجدول الثاني ( , name-Emp code-Emp, tamestart, tamefansh)

الجدول بيانات اساسيه يسجلهم مره وحده فقط 
الجدول الثاني عليه العمل بمجرد ما يدخل الكودالموظف يحفظ وقت الدخول 
طبعا راح يحفظ الوقت والكود كيف اجعل البرنامج يبحث عن اسم صاحب الكود من الجدول الاول ويضيفه تلقائيا في الجدول الثاني
  

ايضا هناك حقل من نوع بايت احتاج اذا كانت قيمة الحقل = فولس يكتب لي غايب 
كيف الطريقه الله يعطيكم العافيه
الرد }}}
تم الشكر بواسطة: ابو ليلى
#2
سؤال مهم يا عادل
بداية اجعل كود الموظف سجله المدني حتى تضمن شغلات كثير
ثاني شيء في جدول الحضور والانصراف ما انت بحاجة لتسجيل اللي غاب
لانه اذا ماله بيانات في اليوم كذا يبقى غايب من غير كلام واللي مسجلين هم اللي حضروا
يعني
الجدول الاساسي فيه السجل المدني اسم الموظف الخ
الجدول الثاني
اليوم -- التاريخ -- السجل المدني الوقت1 --- الوقت2
يعني حضور وانصراف فقط
من غير اي غلبة
ولما احب الاستعلام عن حضور وغياب يوم
select Inner hoin
ولمعرفة اللي غاب
SELECT t.*
FROM TABLE_LIST t
LEFT JOIN TABLE_LOG tl ON tl.jid = t.jid
WHERE tl.jid IS NULL
لانك لو حطيت True False
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: ابو ليلى , adel27
#3
شــكرا يابو عمر 


والله ما قدرت لكن صـاحب العمل بيغا كود طبعاَ هذا الكود مراح يتكرر أنتهيت من بنـاء جملته 

ياليت يابو عمر تحط الأستعلام في مربع نص ترا لك علي في فهم الكود 

الجدولين (البحث في جدول الموظفين عن صاحب الكود المسجل في تكست بكس1وأظهر لي أسمه في تكست بكس2 )

أيضاً هل أستطع التعامل مع الفيوز مثل ما أتعامل مع الجدول ..؟
يعني قلت أسوي فيوز وأشكل الجدول اللي أبيه
الرد }}}
تم الشكر بواسطة: ابو ليلى
#4
و عليكم السلام و رحمة الله و بركاته

PHP كود :
   Public Function GetFiled(ByVal ReturnFiled As StringByVal Tbl As StringByVal CondFiled As StringByVal Id As String) As String
        Dim serch 
As String ""
 
       serch "Select " ReturnFiled " From " Tbl " Where " CondFiled " Like '" Id "' "

 
       Dim Cmd As New OleDbCommand(serchCon)
 
       Dim ReturnResult As String ""
 
       OpenConnect()
 
       Dim red As OleDbDataReader Cmd.ExecuteReader
        While red
.Read
            If red
.HasRows Then
                If Not 
(red(ReturnFiledIs Nothing) Or red(ReturnFiled).ToString.Length 0 Then
                    ReturnResult 
red(ReturnFiled).ToString
                Else
                    ReturnResult 
Nothing
                End 
If
 
           End If
 
       End While
 
       red.Close()
 
       Cmd.Dispose()
 
       CloseConnect()
 
       Return ReturnResult
    End 
Function 

هذه الدالة تعيد لك الحقل الذي تريد من الجدول الذي تريد

البارمترات
ReturnFiled =الحقل الذي تريد قيمته
Tbl = اسم الجدول الذي تريد البحث فيه
CondFiled =الحقل الشرطي
Id =قيمة الحقل الشرطي



مثال 
PHP كود :
       TextBox2.Text GetFiled("name-Emp""Emps""code-Emp"TextBox1.Text


شكل جملة الاستعلام الناتجة من الدالة السابقة
PHP كود :
Select name-Emp From Emps Where code-Emp Like '" & TextBox1.TextT & "' 
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة: adel27 , أبو عمر , أبووسم
#5
أســال الله أن يوفقك ويسهل أمــرك ألف ألف شـكر  ولجميع الأخوه المتفاعلين   أعظم فائده لي في التعامل مع جدولين 
ششششششرح رائع
الرد }}}
تم الشكر بواسطة: أبو عمر



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


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