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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] فتح ارتباط تشعبي موجود ضمن قاعدة البيانات اكسس EMADSSS 2 42 منذ 1 ساعه مضت
آخر رد: EMADSSS
  استدعاء بيانات العميل الى جدول الفاتورة mostafa nada 6 106 منذ 2 ساعة مضت
آخر رد: mostafa nada
  [VB.NET] رفع قاعدة بيانات علي جوجل دريف والاتصال بها من أكثر من جهاز محمد صلاح ابراهيم 4 345 منذ 8 ساعة مضت
آخر رد: sendbad100
  [كود] طريقة البحث عن صورة في قاعدة البيانات access باستعمال صورة أخرى technomedia 3 51 أمس, 10:56 PM
آخر رد: princelovelorn
  [سؤال] عرض الصورة من قاعدة البيانات محمد اسماعيل 3 77 15-02-19, 06:28 AM
آخر رد: princelovelorn
  عدم الحفظ في قاعدة البيانات في الوندوز 64 بايت raaddawood 9 174 06-02-19, 01:16 PM
آخر رد: sendbad100
  [كود] سؤال لأهل الخبرة كيف يمكن استدعاء شااشة لبرنامج تم برمجتة بالجافا dametucorazon 1 83 06-02-19, 10:35 AM
آخر رد: dametucorazon
  [Acces2007] كيف يمكن استخدام اداة WebBrowser4 داخل الاكسز بدون حفظ الروابط المستخدمة على الجهاز come2playati 0 39 05-02-19, 09:04 PM
آخر رد: come2playati
  عدم الحفظ في قاعدة البيانات في الوندوز 64 بايت raaddawood 2 68 05-02-19, 11:59 AM
آخر رد: raaddawood
  ماهو سبب وجود سجل فارغ عند إضافة البيانات من الداتاقريد فيو أكثر من مرة جيولوجي مبتدئ 1 91 03-02-19, 07:24 PM
آخر رد: asemshahen5

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


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