تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود dell 0 14 منذ 4 ساعة مضت
آخر رد: dell
  استعلام select عن مجموعة بيانات Adel27213 1 155 15-03-24, 01:11 AM
آخر رد: justforit
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 129 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 176 26-02-24, 01:07 AM
آخر رد: asdfar1977
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 205 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 75 25-02-24, 02:31 PM
آخر رد: h2551996
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 302 21-02-24, 11:44 PM
آخر رد: AHMED213
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 173 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 320 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  انشاء قاعدة بيانات من ملف سكربت strongriseman 5 480 17-02-24, 02:57 PM
آخر رد: strongriseman

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


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