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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [عنوان معدل] كيفية منع تكرار البيانات (/showthread.php?tid=7665)

[عنوان معدل] كيفية منع تكرار البيانات - MOONMICROSYSTEM - 17-02-13

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

عزيزى 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 - 23-02-13

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

[عنوان معدل] كيفية منع تكرار البيانات - Sajad - 23-02-13

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

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

[/COLOR]