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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] التعديل علي كود عرض الصور وفتح الروابط الخاصه بالصور ميدو الفنان 20 624 23-12-20, 01:54 AM
آخر رد: ميدو الفنان
  [VB.NET] التعديل علي كود خاص بي التعديل علي ملف ftp ميدو الفنان 4 304 26-11-20, 10:54 PM
آخر رد: ميدو الفنان
  [سؤال] الحفظ و التعديل و الحذف داخل datagridview and databases Sql server mo.fathi 1 286 10-11-20, 04:32 PM
آخر رد: mmali127
  ماهي طريقة إضافة اكثر من صورة دفعة واحد لمجلد الصور داخل المشروع وحفظ المسارات بـ sql العطر الرايق 13 816 10-11-20, 03:36 AM
آخر رد: سعود
Question [VB.NET] ازرار التنقل و الاضافة و الحفظ و الحذف و التعديل في entity framework باستخدام visual vb 2010 + sql server 2008 3 434 28-10-20, 12:46 PM
آخر رد: Anas Mahmoud
  ما الغلط في كود التعديل التالي برحوت 0 186 13-10-20, 09:11 PM
آخر رد: برحوت
  محتاج التعديل على المثال المرفق new_programer 2 335 10-10-20, 08:00 PM
آخر رد: shone1
  [VB.NET] عمل اتاش و تحديث قاعدة البيانات بعد التعديل على الحقول دون ضياع السجلات برمجيا larbihamri 4 428 06-10-20, 03:33 PM
آخر رد: larbihamri
  عندي مشكلة في التعديل علي سطر معين في datagridViewo ٍOfelas 5 613 28-09-20, 01:26 AM
آخر رد: Anas Mahmoud
  [VB.NET] كيفية تشفير اكواد البرنامج من السرقة ميدو الفنان 1 333 22-09-20, 07:17 AM
آخر رد: Anas Mahmoud

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


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