تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل يمكن التأكد من وجود عنصر ما في قاعدة بيانات اكسس ؟
#1
هل يوجد طريقة للتأكد من وجود عنصر ما في قاعدة بيانات اكسس
و اقصد بوجوده اي انه يبحث عنه في عامود معين
الرد
تم الشكر بواسطة:
#2
اكتب محاولاتك فى استعلام البحث
الرد
تم الشكر بواسطة: elgokr
#3
(29-10-18, 10:36 PM)mero5000 كتب : اكتب محاولاتك فى استعلام البحث
الكود الذي وصلت له يعمل لكنه غريب .. جدا و سئ جدا
كود :
           If Form2.DataGridView1.RowCount = 1 Then
               cmd.Connection = con
               con.Open()
               cmd.ExecuteNonQuery()
               con.Close()
           End If

اولا قمت بعمل فورم جديد وضعت فيه datagridveiw
و جعلت قاعدة البيانات هي الداتا سورس الخاصة به
و جعلته يظهر فقط القيمة التي اريدها و جملة if
تتأكد اذا ما كان عدد الصفوف الظاهرة بال datagridveiw يساوي 1 
 - ففي حالة انها موجودة لا يقوم بشئ , و في حالة عدم وجودها يقوم باضافتها
للاسف لم يتواجد في رأسي اي فكرة اخري
الرد
تم الشكر بواسطة:
#4
ضع هذ في مديول :

كود :
Public Sub ChekCustomer(TableName As String, ColumnName As String, TxtSearch As String)
       Dim StrSQL As String = "Select * From " & TableName & "  Where " & ColumnName & " = '" & TxtSearch & "'"
       Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=db.mdb;User Id=admin;Password=;")
       Dim StrTableName As String = "WeightKg"
       Dim da As New OleDb.OleDbDataAdapter(StrSQL, cn)
       Dim dt As New DataTable
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           MsgBox("العنصر موجود")
       End If
   End Sub
و ضع هذا في الحدث زر :
كود :
ChekCustomer("TableName", "ColumnName", TxtSearch.Text)

مع تعديل أسم الجدول و اسم العامود و القيمة المراد البحث عنها .

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
#5
(30-10-18, 12:22 AM)asemshahen5 كتب : ضع هذ في مديول :

كود :
Public Sub ChekCustomer(TableName As String, ColumnName As String, TxtSearch As String)
       Dim StrSQL As String = "Select * From " & TableName & "  Where " & ColumnName & " = '" & TxtSearch & "'"
       Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=db.mdb;User Id=admin;Password=;")
       Dim StrTableName As String = "WeightKg"
       Dim da As New OleDb.OleDbDataAdapter(StrSQL, cn)
       Dim dt As New DataTable
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           MsgBox("العنصر موجود")
       End If
   End Sub
و ضع هذا في الحدث زر :
كود :
ChekCustomer("TableName", "ColumnName", TxtSearch.Text)

مع تعديل أسم الجدول و اسم العامود و القيمة المراد البحث عنها .

شكرا جزيلا .. يعمل بدون اي مشاكل , فقط قمت بالتعديل عليه قليلا ليناسب المشروع
الرد
تم الشكر بواسطة: elgokr , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاخوة الذين يواجهون مشكلة الحفظ في قاعدة بيانات اكسسس abo ragab 1 137 15-12-18, 11:12 PM
آخر رد: alsihran
  مشكلة فى وضع كود جلب معلومات قاعدة البينات Mohamed Magdy 6 138 09-12-18, 08:14 AM
آخر رد: asemshahen5
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 1 71 08-12-18, 02:22 PM
آخر رد: nandy2016
  [VB.NET] استفسار :- بخصوص تنزيل الداتا في قاعدة البيانات dubai.eig 0 48 06-12-18, 04:36 PM
آخر رد: dubai.eig
  [VB.NET] حفظ بيانات في جدولين kah1974 0 49 05-12-18, 11:44 PM
آخر رد: kah1974
  [كود] إدراج بيانات من الجريد إلى أكسس motazsaad94@gmail.com 3 86 05-12-18, 05:44 PM
آخر رد: motazsaad94@gmail.com
  كيفية دمع بيانات فى تكست بوكس واحد سمير جمال 3 86 04-12-18, 04:07 PM
آخر رد: Rabeea Qbaha
  هل يمكن اقتناص رابط الفيديو bidaya 7 168 03-12-18, 09:29 PM
آخر رد: ابو روضة
  عرض عنصر في الكمبوبوكس atefkhalf2004 13 278 02-12-18, 09:45 PM
آخر رد: اسامه الهرماوي
  اضافة بيانات اكثر من جدول في الكرستال المتألق9 1 60 02-12-18, 04:06 PM
آخر رد: Rabeea Qbaha

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


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