[salahmax12]

هل يوجد طريقة للتأكد من وجود عنصر ما في قاعدة بيانات اكسس

و اقصد بوجوده اي انه يبحث عنه في عامود معين

[mero5000]

اكتب محاولاتك فى استعلام البحث

[salahmax12]

(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 
 - ففي حالة انها موجودة لا يقوم بشئ , و في حالة عدم وجودها يقوم باضافتها
للاسف لم يتواجد في رأسي اي فكرة اخري

[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)

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

[salahmax12]

(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)

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

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