[MOONMICROSYSTEM]

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

[Ahmed_online]

عزيزى 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() 


[MOONMICROSYSTEM]

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

[Sajad]

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

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

[/COLOR]