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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] فك كلمة مرور معقدة على قاعدة البيانات اكسس ahmed saba 7 5,503 28-05-17, 05:30 PM
آخر رد: abiza
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 5 4,632 10-05-17, 03:13 PM
آخر رد: safalo
  ظهور خطا عند سحب البيانات وعرضها في الداتا كريد باستخدم الـــ Threading HATEM KAREM 0 87 06-05-17, 04:45 PM
آخر رد: HATEM KAREM
  استفسار حول عدم تكرار البيانات المتألق9 3 152 02-04-17, 03:38 AM
آخر رد: حريف برمجة
  جلب البيانات من ملف txt djelloul 7 187 28-03-17, 03:20 PM
آخر رد: djelloul
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 155 10-03-17, 09:36 AM
آخر رد: عبد الله
  سرعة ادخال البيانات داخل ملف اكسس atefkhalf2004 1 169 05-03-17, 04:06 AM
آخر رد: thevirus
  استعادة قاعدة البيانات من ملف النسخة الإحتياطية djelloul 2 173 28-02-17, 03:27 PM
آخر رد: djelloul
  كيفية الاتصال بقاعدة بيانات Access على الشبكة المحلية warda saeed 9 9,249 28-02-17, 10:21 AM
آخر رد: وائل القطاوي
  فتح قاعدة البيانات محفوظة ب باسس ورد في جملة الاتصال ahmed_elwerfalli 2 162 13-02-17, 05:27 PM
آخر رد: ahmed_elwerfalli

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


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