تقييم الموضوع :
  • 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 ك ب / التحميلات : 96)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عندي مشكلة في التعديل علي سطر معين في datagridViewo ٍOfelas 5 69 منذ 10 ساعة مضت
آخر رد: Anas Mahmoud
  [VB.NET] كيفية تشفير اكواد البرنامج من السرقة ميدو الفنان 1 91 22-09-20, 07:17 AM
آخر رد: Anas Mahmoud
  عمليات الاضافة والتعديل على قاعدة بيانات sql server 2012 kewely 2 84 19-09-20, 07:45 PM
آخر رد: kewely
  التاريخ لا يقبل الاضافة او التعديل talatm 2 122 18-09-20, 08:36 PM
آخر رد: talatm
  المساعدة في التعديل على كود تعديل البيانات في قاعدة سيكوال سيرفر momani33 3 100 15-09-20, 08:10 PM
آخر رد: Anas Mahmoud
  التعديل على الكود للتخلص من مشكلة البطىء حيث عدد السجلات كبير momani33 0 125 09-09-20, 01:33 PM
آخر رد: momani33
  [سؤال] سؤال في اكواد الوقت منه 7 396 08-08-20, 03:29 PM
آخر رد: منه
  التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة جيولوجي مبتدئ 3 259 02-08-20, 02:10 AM
آخر رد: ابراهيم ايبو
  التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة جيولوجي مبتدئ 0 152 01-08-20, 07:49 PM
آخر رد: جيولوجي مبتدئ
  [كود] اريد التعديل على الكود وهو عدم التكرار عمور2016 3 275 23-07-20, 01:03 AM
آخر رد: عبد العزيز البسكري

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


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