شاشة البحث

بدأه iman.i في 2 يونيو 2011 · 17 رد · 1,051 مشاهدة · في ADO.NET

#12 يونيو 2011 في 16:41 صاحب الموضوع

السلام عليكم..

عنجي شاشة بحث عن مورد...كما في الصورة ...هي بسيطه ولكن انا تلخبطت...

اريد الكمبوبوكس ان يظهر كافة اسماء الموردين...وعند اختيار اسم والضغط على زر البحث تظهر كافة بياناته في الداتا جريد...

أنا كتبت الكود التالي ولكن يبدو انه يحتوي على اخطاء ...

        ds.Clear()
        cn.Open()

        MyCommand = New SqlCommand("Select * FROM Suppliers WHERE Supp_name ='" & ComboBox1.Text & "'", cn)
        da = New SqlDataAdapter(MyCommand)
        da.Fill(ds, "Suppliers")
        DataGridView1.ReadOnly = True
        DataGridView1.DataSource = ds.Tables("Suppliers")
        cn.Close()
        MyCommand.Dispose()
        da.Dispose()
        ds.Dispose()
    End Sub

    Private Sub srhSupp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cn.Open() 
        da = New SqlDataAdapter("SELECT * from Suppliers", cn)
        da.Fill(ds, "Suppliers")
        MyBinding = New BindingSource(ds, "Suppliers")
        ComboBox1.DataBindings.Add(New Binding("text", MyBinding, "supp_name"))
        ComboBox1.DataSource = ds.Tables("Suppliers")
        ComboBox1.DisplayMember = "Supp_name"
        cn.Close()
    End Sub

   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        ComboBox1.DataSource = ds.Tables("Suppliers")

        ComboBox1.DisplayMember = "Supp_name"
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'بحث جديد
        ComboBox1.Text = ""
        DataGridView1.DataMember = ""
    End Sub
End Class

ارجوا التعديل باقررب وقت ..وجزاكم الله خيرا...

المرفقات

#22 يونيو 2011 في 18:48

السلام عليكم ورحمه الله وبركاته

اختي جربي الكود التالي

Private Sub srhSupp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
da = New SqlDataAdapter("SELECT * from Suppliers", cn)
da.Fill(ds, "Suppliers")
MyBinding = New BindingSource(ds, "Suppliers")
ComboBox1.DataBindings.Add(New Binding("text", MyBinding, "supp_name"))
ComboBox1.DataSource = ds.Tables("Suppliers")
ComboBox1.DisplayMember = "Supp_name"
End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
da = New SqlDataAdapter("SELECT * from Suppliers where supp_name='" + ComboBox1.Text + "'", cn)
da.Fill(ds, "Supplier")
SupplierDataGridView.DataSource=ds.Tables("Supplier")
End Sub

.:: Wish to become better and better ::.

#32 يونيو 2011 في 19:47

عفوا أخوي...

النتيجه كما هي ...عندما اعمل رن...تظهر الكمبوبوكس كافة الاسماء...واختار واحد منها واضغظ على زر البحث...فلا تظهر نتيجه...وتختفي الاسماء من الكمبوبوكس...

مالحل...

جزاك الله خيرا..

تم تعديل هذه المشاركة بواسطة iman.i في 2 يونيو 2011 في 19:52

#43 يونيو 2011 في 00:56

السلام عليكم ورحمه الله وبركاته

اختي تأكدي ان الجدول الثاني هو Supplier وليس Suppliers؟!!

.:: Wish to become better and better ::.

#53 يونيو 2011 في 02:11

السلام عليكم..

صحيح كان هناك خطأ باسم الجدول ...وتم التعديل...ولكن مازالت المشكلة موجوده...عندما اعمل رن...تظهر الكمبوبوكس كافة الاسماء...واختار واحد منها واضغظ على زر البحث...فلا تظهر نتيجه...وتختفي الاسماء من الكمبوبوكس...مالحل؟؟؟

هذا الكود يللي عندي

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ds.Clear()
        cn.Open()

        da = New SqlDataAdapter("SELECT * from Suppliers where supp_name='" + ComboBox1.Text + "'", cn)
        da.Fill(ds, "Suppliers")
        DataGridView1.DataSource = ds.Tables("Suppliers")
        cn.Close()

        da.Dispose()
        ds.Dispose()
    End Sub

    Private Sub srhSupp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cn.Open() 
        da = New SqlDataAdapter("SELECT * from Suppliers", cn)
        da.Fill(ds, "Suppliers")
        MyBinding = New BindingSource(ds, "Suppliers")
        ComboBox1.DataBindings.Add(New Binding("text", MyBinding, "supp_name"))
        ComboBox1.DataSource = ds.Tables("Suppliers")
        ComboBox1.DisplayMember = "Supp_name"
        cn.Close()

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        ComboBox1.DataSource = ds.Tables("Suppliers")

        ComboBox1.DisplayMember = "Supp_name"
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'بحث جديد
        ComboBox1.Text = ""
        DataGridView1.DataMember = ""
    End Sub

الله يجزاك الجنه

تم تعديل هذه المشاركة بواسطة iman.i في 3 يونيو 2011 في 02:15

#63 يونيو 2011 في 03:11

السلام عليكم ورحمه الله وبركاته

اختي اولا ارى انك لم تغيري اسم الجدول, ثانيا الغي كود الحدث SelectedIndexChange

.:: Wish to become better and better ::.

#73 يونيو 2011 في 10:29

السلام عليكم..

عوا ...

