تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله بسيطه عند القيام بالبحث
#1
السلام عليكم ورحمه الله وبركاته

اخواني الكرام

انا عامل نموذج للبحث ويكون البحث عن طريق كود معين مثلا a1

ولكن ممكنك ان يتكرر هذا الكود لاكثر من قراءه

انا اريد ان اعمل بحث عن هذا الكود طبعا سوف يظهر كل النتائج الى a1
اريد ان اعمل تعديل على سجل واحد فقط لانه لما اعمل تعديل يقوم بالتعديل في كل السجلات التي تحمل نفس التسميه

صوره للتوضيح

تم إضافة الصورة المكبرة من قبل الإدارة . بالتوفيق Smile




طبعا مصمم على فيجول بييسك 2010 وقاعده بيانات Acsses

وهذا هو الكود

كود :
Imports System.Data
Imports JbsaPrintDataGridView
Imports System.Data.OleDb
Public Class FormRecodSearch
    Dim frm As New RecordMain
    Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source =" & Application.StartupPath & "\Database.mdb"
    Dim Conn As New OleDbConnection(ConStr)
    Dim DataSet1 As New DataSet
    Dim SQLstr As String
    Dim m As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Static m As Integer = 0
        If TextBox1.Text = Trim("") Then Exit Sub
        If RadioButton4.Checked = True Then
            ExactSearch()
        ElseIf RadioButton5.Checked = True Then
            GeneralSearch()
        End If
        Conn.Open()
        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
        DataAdapter1.Fill(DataSet1, "TheTable")
        Conn.Close()

        TextBox2.DataBindings.Add("Text", DataSet1, "TheTable.Code")
        TextBox3.DataBindings.Add("Text", DataSet1, "TheTable.Mall")
        TextBox4.DataBindings.Add("Text", DataSet1, "TheTable.Expiry_date_repairs")
        TextBox5.DataBindings.Add("Text", DataSet1, "TheTable.Repair_Cost")
        TextBox6.DataBindings.Add("Text", DataSet1, "TheTable.Description_repairs")

        DataGridView1.DataSource = DataSet1
        DataGridView1.DataMember = "TheTable"
        Button1.Enabled = False
        If Me.BindingContext(DataSet1, "TheTable").Count = 0 Then
            MsgBox("No Result, Please Try Again ")
            Exit Sub
        End If
        Button1.Enabled = True
    End Sub
    Public Sub ExactSearch()
        If RadioButton1.Checked = True Then
            SQLstr = "SELECT * FROM TheTable WHERE Code = '" & TextBox1.Text & "'"
        End If
    End Sub
    Public Sub GeneralSearch()
        If RadioButton1.Checked = True Then
            SQLstr = "SELECT * FROM TheTable WHERE Code LIKE '%" & TextBox1.Text & "%'"
        End If
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox2.ReadOnly = False
        TextBox3.ReadOnly = False
        TextBox5.ReadOnly = False
        TextBox6.ReadOnly = False
        m = TextBox2.Text
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim SavInto As New OleDb.OleDbCommand
        Dim adapter2 As New OleDbDataAdapter(SQLstr, Conn)
        SavInto.Connection = Conn
        SavInto.CommandType = CommandType.Text
        SavInto.CommandText = "UPDATE TheTable SET Mall = '" & Trim(TextBox3.Text) & "' , Expiry_date_repairs = '" & Trim(TextBox4.Text) & "' , Repair_Cost= '" & Trim(TextBox5.Text) & "' , Description_repairs= '" & Trim(TextBox6.Text) & "' WHERE Code ='" & m & "'"
        Conn.Open()
        SavInto.ExecuteNonQuery()
        Conn.Close()
        Button4.Enabled = False
        Button5.Enabled = False
        Button3.Enabled = True

        TextBox2.ReadOnly = True
        TextBox3.ReadOnly = True
        TextBox4.ReadOnly = True
        TextBox5.ReadOnly = True
        TextBox6.ReadOnly = True


    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Button4.Enabled = False
        Button5.Enabled = False
        Button3.Enabled = True


        TextBox2.ReadOnly = False
        TextBox3.ReadOnly = False
        TextBox4.ReadOnly = True
        TextBox5.ReadOnly = True
        TextBox6.ReadOnly = True

    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox2.DataBindings.Clear()
        TextBox3.DataBindings.Clear()
        TextBox4.DataBindings.Clear()
        TextBox5.DataBindings.Clear()
        TextBox6.DataBindings.Clear()

        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        
        Button1.Enabled = True
        SQLstr = ""
        DataSet1.Clear()
        Me.DataGridView1.DataSource = Nothing
    End Sub


