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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يمكن ان يتشابة ارقام معالج مع اخر makky 1 66 20-05-19, 02:05 AM
آخر رد: ملهمـ
  [سؤال] حل مشكلة عدم وجود اضافة vlc في فجويل حاتمي 2 69 16-05-19, 02:11 PM
آخر رد: حاتمي
Heart [VB.NET] كل عام وانتم بخير ... محتاج كود نسخ قاعدة البيانات تلقائيا abdullhadi999 32 715 15-05-19, 08:24 PM
آخر رد: asemshahen5
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 9 188 15-05-19, 06:08 PM
آخر رد: makky
Rainbow [VB.NET] حذف بيانات الجلسة لل WebBrowser1 DK-x 0 50 03-05-19, 11:03 AM
آخر رد: DK-x
  [VB.NET] تحويل الكود من اكسس لsql اسامه الهرماوي 6 152 03-05-19, 01:29 AM
آخر رد: saoud2
  [مثال] قاعدة بيانات SQL DK-x 2 117 03-05-19, 12:38 AM
آخر رد: اسامه الهرماوي
  سؤال بخصوص نقل بيانات faysal13_13@hotmail.com 1 92 27-04-19, 10:32 PM
آخر رد: saoud2
  كيفية استخراج بيانات من اكثر من جدول وطباعتها المتألق9 3 132 25-04-19, 04:21 PM
آخر رد: elgokr
  مشكله في تعديل الصورة قاعدة بيانات اكسس الوايلي 12 313 25-04-19, 09:26 AM
آخر رد: elgokr

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


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