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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] مشكلة عند ربط اكسس به دوال اجرائية بالفيجوال بيسك هيثم_هيثم 4 225 منذ 9 ساعة مضت
آخر رد: هيثم_هيثم
  بناء قاعدة Access بالأوامر ؟ ZaerAllail 0 32 , 05:30 AM
آخر رد: ZaerAllail
Question هل يمكن الحصول على نسخه برنامج كريستال ربيوت مع الكراك إن امكن ذلك ؟ Microformt 1 41 23-11-20, 08:09 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] اضافة ازرار حسب عدد متغير في قاعدة البيانات Ad Heart 5 684 16-11-20, 12:10 AM
آخر رد: sherf
Question [VB.NET] كيف يمكن برمجة زر البحث بأبسط الطرق ؟؟ Microformt 0 88 13-11-20, 04:16 PM
آخر رد: Microformt
  [VB.NET] ماهي طريقة تعبئة بيانات في داتاقريد فيو 2 مرتبطة بحقل في داتا فريد فيو1 Ad Heart 1 119 13-11-20, 12:27 AM
آخر رد: Ad Heart
  [VB.NET] مشكله في قراءه بيانات فارغه من ال SQL SERVER mohammed_abdu 2 153 08-11-20, 05:31 PM
آخر رد: mohammed_abdu
  كود تعديل البيانات فيجوال بيسك وقاعدة بيانات sql server برحوت 0 133 08-11-20, 12:17 AM
آخر رد: برحوت
  مشكلة حفظ البيانات الموجودة في اداة listview في قاعدة بيانات SQL shado1796 7 2,034 07-11-20, 02:47 PM
آخر رد: sherf
  هل استطيع الاتصال بقاعدة بيانات Access موجودة على سيرفر خارجي mohamedgadain61 4 213 05-11-20, 05:24 PM
آخر رد: kiki

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


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