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

حفظكم الله من كل وباء وبلاء

عندي مشكلة في اكواد الأضافة والحفظ والتعديل وحفظ التعديل اخذت الأكواد من هذا المنتدي ونجحت في التعديل عند البيانات الصغيرة و عند البيانات الكبيرة وقعت في اخطاء الرجاء التصحيح ولكم مني جزيل الشكر
الكود و قاعدة البيانات في المرفقات
كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

       ' On Error Resume Next
       If MsgBox("هل تريد إضافة سجل جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "إضافة سجل جديد") = MsgBoxResult.Cancel Then Exit Sub

       Using Command As New OleDbCommand("SELECT MAX( TxtBoID) FROM emp", con)
           If con.State = ConnectionState.Closed Then con.Open()
           If Command.ExecuteScalar Is DBNull.Value Then

               Call SetState("Add")
               InfoBookmark = InfoManager.Position
               InfoManager.AddNew()

               TxtBoID.Text = 1
             
               TxtBoNa.Focus()

               TxtBoID.Enabled = False

               TxtBoNa.Enabled = True
               TxtBoRe.Enabled = True
               TxtNoWadeafa.Enabled = True
               TxtBoYestart.Enabled = True

               TextBox61.Enabled = False
               ComboBox1.Enabled = False


               Button5.Enabled = False
               Button7.Enabled = True
               Button8.Enabled = False

               Button9.Enabled = False : Button10.Enabled = False : Button12.Enabled = False : Button11.Enabled = False
           Else

               Call SetState("Add")
               InfoBookmark = InfoManager.Position
               InfoManager.AddNew()

               TxtBoID.Text = Command.ExecuteScalar().ToString() + 1


               TxtBoNa.Focus()

               TxtBoID.Enabled = False

               TxtBoNa.Enabled = True
               TxtBoRe.Enabled = True
               TxtNoWadeafa.Enabled = True
               TxtBoYestart.Enabled = True

               TextBox61.Enabled = False
               ComboBox1.Enabled = False


               Button5.Enabled = False
               Button7.Enabled = True
               Button8.Enabled = False

               Button9.Enabled = False : Button10.Enabled = False : Button12.Enabled = False : Button11.Enabled = False
           End If
       End Using
       con.Close()
   End Sub
   Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
       ' On Error Resume Next
       If TxtBoNa.Text.Trim = "" Then
           ErrorProvider1.SetError(TxtBoNa, "الرجاء عدم ترك حقل رقم الطّالب فارغا")
           MessageBox.Show("الرجاء عدم ترك حقل اسم الطّالب فارغا", "إدخال خاطىء", MessageBoxButtons.OK, MessageBoxIcon.Information)
           TxtBoNa.Focus()
           Exit Sub
       End If
       If TxtBoRe.Text.Trim = "" Then
           ErrorProvider1.SetError(TxtBoRe, "الرجاء عدم ترك حقل كود الطّالب فارغا")
           MessageBox.Show("الرجاء عدم ترك حقل رقم القيد فارغا", "إدخال خاطىء", MessageBoxButtons.OK, MessageBoxIcon.Information)
           TxtBoRe.Focus()
           Exit Sub
       End If
       If TxtBoYestart.Text.Trim = "" Then
           ErrorProvider1.SetError(TxtBoNa, "الرجاء عدم ترك حقل اسم الطّالب فارغا")
           MessageBox.Show("الرجاء عدم ترك حقل سنة التخرج فارغا", "إدخال خاطىء", MessageBoxButtons.OK, MessageBoxIcon.Information)
           TxtBoYestart.Focus()
           Exit Sub

       ElseIf MsgBox("هل تريد حفظ السجل الحالي", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "تأكيد الحفظ") = MsgBoxResult.No Then
       ElseIf TxtBoNa.Text = "" Then
           MsgBox("الرجاء كتابة الرقم التسلسلي", MsgBoxStyle.MsgBoxRtlReading, "تنبيه")
       End If

       Dim Checknum As String = ""
       Using Check As New OleDbCommand With {.Connection = con, .CommandText = "SELECT ID FROM emp WHERE TxtBoID = @TxtBoID "}
           Check.Parameters.Add("@TxtBoID", OleDbType.Integer).Value = Convert.ToInt32(TxtBoID.Text.Trim)
           If con.State = ConnectionState.Closed Then con.Open()
           Checknum = Check.ExecuteScalar
           con.Close()
       End Using

       If Checknum <> "" Then
           MsgBox("عفوًا .. هذا الطّالب سبق تسجيله في النّظام و لا يمكن تكرار تسجيله بنفس رقم القيد ", MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxRight, " خطأ في التسجيل ")
           Exit Sub
       Else
           Using Command As New OleDbCommand With {.Connection = con}
               With Command
                   .CommandText = "INSERT INTO emp(TxtBoID,TNatiID,TxtBoRe,TGender,TxtBoNa,TxtFathNam,TxtGraNam,TxtSurNam,TxtMothNam,TxtMotFatNam,TxtMsur,TxtBathPla,TBirthMonth,TNationality,ComboBox3,TxtNumFam,TxtBaladia,TxtMahlla,ComboBox4,TTaeenNo,Ttarekheh,TxtBoYestart,TxtNoWadeafa,TxtMoneyNo,TxtMalakNo,TGuraCardNo,TCardNo,TBank,TBankBranch,TBankAco,TxtCert,TTimeQual,TQualState,TQualPlace,TxtSpicial,TDgreeEmp,TxtNoQrar,TxtTarekhQrar,TSefatoh,TTimeNexDeg)" & _
                   "VALUES(@TxtBoID,@TNatiID,@TxtBoRe,@TGender,@TxtBoNa,@TxtFathNam,@TxtGraNam,@TxtSurNam,@TxtMothNam,@TxtMotFatNam,@TxtMsur,@TxtBathPla,@TBirthMonth,@TNationality,@ComboBox3,@TxtNumFam,@TxtBaladia,@TxtMahlla,@ComboBox4,@TTaeenNo,@Ttarekheh,@TxtBoYestart,@TxtNoWadeafa,@TxtMoneyNo,@TxtMalakNo,@TGuraCardNo,@TCardNo,@TBank,@TBankBranch,@TBankAco,@TxtCert,@TTimeQual,@TQualState,@TQualPlace,@TxtSpicial,@TDgreeEmp,@TxtNoQrar,@TxtTarekhQrar,@TSefatoh,@TTimeNexDeg)"


                   .Parameters.Add("@TxtBoID", OleDbType.Decimal, 18).Value = Decimal.Parse(TxtBoID.Text)
                   .Parameters.Add("@TNatiID", OleDbType.VarChar).Value = TNatiID.Text
                   .Parameters.Add("@TxtBoRe", OleDbType.VarChar).Value = TxtBoRe.Text
                   .Parameters.Add("@TGender", OleDbType.VarChar).Value = TGender.Text
                   .Parameters.Add("@TxtBoNa", OleDbType.VarChar).Value = TxtBoNa.Text
                   .Parameters.Add("@TxtFathNam", OleDbType.VarChar).Value = TxtFathNam.Text
                   .Parameters.Add("@TxtGraNam", OleDbType.VarChar).Value = TxtGraNam.Text
                   .Parameters.Add("@TxtSurNam", OleDbType.VarChar).Value = TxtSurNam.Text
                   .Parameters.Add("@TxtMothNam", OleDbType.VarChar).Value = TxtMothNam.Text
                   .Parameters.Add("@TxtMotFatNam", OleDbType.VarChar).Value = TxtMotFatNam.Text
                   .Parameters.Add("@TxtMsur", OleDbType.VarChar).Value = TxtMsur.Text
                   .Parameters.Add("@TxtBathPla", OleDbType.VarChar).Value = TxtBathPla.Text
                   .Parameters.Add("@TBirthMonth", OleDbType.VarChar).Value = TBirthMonth.Text
                   .Parameters.Add("@TNationality", OleDbType.VarChar).Value = TNationality.Text
                   .Parameters.Add("@ComboBox3", OleDbType.VarChar).Value = ComboBox3.Text
                   .Parameters.Add("@TxtNumFam", OleDbType.VarChar).Value = TxtNumFam.Text
                   .Parameters.Add("@TxtBaladia", OleDbType.VarChar).Value = TxtBaladia.Text
                   .Parameters.Add("@TxtMahlla", OleDbType.VarChar).Value = TxtMahlla.Text
                   .Parameters.Add("@ComboBox4", OleDbType.VarChar).Value = ComboBox4.Text
                   .Parameters.Add("@TTaeenNo", OleDbType.VarChar).Value = TTaeenNo.Text
                   .Parameters.Add("@Ttarekheh", OleDbType.VarChar).Value = Ttarekheh.Text
                   .Parameters.Add("@TxtBoYestart", OleDbType.VarChar).Value = TxtBoYestart.Text
                   .Parameters.Add("@TxtNoWadeafa", OleDbType.VarChar).Value = TxtNoWadeafa.Text
                   .Parameters.Add("@TxtMoneyNo", OleDbType.VarChar).Value = TxtMoneyNo.Text
                   .Parameters.Add("@TxtMalakNo", OleDbType.VarChar).Value = TxtMalakNo.Text
                   .Parameters.Add("@TGuraCardNo", OleDbType.VarChar).Value = TGuraCardNo.Text
                   .Parameters.Add("@TCardNo", OleDbType.VarChar).Value = TCardNo.Text
                   .Parameters.Add("@TBank", OleDbType.VarChar).Value = TBank.Text
                   .Parameters.Add("@TBankBranch", OleDbType.VarChar).Value = TBankBranch.Text
                   .Parameters.Add("@TBankAco", OleDbType.VarChar).Value = TBankAco.Text
                   .Parameters.Add("@TxtCert", OleDbType.VarChar).Value = TxtCert.Text
                   .Parameters.Add("@TTimeQual", OleDbType.VarChar).Value = TTimeQual.Text
                   .Parameters.Add("@TQualState", OleDbType.VarChar).Value = TQualState.Text
                   .Parameters.Add("@TQualPlace", OleDbType.VarChar).Value = TQualPlace.Text
                   .Parameters.Add("@TxtSpicial", OleDbType.VarChar).Value = TxtSpicial.Text
                   .Parameters.Add("@TDgreeEmp", OleDbType.VarChar).Value = TDgreeEmp.Text
                   .Parameters.Add("@TxtNoQrar", OleDbType.VarChar).Value = TxtNoQrar.Text
                   .Parameters.Add("@TxtTarekhQrar", OleDbType.VarChar).Value = TxtTarekhQrar.Text
                   .Parameters.Add("@TSefatoh", OleDbType.VarChar).Value = TSefatoh.Text
                   .Parameters.Add("@TTimeNexDeg", OleDbType.VarChar).Value = TTimeNexDeg.Text


               End With

               If con.State = ConnectionState.Closed Then con.Open()
               If Command.ExecuteNonQuery() = 1 Then
                   MsgBox("تمت عملية الإضافة بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ إجراء الإضافة")

                   Call Di_Refresh()
                   Call RecordStudent()
                   Call ShowRelated()

               Else
                   MsgBox("تأكد من إدخال جميع البيانات وبالصورة الصحيحة", MsgBoxStyle.MsgBoxRtlReading, "إدخال خاطئ أو غير مكتمل")
               End If
               con.Close()
           End Using
       End If
       Button1.Enabled = True
       Button2.Enabled = False

       Button5.Enabled = True

       Button7.Enabled = False
       Button8.Enabled = True
       Button9.Enabled = True
       Button10.Enabled = True
       Button11.Enabled = True
       Button12.Enabled = True


   End Sub
   Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)
       If MsgBox("  هل أنت متأكّد من أنك تريد تعديل بيانات هذا الطّالب :  " & TxtBoNa.Text & "  ؟ ", MsgBoxStyle.YesNo + MsgBoxStyle.Critical, "تحذير") = MsgBoxResult.No Then
           Exit Sub
       Else
           Call SetState("Edit")
           Button1.Enabled = False
           Button2.Enabled = False

           Button5.Enabled = False

           Button7.Enabled = True
           Button8.Enabled = True
           Button9.Enabled = True
           Button10.Enabled = True
           Button11.Enabled = True
           Button12.Enabled = True


       End If
   End Sub
   Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs)
       ' If TxtBoNa.Text = "" Then
       ' MsgBox("الرجاء كتابة اسم الطالب", MsgBoxStyle.MsgBoxRtlReading, "تنبيه")
       '  Else

       Using Command As New OleDbCommand
           With Command
               .CommandText = "UPDATE emp SET TNatiID= @TNatiID,TxtBoRe= @TxtBoRe,TGender= @TGender,TxtBoNa= @TxtBoNa,TxtFathNam= @TxtFathNam,TxtGraNam= @TxtGraNam,TxtSurNam= @TxtSurNam,TxtMothNam= @TxtMothNam,TxtMotFatNam= @TxtMotFatNam,TxtMsur= @TxtMsur,TxtBathPla= @TxtBathPla,TBirthMonth= @TBirthMonth,TNationality= @TNationality,ComboBox3= @ComboBox3,TxtNumFam= @TxtNumFam,TxtBaladia= @TxtBaladia,TxtMahlla= @TxtMahlla,ComboBox4= @ComboBox4,TTaeenNo= @TTaeenNo,Ttarekheh= @Ttarekheh,TxtBoYestart= @TxtBoYestart,TxtNoWadeafa= @TxtNoWadeafa,TxtMoneyNo= @TxtMoneyNo,TxtMalakNo= @TxtMalakNo,TGuraCardNo= @TGuraCardNo,TCardNo= @TCardNo,TBank= @TBank,TBankBranch= @TBankBranch,TBankAco= @TBankAco,TxtCert= @TxtCert,TTimeQual= @TTimeQual,TQualState= @TQualState,TQualPlace= @TQualPlace,TxtSpicial= @TxtSpicial,TDgreeEmp= @TDgreeEmp,TxtNoQrar= @TxtNoQrar,TxtTarekhQrar= @TxtTarekhQrar,TSefatoh= @TSefatoh,TTimeNexDeg= @TTimeNexDeg WHERE TxtBoID = @TxtBoID"
               .Connection = con



               .Parameters.Add("@TxtBoID", OleDbType.Decimal, 18).Value = Decimal.Parse(TxtBoID.Text)
               .Parameters.Add("@TNatiID", OleDbType.VarChar).Value = TNatiID.Text
               .Parameters.Add("@TxtBoRe", OleDbType.VarChar).Value = TxtBoRe.Text
               .Parameters.Add("@TGender", OleDbType.VarChar).Value = TGender.Text
               .Parameters.Add("@TxtBoNa", OleDbType.VarChar).Value = TxtBoNa.Text
               .Parameters.Add("@TxtFathNam", OleDbType.VarChar).Value = TxtFathNam.Text
               .Parameters.Add("@TxtGraNam", OleDbType.VarChar).Value = TxtGraNam.Text
               .Parameters.Add("@TxtSurNam", OleDbType.VarChar).Value = TxtSurNam.Text
               .Parameters.Add("@TxtMothNam", OleDbType.VarChar).Value = TxtMothNam.Text
               .Parameters.Add("@TxtMotFatNam", OleDbType.VarChar).Value = TxtMotFatNam.Text
               .Parameters.Add("@TxtMsur", OleDbType.VarChar).Value = TxtMsur.Text
               .Parameters.Add("@TxtBathPla", OleDbType.VarChar).Value = TxtBathPla.Text
               .Parameters.Add("@TBirthMonth", OleDbType.VarChar).Value = TBirthMonth.Text
               .Parameters.Add("@TNationality", OleDbType.VarChar).Value = TNationality.Text
               .Parameters.Add("@ComboBox3", OleDbType.VarChar).Value = ComboBox3.Text
               .Parameters.Add("@TxtNumFam", OleDbType.VarChar).Value = TxtNumFam.Text
               .Parameters.Add("@TxtBaladia", OleDbType.VarChar).Value = TxtBaladia.Text
               .Parameters.Add("@TxtMahlla", OleDbType.VarChar).Value = TxtMahlla.Text
               .Parameters.Add("@ComboBox4", OleDbType.VarChar).Value = ComboBox4.Text
               .Parameters.Add("@TTaeenNo", OleDbType.VarChar).Value = TTaeenNo.Text
               .Parameters.Add("@Ttarekheh", OleDbType.VarChar).Value = Ttarekheh.Text
               .Parameters.Add("@TxtBoYestart", OleDbType.VarChar).Value = TxtBoYestart.Text
               .Parameters.Add("@TxtNoWadeafa", OleDbType.VarChar).Value = TxtNoWadeafa.Text
               .Parameters.Add("@TxtMoneyNo", OleDbType.VarChar).Value = TxtMoneyNo.Text
               .Parameters.Add("@TxtMalakNo", OleDbType.VarChar).Value = TxtMalakNo.Text
               .Parameters.Add("@TGuraCardNo", OleDbType.VarChar).Value = TGuraCardNo.Text
               .Parameters.Add("@TCardNo", OleDbType.VarChar).Value = TCardNo.Text
               .Parameters.Add("@TBank", OleDbType.VarChar).Value = TBank.Text
               .Parameters.Add("@TBankBranch", OleDbType.VarChar).Value = TBankBranch.Text
               .Parameters.Add("@TBankAco", OleDbType.VarChar).Value = TBankAco.Text
               .Parameters.Add("@TxtCert", OleDbType.VarChar).Value = TxtCert.Text
               .Parameters.Add("@TTimeQual", OleDbType.VarChar).Value = TTimeQual.Text
               .Parameters.Add("@TQualState", OleDbType.VarChar).Value = TQualState.Text
               .Parameters.Add("@TQualPlace", OleDbType.VarChar).Value = TQualPlace.Text
               .Parameters.Add("@TxtSpicial", OleDbType.VarChar).Value = TxtSpicial.Text
               .Parameters.Add("@TDgreeEmp", OleDbType.VarChar).Value = TDgreeEmp.Text
               .Parameters.Add("@TxtNoQrar", OleDbType.VarChar).Value = TxtNoQrar.Text
               .Parameters.Add("@TxtTarekhQrar", OleDbType.VarChar).Value = TxtTarekhQrar.Text
               .Parameters.Add("@TSefatoh", OleDbType.VarChar).Value = TSefatoh.Text
               .Parameters.Add("@TTimeNexDeg", OleDbType.VarChar).Value = TTimeNexDeg.Text



               If con.State = ConnectionState.Closed Then con.Open()
               If Command.ExecuteNonQuery() = 1 Then
                   MsgBox("تمت عملية التعديل بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ اجراء التعديل")

                   Call Di_Refresh()

               Else
                   MsgBox("لم تتم عملية التعديل بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ اجراء التعديل")
               End If
               con.Close()
           End With
       End Using
       Button1.Enabled = True
       Button2.Enabled = True

       Button5.Enabled = True

       Button7.Enabled = True
       Button8.Enabled = True

       'TxtBoID.Enabled = True
       TxtBoNa.Enabled = True
       TxtBoRe.Enabled = True
       TxtNoWadeafa.Enabled = True
       TxtBoYestart.Enabled = True

       Button9.Enabled = True
       Button10.Enabled = True
       Button11.Enabled = True
       Button12.Enabled = True



   End Sub


