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

نسخة كاملة : التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
عندى داتا بيز مربوظة بداتا جريد فيو باستخدام الربط عن طريق المعالج
فية عمود المفروض انا عاملة PRIMARY KEY فالمفروض اى قيمة تدخل فى الخلايا تحت العمود دة متكونش متكررة
انا عاوز اتحقق قبل اما اضيف قيمة جديدة هل القيمة دى موجودة ولا لا لو مش موجودة يضيف لو موجودة يظهرلى مسج بوكس
السلام عليكم
جرب التالي:
في حدث (CellBeginEdit) اضف السطور التالية:
كود :
 ' تستطيع بدل الرقم 1 وضع تسلسل الصف في الداتا كرد فيو علماً ان التسلسل يبدأ من الصفر
       If Me.DataGridView1.CurrentCell.ColumnIndex.ToString = 1 Then
           Dim cmd As New SqlCommand
           Dim ValueCount As Integer = 0
           With cmd
               '  يجب وضع عنصر الاتصال الخاص بك بدل المستخدم ادناه
               .Connection = con
               '  يجب تعديل الجملة ادناه حسب اسم اسم الحقل و اسم الجدول و شرط الجملة
               .CommandText = "Select count([FieldName]) From [TableName] Where [Condition]=" & DataGridView1.CurrentRow.Cells(1).Value
               con.Open()
               ValueCount = .ExecuteScalar
               con.Close()
           End With
           If ValueCount > 0 Then
               MsgBox("القيمة المدخلة مكررة", MsgBoxStyle.Critical, "خطأ")
               e.Cancel = True
           End If
       End If

و اعلمنا بالنتائج

تحياتي ..
مانفعت انا استخدم الربط عن طريق المعالج ؟؟
لا يوجد مشكلة مع طريقة الربط بالمعالج و لكن السؤال هو .. هل غيرت اسماء الحقول و اسم الجدول في السطر التالي:
PHP كود :
 .CommandText "Select count([FieldName]) From [TableName] Where [Condition]=" DataGridView1.CurrentRow.Cells(1).Value 

تحياتي..
PHP كود :
Dim value As String "aaaaaaaaa"
Dim isExist As Boolean Me.DataSet1.table1.AsEnumerable().Any(Function(rr("column1").Equals(value))
If 
isExist Then
    MsgBox 
"Value already exists"
 
   Exit Sub
End 
If