+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : هل يمكن التأكد من وجود عنصر ما في قاعدة بيانات اكسس ؟ (/showthread.php?tid=27182)
هل يمكن التأكد من وجود عنصر ما في قاعدة بيانات اكسس ؟ - salahmax12 - 29-10-18
هل يوجد طريقة للتأكد من وجود عنصر ما في قاعدة بيانات اكسس
و اقصد بوجوده اي انه يبحث عنه في عامود معين
RE: هل يمكن التأكد من وجود عنصر ما في قاعدة بيانات اكسس ؟ - mero5000 - 29-10-18
اكتب محاولاتك فى استعلام البحث
RE: هل يمكن التأكد من وجود عنصر ما في قاعدة بيانات اكسس ؟ - salahmax12 - 29-10-18
(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
- ففي حالة انها موجودة لا يقوم بشئ , و في حالة عدم وجودها يقوم باضافتها
للاسف لم يتواجد في رأسي اي فكرة اخري
RE: هل يمكن التأكد من وجود عنصر ما في قاعدة بيانات اكسس ؟ - asemshahen5 - 30-10-18
ضع هذ في مديول :
كود :
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)مع تعديل أسم الجدول و اسم العامود و القيمة المراد البحث عنها .
RE: هل يمكن التأكد من وجود عنصر ما في قاعدة بيانات اكسس ؟ - salahmax12 - 30-10-18
(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)
مع تعديل أسم الجدول و اسم العامود و القيمة المراد البحث عنها .
شكرا جزيلا .. يعمل بدون اي مشاكل , فقط قمت بالتعديل عليه قليلا ليناسب المشروع