تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[عنوان معدل] كيفية منع تكرار البيانات
#1
برجاء المساعدة
Try
Application.DoEvents()


If EmployessTextBox.Text > 0 Then

'كود اضافة سجل جديد
Dim Add_NewRow As DataRow = BD_master_DataSet.Tables("Employess").NewRow()

If IDTextBox.Text = "" Then Add_NewRow("code") = DBNull.Value Else Add_NewRow("code") = IDTextBox.Text.Trim
If EmployessTextBox.Text = "" Then Add_NewRow("num") = DBNull.Value Else Add_NewRow("num") = EmployessTextBox.Text.Trim


BD_master_DataSet.Tables("Employess").Rows.Add(Add_NewRow)


'كود حفظ الاضافة
Validate()
EmployessTableAdapter.Update(BD_master_DataSet.Tables("Employess"))
BD_master_DataSet.AcceptChanges()

'تحديث قاعدة البيانات

' DB.Open()
BD_master_DataSet.Clear()
' EmployessTableAdapter.Fill(BD_master_DataSet, "Employess")
' DB.Close()
Me.Validate()
Me.EmployessBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.BD_master_DataSet)
'كود الانتقال الى اخر سجل تم اضافته بعد تخديث قاعدة البيانات

Me.BindingContext(BD_master_DataSet, "Employess").Position = 0

'count()

MsgBox("تم الاضافة بنجاح", 64, "نجاح")

Else

'كود معرفة رقم الصف الحالي في قاعدة البيانات

Dim Row_Num As Integer = Me.BindingContext(BD_master_DataSet, "Employess").Position

'كود حفظ التعديل
BD_master_DataSet.Tables("Employess").Rows(Row_Num).BeginEdit()

If IDTextBox.Text = "" Then BD_master_DataSet.Tables("Employess").Rows(Row_Num).Item("code") = DBNull.Value Else BD_master_DataSet.Tables("Employess").Rows(Row_Num).Item("code") = IDTextBox.Text.Trim
If EmployessTextBox.Text = "" Then BD_master_DataSet.Tables("Employess").Rows(Row_Num).Item("num") = DBNull.Value Else BD_master_DataSet.Tables("Employess").Rows(Row_Num).Item("num") = EmployessTextBox.Text.Trim

BD_master_DataSet.Tables("Employess").Rows(Row_Num).EndEdit()

'كود حفظ التعديل

Validate()
EmployessTableAdapter.Update(BD_master_DataSet.Tables(0))
BD_master_DataSet.AcceptChanges()

' count()
Me.Validate()
Me.EmployessBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.BD_master_DataSet)

MsgBox("تم حفظ التعديل", 64, "نجاح")

End If

Catch ex As Exception

MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 432.72 ك ب / التحميلات : 108)
الرد }}}}
تم الشكر بواسطة:
#2
عزيزى Moon انا لم افتح المثال المرفق ولكن ان كنت تريد طريقة عدم تكرار البيانات هذه هى الطريقة

اولا : الوضع المنفصل
PHP كود :
If DataSetName.Tables("TableName").Compute("count(FiledName)""FiledName >= '" Trim(TextBox1.Text) & "' and FiledName <= '" Trim(TextBox1.Text) & "'").ToString 0 Then
            MsgBox
("هذه القيمة موجودة مسبقا")
        
End If 

ثانيا : الوضع المتصل
PHP كود :
Dim SqlStr As String "Select Count(*) From TableName where FiledName = '" TextBox1.Text "'"
        
Dim Cmd As New OleDbCommand(SqlStrcon)
        
con.Open()
        If 
Cmd.ExecuteScalar 0 Then
            MsgBox
("هذه القيمة موجودة مسبقا")
        
End If
        
con.Close() 
قم بعلم ولا تطلب به بدلا             فالناس موتى وأهل العلم احياء

الامام على رضوان الله عليه
الرد }}}}
تم الشكر بواسطة:
#3
مشكورررررررررررررررررررررررررررررررررررررررررررررررررررر
الرد }}}}
تم الشكر بواسطة:
#4
[COLOR="#FF0000"]السلام عليكم

يرجى وضع عنوان مناسب للموضوع (بعيدا عن كلمات المساعدة ,رجاءا ,.....) الذي تطرحه كي لا يتعرض موضوعك للحذف

[/COLOR]
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  بحث و إظهار صورة من قاعة البيانات علىPictureBox ahmed_elwerfalli 0 38 29-11-16, 01:34 AM
آخر رد: ahmed_elwerfalli
  [سؤال] كيفية اضافة عناصر عمود فى جدول من قاعدة بيانات فى جدول اخر hidn 1 165 04-11-16, 09:25 AM
آخر رد: thevirus
  [VB.NET] مثال على جلب ارقام من قاعدة البيانات وحفظها في مصفوفة بدر إشتية 4 347 02-11-16, 02:42 AM
آخر رد: Ahmad ahmed
  كيفية الاتصال بقاعدة بيانات Access على الشبكة المحلية warda saeed 7 7,201 27-10-16, 09:53 PM
آخر رد: thevirus
  [سؤال] شباب كيفية انقاص او طرح الكمية الموضوعة فى الداتا جريد من الجدول احمد عبد الحكيم 2 299 04-10-16, 11:37 PM
آخر رد: benomar
  استفسار حول طريقتي في قاعدة البيانات صبري زينوبي 0 76 29-09-16, 04:35 PM
آخر رد: صبري زينوبي
  تسمية قاعدة البيانات قبل انشائها aiman 3 167 15-09-16, 09:12 PM
آخر رد: Abu Ehab
  [Acces2003] المساعدة في كود لحذف البيانات من الاستعلام محمد خلف زكي 2 138 28-08-16, 11:24 AM
آخر رد: محمد خلف زكي
  [VB.NET] الفيجوال بيسك لا يحفظ البيانات محمد خلف زكي 1 214 02-08-16, 05:54 AM
آخر رد: سعود
  لماذا لايتم حفظ الثواني مع باقي القيم الى قاعدة البيانات؟ سعود 2 383 01-08-16, 11:15 AM
آخر رد: أبوبكر سويدان

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


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