[Alhootti1]

السلام عليكم
عندي قاعدة بيانات من اكسس و فيها جدول Medicine يحتوي على حقول  (Medic  و  dosage   و  per_day و  days)
اريد عند حدث معين يتخرن كل اسماء الادوية من قاعدة البيانات حقل (Medic  )  إلى داتاغريد في خانة كومبو بوكس و ثم  البحت عن طريق كومبو بوكس في داتاغريد بمجرد ادل الحرف الاول من الدواء يظهر اسم الدواء بالكامل و اضغط على زر Enter تظهر البيانات كلها

مثال مرفق للتعديل


شكرا لكم

[اسامه الهرماوي]

السلام عليكم...
هذا كود تعبئة الكمبوبوكس من الأكسس بدون تكرار:
-ضعة في حدث تحميل الفورم.

كود :

datatabletype.Clear()
       DataAdaptertype = New SqlDataAdapter("Select نوع_العقارات_الرئيسية FROM kin Group By نوع_العقارات_الرئيسية", contype)
       DataAdaptertype.Fill(datatabletype)
       If datatabletype.Rows.Count > 0 Then
           النوع.DataSource = datatabletype
           النوع.DisplayMember = "نوع_العقارات_الرئيسية"
       Else
           النوع.DataSource = Nothing
       End If

وهذا كود البحث بأي جزء من الكلمة:
-ضعة في زر او في الكمبوبكس.

كود :

DataAdapter = New OleDbDataAdapter("Select * From الجدول Where الحقل Like '%" & Trim$(TextBox1.Text) & "%'", con)
           DataSet.Clear()
           DataAdapter.Fill(DataSet, "الجدول")
           DataGridView1.DataSource = DataSet
           DataGridView1.DataMember = "الجدول"

[Alhootti1]

جزاك الله خيرا يا أخي الكود ما ضبط معي ممكن لأني مبندأ في Vb.net

هذا الكود بعد التعديل ممكن تشوفه يمكن فيه أخطاء

PHP كود :

DataSet3.Clear()
        Dim SQLstr5 As String = "SELECT * FROM Medicine "
        Dim DataAdapter5 As New OleDbDataAdapter(SQLstr5, Conn3)
        Conn3.Open()
        DataAdapter5.Fill(DataSet3, "Medic")
        If DataGridView5.Rows.Count > 0 Then
            DataGridView5.DataSource = DataSet3
            Medicine.DisplayMember = "Medic"
        Else
            DataGridView5.DataSource = Nothing
        End If 


[اسامه الهرماوي]

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

[Alhootti1]

(18-09-19, 06:07 PM)اسامه الهرماوي كتب : كلمة النوع تعني اسم الأداة قم باستبدالها فقط.

شكرا لك اخي الغالي بس يا ليت لو تعدل في المثال  المرفق أكون شاكر لك و الصورة تتضح أكثر لأني حاولت مرارا و  تظهر لي اخظاء

[Alhootti1]

أخي العزيز  
تم تضبيط الكود لكنه لم يظهر اي نتيجة في داتاغريد حقل Drug 

PHP كود :

DataSet3.Clear()
        Dim DataAdapter3 As New OleDbDataAdapter("Select Medic_Name FROM Medicine Group By Medic_Name", Conn3)
        DataAdapter3.Fill(DataSet3)
        If DataGridView5.Rows.Count > 0 Then
            DataGridView5.DataSource = DataSet3
            Drug.DisplayMember = "Medic_Name"
        End If 


أين الخطأ في الكود ؟

[سعود]

تعديل على حدث الزر المكتوب عليه OK

PHP كود :

       DataSet3.Clear()
        Dim DataAdapter3 As New OleDbDataAdapter("Select Medic_Name FROM Medicine Group By Medic_Name", Conn3)
        DataAdapter3.Fill(DataSet3)
        ' If DataGridView5.Rows.Count > 0 Then
        DataGridView5.DataSource = DataSet3'
        Drug.DataSource = DataSet3.Tables(0)

        Drug.DisplayMember = "Medic_Name"
        'End If 


[Alhootti1]

جزاك الله خيرا يا أخي سعود الحمد لله انحلت المشلكة أخيرا

[Alhootti1]

وهذا كود البحث بأي جزء من الكلمة:
-ضعة في زر او في الكمبوبكس.

كود :

DataAdapter = New OleDbDataAdapter("Select * From الجدول Where الحقل Like '%" & Trim$(TextBox1.Text) & "%'", con)
           DataSet.Clear()
           DataAdapter.Fill(DataSet, "الجدول")
           DataGridView1.DataSource = DataSet
           DataGridView1.DataMember = "الجدول"

 انا جربت هذا الكود لكن لم أجد اي نتيجة 
أريد الكود كالتالي للبحث عن طريق اول حقل في داتاغريد  كذلك عن طريق اول حرف و يكمل تلقائيا مثلا عندي الدواء Adol  اول ما اكتب حرف A تظهر عندي الكلمة Adol بالكامل ثم اضغظ على انتر حيث يتم البحث.
Medic_Name  هو حقل الأدوية حيث يتم البحث عن طريقه

PHP كود :

Private Sub DataGridView5_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView5.CellEndEdit
        Dim dp As New OleDbDataAdapter("Select * From Medicine Where Medic_Name Like '%" & Trim$(DataGridView5.Rows(e.RowIndex).Cells(0).Value) & "%'", Conn)
        Dim ds As New DataSet
        ds.Clear()
        dp.Fill(ds)
        DataGridView5.DataSource = ds.Tables("Medicine")
        DataGridView5.Rows(e.RowIndex).Cells(1).Value = "هنا حقل Dosage"
        DataGridView5.Rows(e.RowIndex).Cells(2).Value = "هنا حقل Per_Day"
        DataGridView5.Rows(e.RowIndex).Cells(3).Value = "هنا حقل Days"
 End Sub 


[Alhootti1]

انتظركم يا شباب