اولا الجدول الصحيح هوsuppliers >>>وقد تم التعديل ..

ثانيا...حذفت الحدث المذكور ولازالت المشكله موجوده...

جزاكم الله خيرا..

#83 يونيو 2011 في 12:54

السلام عليكم ورحمه الله وبركاته

اختي اقصد الجدول في العبارة التالية

da.Fill(ds, "Suppliers")

قومي بتغييره الى Supplier او اي اسم اخر في حدث النقر على الزر

.:: Wish to become better and better ::.

#93 يونيو 2011 في 14:56

السلام عليكم...

يااخي الجدول هو اسمه suppliers بوجود s ليش اغيره واخليه بدون s.....؟

الخطأ ليس هنا ....الخطأ لى مااعتقد في جملة البحث...لانه لا تظهر نتيجت البحث عند الضغط عليه...

وجزاك الله خيرا...

#103 يونيو 2011 في 16:28

السلاح عليكم ورحمه الله وبركاته

اختي هذا مجرد اسم جدول في ال DataSet .. يرجى ارفاق المشروع للتعديل

.:: Wish to become better and better ::.

#113 يونيو 2011 في 22:25

السلام عليكم ...

تم ارفاق البرنامج للتعديل عليه ...

جزاك الله خيرا

#123 يونيو 2011 في 22:49

السلام عليكم ورحمه الله وبركاته

اختي اين المرفق؟!!

.:: Wish to become better and better ::.

#137 يونيو 2011 في 15:28

السلام عليكم...

اخوي وش صار معك؟؟؟

وين التعديل؟؟؟

هذا الكود يللي عندي كامل...وانا كنت رسلته البرنامج عالخاص...

ارجو الاسراااع بالرد؟...

جزاااااااك الله كل خير

searsh.rar

#147 يونيو 2011 في 16:34

السلام عليكم ورحمه الله وبركاته

اختي جربي الكود التالي

da = New SqlDataAdapter("SELECT * from Suppliers where supp_name='" + ComboBox1.Text + "'", cn)
da.Fill(ds, "SupplierByName")
DataGridView1.DataSource = ds.Tables("SupplierByName")
End Sub

Private Sub srhSupp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
da = New SqlDataAdapter("SELECT * from Suppliers", cn)
da.Fill(ds, "Suppliers")
MyBinding = New BindingSource(ds, "Suppliers")
ComboBox1.DataBindings.Add(New Binding("text", MyBinding, "supp_name"))
ComboBox1.DataSource = ds.Tables("Suppliers")
ComboBox1.DisplayMember = "Supp_name"
End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

.:: Wish to become better and better ::.

#157 يونيو 2011 في 18:15

السلام عليكم..

عذرااااااااا...المشكله ماااازالت موجوده ..

لاادري مالحل...

جزاك الله خيرا

#167 يونيو 2011 في 23:09

السلام عليكم ورحمه الله وبركاته

اختي يرجى رفع الفورم بتاعك وقاعدة البيانات ..

.:: Wish to become better and better ::.

#179 يونيو 2011 في 18:04

السلام عليكم..

الحمد لله لقد تم حل المشكله...

وهذا هو الكود النهائي....

Imports System.Data.SqlClient
Public Class frm_srhSupp
     Dim MyCommand
    Dim MyBinding As BindingSource
    Dim ds As New DataSet
    Dim da As SqlDataAdapter
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ''زر البحث
        Try
            ds.Tables("Supp").Clear()
        Catch ex As Exception
        End Try
        If ComboBox1.Text = "" Then Return
        cn.Open()
        MyCommand = New SqlCommand("SELECT * from Suppliers where supp_name='" & ComboBox1.Text & "'", cn)
        da = New SqlDataAdapter(MyCommand)
        da.Fill(ds, "Supp")
        DataGridView1.ReadOnly = True
        DataGridView1.DataSource = ds.Tables("Supp")
        cn.Close()
        da.Dispose()
        ds.Dispose()
    End Sub

    Private Sub srhSupp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'لتحويل الكتابةالى اللغه العربيه
        InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages(1)
        cn.Open()
        da = New SqlDataAdapter("SELECT * from Suppliers", cn)
        da.Fill(ds, "Suppliers")
        MyBinding = New BindingSource(ds, "Suppliers")
        ComboBox1.DataSource = ds.Tables("Suppliers")
        ComboBox1.DisplayMember = "Supp_name"
        ComboBox1.ValueMember = "supp_id"
        cn.Close()

    End Sub
    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'بحث جديد
        ComboBox1.Text = ""
        DataGridView1.DataMember = ""

الله يجزيك الجنه...أ/vbhelber

المرفقات

#189 يونيو 2011 في 18:17

السلام عليكم ورحمه الله وبركاته

لاشكر على واجب اختي .. بالتوفيق ..

.:: Wish to become better and better ::.

مواضيع مشابهة

[مخالف - لم يستخدم البحث :]كيف يتم تغيير الشاشة الرمادية فى اكسس1 رد · 6 يونيو 2011
[مخالف - لم يستخدم البحث :]طباعة جزء من شاشة البرنامج1 رد · 28 سبتمبر 2008
طريقة عمل شاشة بحث مثل هذا التصميم18 رد · 16 أكتوبر 2011
ازالة نافذة البحث من الشاشة1 رد · 11 أغسطس 2014
كيف اجعل البحث برقم حساب العميل في شاشة الاستعلام دقيق ؟؟9 رد · 10 ديسمبر 2011
استخدام شاشة البحث فى اكثر من نموذج5 رد · 10 يونيو 2012