منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم أسئلة واستفسارات الأعضاء - المنتدى القديم > مايكرسوفت أكسيس Microsoft Access > مشكلة فى كود البحث
نسخة كاملة : مشكلة فى كود البحث
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

Mido9

05-12-12, 09:55 PM
السلام عليكم ورحمة الله وبركاتة

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

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

و لكن المشكلة انه الان لو انا بحثت عن كلمه 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

05-12-12, 10:25 PM
السلام عليكم

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

Mido9

05-12-12, 10:33 PM
sajad كتب :السلام عليكم

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

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

Sajad

05-12-12, 10:45 PM
السلام عليكم

تفضل

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

05-12-12, 10:48 PM
ربنا يعافيك من كل شر يااارب و لكن للاسف ؟ لم اعرف اين اكتب الاكواد ؟

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

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

Sajad

05-12-12, 10:53 PM
اخي العزيز هذا الكود بالسي شارب فقط امسح الفصلة المنقوطة من نهاية كل سطر اذا كنت تستخدم VB.Net

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

Mido9

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

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



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

Sajad

06-12-12, 12:43 AM
قم بتعريف DataRow و DataTable باسم row و mytable

Mido9

06-12-12, 01:08 AM
للأسف لما جيت اعرف المتغير 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

06-12-12, 10:39 AM
السلام عليكم

لا تقم بكتابة الNew وجرب ان شاءالله تنحل
الصفحات : 1 2
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم أسئلة واستفسارات الأعضاء - المنتدى القديم > مايكرسوفت أكسيس Microsoft Access > مشكلة فى كود البحث