منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كيفية اضافة البيانات من اكسس إلى داتاغريد عن طريق حقل كومبو بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيفية اضافة البيانات من اكسس إلى داتاغريد عن طريق حقل كومبو بوكس (/showthread.php?tid=31398)

كيفية اضافة البيانات من اكسس إلى داتاغريد عن طريق حقل كومبو بوكس - Alhootti1 - 17-09-19

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

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


شكرا لكم

RE: كيفية اضافة البيانات من اكسس إلى داتاغريد حقل كومبو بوكس - اسامه الهرماوي - 18-09-19

السلام عليكم...
هذا كود تعبئة الكمبوبوكس من الأكسس بدون تكرار:
-ضعة في حدث تحميل الفورم.
كود :
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 = "الجدول"


RE: كيفية اضافة البيانات من اكسس إلى داتاغريد حقل كومبو بوكس - Alhootti1 - 18-09-19

جزاك الله خيرا يا أخي الكود ما ضبط معي ممكن لأني مبندأ في 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 


RE: كيفية اضافة البيانات من اكسس إلى داتاغريد حقل كومبو بوكس - اسامه الهرماوي - 18-09-19

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

RE: كيفية اضافة البيانات من اكسس إلى داتاغريد حقل كومبو بوكس - Alhootti1 - 18-09-19

(18-09-19, 06:07 PM)اسامه الهرماوي كتب : كلمة النوع تعني اسم الأداة قم باستبدالها فقط.
شكرا لك اخي الغالي بس يا ليت لو تعدل في المثال  المرفق أكون شاكر لك و الصورة تتضح أكثر لأني حاولت مرارا و  تظهر لي اخظاء

RE: كيفية اضافة البيانات من اكسس إلى داتاغريد حقل كومبو بوكس - Alhootti1 - 20-09-19

أخي العزيز  
تم تضبيط الكود لكنه لم يظهر اي نتيجة في داتاغريد حقل 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 
أين الخطأ في الكود ؟

RE: كيفية اضافة البيانات من اكسس إلى داتاغريد حقل كومبو بوكس - سعود - 20-09-19

تعديل على حدث الزر المكتوب عليه 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 


RE: كيفية اضافة البيانات من اكسس إلى داتاغريد حقل كومبو بوكس - Alhootti1 - 20-09-19

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

RE: كيفية اضافة البيانات من اكسس إلى داتاغريد حقل كومبو بوكس - Alhootti1 - 22-09-19

وهذا كود البحث بأي جزء من الكلمة:
-ضعة في زر او في الكمبوبكس.
كود :
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 


RE: كيفية اضافة البيانات من اكسس إلى داتاغريد حقل كومبو بوكس - Alhootti1 - 24-09-19

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