تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل على الجدول رقم 2
#1
اخواني عندي جدول رقم 1 اسجل بيه بيانات اولا و كل انواع الغيابات تتسجل بيها عبارة No.بعدين اريد تسجيل نوعية غيابات و احفظ الغيابات في الجدول رقم 2 بدلالة كود الموظف .اريد الموظف يلي سجلتلو غياب تتحط عبارة Yes بنوع الغياب يلي حفظتو .بارك الله فيكم


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 94.92 ك ب / التحميلات : 9)
الرد
تم الشكر بواسطة:
#2
السلام عليكم...
هل المقصود لو كان غائب يسجل في الجدول الأول, وان كان حاضراً يسجل في الجدول الثاني من نفس الفورم.

لو كان هذا صحيحاً يمكننا استخدام if else
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة: العيدروس , حريف برمجة , حريف برمجة
#3
شكرا اخ اسامة على المساعدة.انا بالاول اسجل البيانات بالجدول رقم 1 و كل العبارات رايحة تكون No و لا استعمل الجدول رقم 2 تماما .. احيانا بعد يوم او يومين او حتى 10 ايام لما بيغيب واحد اسجلو الغياب و الحفظ يكون في الجدول رقم 2 .لما بيتم الحفظ في الجدول رقم 2 اريد بنفس الوقت تتغير العبارة يلي في الجدول رقم 1 من No الى yes
الرد
تم الشكر بواسطة:
#4
الافضل ان يكون id ترقيم تلقائي

تعديل الكود
PHP كود :
   Public Sub Insert_In_Table(ByVal EmployeId As Int32ByVal EmployeCode As Int32ByVal EmployeTypeAbsence As String)
 
       Try
            Dim Cmd 
As New OleDbCommand
            If OleCn
.State 1 Then OleCn.Close()
 
           If OleCn.State ConnectionState.Closed Then OleCn.Open()

 
           With Cmd
                Cmd
.Connection OleCn
                Cmd
.CommandType CommandType.Text
                Cmd
.CommandText "update Table1 set " EmployeTypeAbsence "='yes' where EmployeCode=@EmployeCode"
 
               Cmd.Parameters.Clear()
 
               Cmd.Parameters.AddWithValue("@EmployeCode"OleDbType.Integer).Value EmployeCode
            End With
            If Cmd
.ExecuteNonQuery() <> 0 Then

                With Cmd
                    Cmd
.Connection OleCn
                    Cmd
.CommandType CommandType.Text
                    Cmd
.CommandText "insert into Table2 (EmployeId , EmployeCode , EmployeTypeAbsence ) values ( @EmployeId , @EmployeCode , @EmployeTypeAbsence)"
 
                   Cmd.Parameters.Clear()
 
                   Cmd.Parameters.AddWithValue("@EmployeId"OleDbType.Integer).Value EmployeId
                    Cmd
.Parameters.AddWithValue("@EmployeCode"OleDbType.Integer).Value EmployeCode
                    Cmd
.Parameters.AddWithValue("@EmployeTypeAbsence"OleDbType.VarChar).Value EmployeTypeAbsence
                End With

                If Cmd
.ExecuteNonQuery() <> 0 Then
                    MsgBox
("تم الحفظ بنجاح")
 
               End If


 
           Else
                MsgBox
("تاكد من كود الموظف")
 
           End If

 
           OleCn.Close()
 
           Cmd Nothing
            Clr
()
 
       Catch ex As Exception
            OleCn
.Close()
 
           MsgBox(Err.DescriptionMsgBoxStyle.Information)
 
       Finally
            If OleCn
.State ConnectionState.Open Then OleCn.Close()
 
       End Try
 
   End Sub 
الرد
#5
ربنا يبارك فيك يا بلدي الكود يشتغل بصورة صحيحة الحمد لله فقط لو تتكرم بالمثال على الكومبوبوكس رقم 2 و لييس كومبوبوكس 1 عندما غيرت اسامي items داخل الكومبووكس 2 ليظهرو بالعربية ما ضبطت و تخبرني هاي الرسالة
syntax error in update statement
كيف اتعامل معها الله يرضى عليك


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 95.55 ك ب / التحميلات : 1)
الرد
تم الشكر بواسطة: بلدي
#6
اذا كان اسم الحقل فيه مسافات يجب وضع الاسم بيم الاقواس المربه [اسم الحقل] مثل

PHP كود :
Cmd.CommandText "update Table1 set [" EmployeTypeAbsence "]='yes' where EmployeCode=@EmployeCode" 

لكن وجدت اسماء الاعمده كما هي
AbsenceType1
AbsenceType2
AbsenceType3
AbsenceType4
AbsenceType5

ولا تتطابق مع محتوى الكمبوسكس 2

الافضل ان تضع جدول خاص بنوع الغياب وتشير له برقمه وليس اسمه
وبهذه الطريقه حتى لو غيره اسماء انواع الغياب لن يتاثر الكود
الرد
تم الشكر بواسطة: العيدروس
#7
بارك الله فيك يا بلدي معك حق قمت بعمل جدول خاص ثالث للنوع الغيابات و حملتو بالكوبوكس كيف اشير له بالرقم الهي يسترك


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 96.71 ك ب / التحميلات : 3)
الرد
تم الشكر بواسطة:



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


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