منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - [عنوان معدل] كيفية منع تكرار البيانات

برجاء المساعدة
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

عزيزى 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(SqlStr, con)
        con.Open()
        If Cmd.ExecuteScalar > 0 Then
            MsgBox("هذه القيمة موجودة مسبقا")
        End If
        con.Close() 

مشكورررررررررررررررررررررررررررررررررررررررررررررررررررر

[COLOR="#FF0000"]السلام عليكم

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

[/COLOR]

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

MOONMICROSYSTEM

Ahmed_online

MOONMICROSYSTEM

Sajad