اتمنى منكم مساعدتي


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
[COLOR="#800080"]السلام عليكم

تنبيه: يرجى التقيد بقوانين المنتدى وكتابة الاسئلة في الاقسام المخصصة لها والا سيتعرض الموضوع للحذف وتتلقى مخالفة لذلك ,وبارك الله فيكم

تم النقل الى قسم اسئلة وبرمجة قواعد البيانات[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#3
للرفع للرفع
الرد }}}}
تم الشكر بواسطة:
#4
لابد ان تستعلم عن قيمة لاتتكرر مثل الترقيم التلقائي او المفتاح الاساسي غير هذين يتكرران.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#5
اخي الكريم سعود شكرا لك

ولكن اليس هناك حل لكي ابحث عن قيمه مثل الكود المحدد مثلا a1 ويكون متكرر او يكون المفتاح الرئيسي مثلا ID ولك البحث يكون بشيء اخر لاني اريد ان اعمل history لهذا الكود بحيث اريد ان اعرف كل التغيرات التي حصلت عليه

اتمنى منك مساعدتي
الرد }}}}
تم الشكر بواسطة:
#6
لا اشكال.. لكن اتحدث عن مسالة تحديث سجل/صف معين لان بدون قيمة محددة سيقع التحديث على كل السجلات او على الاقل على سجلات تحمل نفس القيمة.
لو ترفع مثال صغير فيه البحث المذكور نعدل عليه ليكون الحل اسرع.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#7
أخي الكريم سعود

تم رفع مثال على الفكره


الملفات المرفقة
.zip   WindowsApplication3.zip (الحجم : 153.96 ك ب / التحميلات : 19)
الرد }}}}
تم الشكر بواسطة:
#8
المشروع لم يعمل بسبب المكون غير موجود عندي DevComponents
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#9
احاول تشغيله باي طريقة
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#10
للاسف الادوات المربوطة كثيرة ولما حذفتها وقعت بمشكلة ثانية .. ياليت مثال من غير مكونات اضافية
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 7 368 24-07-16, 06:26 PM
آخر رد: سعود
  مشكله في عملية البحث علي كعبي 12 233 01-06-16, 01:21 AM
آخر رد: علي كعبي
  [SQL] مشكله لم أجد لها .... فراس صلاح 0 127 29-12-15, 07:20 PM
آخر رد: فراس صلاح
  ابحث عن كود يقوم بالبحث داخل DataGridView عن طريق القيم داخل list box يرجى المساعدة moh61 4 850 04-09-15, 07:40 AM
آخر رد: khodor1985
  مشكله فى تحويل قاعدة البيانات من 2007 الي 2003 sa86ra 4 690 09-02-15, 06:01 PM
آخر رد: sa86ra
  [سؤال] مشكله فى Microsoft.ReportViewer samehfido 5 1,018 10-03-14, 12:14 AM
آخر رد: samehfido
  [سؤال] مشكله فى عدم حفظ الادوات على الفورم وحيد2008 1 548 31-01-14, 11:15 PM
آخر رد: ahmed saba
  [سؤال] لدي مشكله في أدراج جداول SQL Server 2008 I want the best 3 623 24-01-14, 11:19 PM
آخر رد: I want the best
  مشكله في قاعده بيانات nabil 0 441 29-09-13, 08:41 PM
آخر رد: nabil
Photo [سؤال] مشكله في كود اكسل nabil 2 668 26-09-13, 02:04 AM
آخر رد: nabil

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


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