29-10-18, 10:24 PM
29-10-18, 10:36 PM
اكتب محاولاتك فى استعلام البحث
29-10-18, 11:17 PM
(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
- ففي حالة انها موجودة لا يقوم بشئ , و في حالة عدم وجودها يقوم باضافتها
للاسف لم يتواجد في رأسي اي فكرة اخري
30-10-18, 12:22 AM
ضع هذ في مديول :
و ضع هذا في الحدث زر :
مع تعديل أسم الجدول و اسم العامود و القيمة المراد البحث عنها .
كود :
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)مع تعديل أسم الجدول و اسم العامود و القيمة المراد البحث عنها .
30-10-18, 05:34 PM
(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)
مع تعديل أسم الجدول و اسم العامود و القيمة المراد البحث عنها .
شكرا جزيلا .. يعمل بدون اي مشاكل , فقط قمت بالتعديل عليه قليلا ليناسب المشروع