اخواني عندي جدول رقم 1 اسجل بيه بيانات اولا و كل انواع الغيابات تتسجل بيها عبارة No.بعدين اريد تسجيل نوعية غيابات و احفظ الغيابات في الجدول رقم 2 بدلالة كود الموظف .اريد الموظف يلي سجلتلو غياب تتحط عبارة Yes بنوع الغياب يلي حفظتو .بارك الله فيكم
شكرا اخ اسامة على المساعدة.انا بالاول اسجل البيانات بالجدول رقم 1 و كل العبارات رايحة تكون No و لا استعمل الجدول رقم 2 تماما .. احيانا بعد يوم او يومين او حتى 10 ايام لما بيغيب واحد اسجلو الغياب و الحفظ يكون في الجدول رقم 2 .لما بيتم الحفظ في الجدول رقم 2 اريد بنفس الوقت تتغير العبارة يلي في الجدول رقم 1 من No الى yes
Public Sub Insert_In_Table(ByVal EmployeId As Int32, ByVal EmployeCode As Int32, ByVal 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
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.Description, MsgBoxStyle.Information) Finally If OleCn.State = ConnectionState.Open Then OleCn.Close() End Try End Sub
ربنا يبارك فيك يا بلدي الكود يشتغل بصورة صحيحة الحمد لله فقط لو تتكرم بالمثال على الكومبوبوكس رقم 2 و لييس كومبوبوكس 1 عندما غيرت اسامي items داخل الكومبووكس 2 ليظهرو بالعربية ما ضبطت و تخبرني هاي الرسالة
syntax error in update statement
كيف اتعامل معها الله يرضى عليك