الملفات المرفقة
.zip   قاعدة بيانات مع اكواد الحفظ و التعديل.zip (الحجم : 24.97 ك ب / التحميلات : 122)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 90 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  امثلة و اكواد ربما تفيدك AHMED213 0 190 04-02-24, 11:07 PM
آخر رد: AHMED213
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] كود التعديل Abdellatif 6 395 21-12-23, 02:01 PM
آخر رد: Abdellatif
  كود التعديل لم ينجح معي melad2002 4 298 16-12-23, 12:22 AM
آخر رد: anes
  عمليات الاضافة والتعديل على قاعدة بيانات sql server 2012 kewely 4 2,019 08-11-23, 01:07 AM
آخر رد: الحزين اليماني
  تشغيل الماكرو عن طريق اكواد الفجوال نيمو 0 271 03-11-23, 11:14 AM
آخر رد: نيمو
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer
  اريد التعديل على كود اذا كان القيمة المدخلة مكررة بDataGridView يتم فقط زيادة العدد moh61 6 821 26-07-23, 10:41 AM
آخر رد: تركي الحلواني
  يرجي التعديل على المثال - تعبءة الكمبوبوكس داخل الجريد بانواع الوحدات new_programer 3 800 14-04-23, 05:31 PM
آخر رد: new_programer

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


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