تقييم الموضوع :
  • 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 ك ب / التحميلات : 4)
الرد }}}
تم الشكر بواسطة: بلدي
#6
اذا كان اسم الحقل فيه مسافات يجب وضع الاسم بيم الاقواس المربه [اسم الحقل] مثل

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

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 69 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 131 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [VB.NET] محتاج مساعدة تعديل على كود ZEEN4ZEEN 4 416 08-10-23, 09:11 PM
آخر رد: ZEEN4ZEEN
  محتاج تعديل على سورس كود - حفظ البيانات بدون قاعدة بيانات new_programer 5 628 30-08-23, 12:21 AM
آخر رد: atefkhalf2004
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61

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


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