[Mido9]

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

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

الكود يعمل بنجاح الحمد لله و جربت البحث و عرض نتائج البحث فى التيكست بوكس و الكومبو بوكس و كل شئ تماااام الحمد لله

و لكن المشكلة انه الان لو انا بحثت عن كلمه ahmed و ظهرت لي النتائج و اردت ان ابحث عن mido-9 لن تظهر نتائج mido-9

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

و هذا هو كود زر البحث كاملاً ....

PHP كود :

Try
            Dim saveinto As New OleDb.OleDbCommand
            Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
            Dim conn As New OleDb.OleDbConnection(constr)
            Dim DataSet1 As New DataSet
            Dim SQLstr As String
            SQLstr = "SELECT * From factor Where factor_name=('" & TextBox10.Text & "')"
            conn.Open()
            Dim dataadapter1 As New OleDb.OleDbDataAdapter(SQLstr, conn)
            dataadapter1.Fill(DataSet1, "factor")
            If Me.BindingContext(DataSet1, "factor").Count = 0 Then
                MsgBox("No Result ! .")
                conn.Close()
            Else
                TextBox1.DataBindings.Add("text", DataSet1, "factor.factor_num")
                TextBox2.DataBindings.Add("text", DataSet1, "factor.factor_name")
                TextBox3.DataBindings.Add("text", DataSet1, "factor.factor_job")
                ComboBox1.DataBindings.Add("text", DataSet1, "factor.factor_member")
                ComboBox2.DataBindings.Add("text", DataSet1, "factor.factor_sector")
                ComboBox3.DataBindings.Add("text", DataSet1, "factor.factor_management")
                ComboBox4.DataBindings.Add("text", DataSet1, "factor.factor_mgal")
                ComboBox5.DataBindings.Add("text", DataSet1, "factor.factor_fe2a")

                TextBox4.DataBindings.Add("text", DataSet1, "factor.factor_daora_name")
                TextBox6.DataBindings.Add("text", DataSet1, "factor.factor_daora_taklefa")
                TextBox5.DataBindings.Add("text", DataSet1, "factor.factor_daora_moda")
                ComboBox6.DataBindings.Add("text", DataSet1, "factor.factor_daora_no3")
                ComboBox7.DataBindings.Add("text", DataSet1, "factor.factor_daora_mkan1")
                ComboBox8.DataBindings.Add("text", DataSet1, "factor.factor_daora_mkan2")

                ComboBox9.DataBindings.Add("text", DataSet1, "factor.factor_derasat_no3")
                TextBox7.DataBindings.Add("text", DataSet1, "factor.factor_derasat_wasf")
                TextBox8.DataBindings.Add("text", DataSet1, "factor.factor_derasat_kolea")
                TextBox9.DataBindings.Add("text", DataSet1, "factor.factor_derasat_gam3a")

                Me.TextBox1.Enabled = True
                Me.TextBox2.Enabled = True
                Me.TextBox3.Enabled = True
                Me.TextBox4.Enabled = True
                Me.TextBox5.Enabled = True
                Me.TextBox6.Enabled = True
                Me.TextBox7.Enabled = True
                Me.TextBox8.Enabled = True
                Me.TextBox9.Enabled = True

                Me.ComboBox1.Enabled = True
                Me.ComboBox2.Enabled = True
                Me.ComboBox3.Enabled = True
                Me.ComboBox4.Enabled = True
                Me.ComboBox5.Enabled = True
                Me.ComboBox6.Enabled = True
                Me.ComboBox7.Enabled = True
                Me.ComboBox8.Enabled = True
                Me.ComboBox9.Enabled = True

                Me.Button1.Enabled = True
            End If
        Catch ex As Exception

        End Try 


[Sajad]

السلام عليكم

انظر هذا الموضوع http://vb4arb.com/vb/showthread.php?1436...7%E4%C7%CA

[Mido9]

sajad كتب :السلام عليكم

انظر هذا الموضوع http://vb4arb.com/vb/showthread.php?1436...7%E4%C7%CA

جزاك الله خيراً اخي الفاضل على المساعده ولكن للاسف لا يعمل لدي لاني استخدم الـ 2005

[Sajad]

السلام عليكم

تفضل

PHP كود :

//Searching using DataRow
                row = (DataRow)mytable.Select("owner like'%" + textBox2.Text+"%'").GetValue(0);
                textBox3.Text = row["owner"].ToString();
                textBox4.Text = row["adress"].ToString();
                textBox5.Text = row["tel"].ToString();
                textBox6.Text = row["c_code"].ToString();
                textBox7.Text = row["c_name"].ToString();
                textBox8.Text = row["c_model"].ToString(); 


طبعا هذا كمثال لا حصرا

[Mido9]

ربنا يعافيك من كل شر يااارب و لكن للاسف ؟ لم اعرف اين اكتب الاكواد ؟

للاسف لم اتمكن من فهم الكود جيدا

انا بجد اسف اني بتعبك

[Sajad]

اخي العزيز هذا الكود بالسي شارب فقط امسح الفصلة المنقوطة من نهاية كل سطر اذا كنت تستخدم VB.Net

اكتبه في زر البحث فقط هذا الكود طبعا بعد اجراء الاتصال وملىء الDataset

[Mido9]

sajad كتب :اخي العزيز هذا الكود بالسي شارب فقط امسح الفصلة المنقوطة من نهاية كل سطر اذا كنت تستخدم VB.Net

اكتبه في زر البحث فقط هذا الكود طبعا بعد اجراء الاتصال وملىء الDataset

ولكن الن اقوم بتعريف اي متغيرات او اي شئ ؟ لاني عند إضافته هكذا تظهر لي الاخطاء ؟!

[Sajad]

قم بتعريف DataRow و DataTable باسم row و mytable

[Mido9]

للأسف لما جيت اعرف المتغير row ظهرلي الخطأ ده
Error 1 'System.Data.DataRow.Protected Sub New(builder As System.Data.DataRowBuilder)' is not accessible in this context because it is 'Protected'. D:\Documents and Settings\Ahmed\My Documents\Visual Studio 2005\Projects\Yarb\Yarb\SearchFactor.vb 113 17 Yarb



انا كتبت المتغير هكذا Dim row As New DataRow

اما متغير الـ mytable تم تعريفه بلا اي مشكلة الحمد لله

[Sajad]

السلام عليكم

لا تقم بكتابة الNew وجرب ان شاءالله تنحل