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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم أسئلة قواعد البيانات تحت بيئة الـ.NET > البحث داخل قواعد البيانات MS Access
نسخة كاملة : البحث داخل قواعد البيانات MS Access
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

ENG.MPROG

17-02-13, 02:31 PM
بسم الله الرحمن الرحيم

اساتذتي واخواني الفضلاء . قمت بعمل مشروع بالفيجوال بيسك دونت 2012 وقمت بربطه بقاعدة بيانات اكسيس . لكني توقفت امام مشكلة البحث ، فأنا اريد كود للبحث يقوم بعرض البيانات داخل صناديق النصوص textbox وليس فلترة datagridview لأني لا استخدام هذه الاداة .

ولكم جزيل الشكر ،،،

Sajad

17-02-13, 05:05 PM
[COLOR="#800000"]السلام عليكم

تفضل (مثال لا حصر)

PHP كود :
row = DirectCast(mytable.Select("oid=" & Integer.Parse(textBox1.Text)).GetValue(0), DataRow)
            textBox3.Text = row("owner").ToString()
            textBox4.Text = row("adress").ToString()
            textBox5.Text = row("tel").ToString() 

هذا لو فرضنا ان البحث عن طريق الرقم اما اذا اردت البحث عن طريق اي حقل اخر فقط غير الoid الى أي حقل تريد وتكتب كلمة البحث في الtextbox1

والrow متغير من الكائن DataRow والmytable متغير من الكائن DataTable

بالتوفيق ان شاءالله[/COLOR]

ENG.MPROG

17-02-13, 05:11 PM
اشكرك شكرا جزيلا وبارك الله فيك وسدد خطاكSmile

Sajad

17-02-13, 05:14 PM
[COLOR="#800000"]
ENG.MPROG كتب :اشكرك شكرا جزيلا وبارك الله فيك وسدد خطاكSmile

ولك بالمثل اخي العزيز

اتمنى لك التوفيق ان شاءالله
[/COLOR]

ENG.MPROG

17-02-13, 06:04 PM
بسم الله الرحمن الرحيم

اخي sajad الكود لا يعمل ويظهر رسالة خطأ
وهذا هو الكود المستخدم
كود :
Dim row As DataRow
        Dim mytable As DataTable = DataSet1.Tables("users")
        row = DirectCast(mytable.Select("ID=" & Integer.Parse(TextBox10.Text)).GetValue(0), DataRow)
        TextBox3.Text = row("Name").ToString()
        TextBox4.Text = row("Phone").ToString()
        TextBox5.Text = row("Adderss").ToString()

اعتذر على ازعاجك
بارك الله فيك ولك

Sajad

17-02-13, 07:43 PM
[COLOR="#800000"][b][COLOR="#800000"]السلام عليكم

عرف الmytable هكذا:

PHP كود :
Dim mytable As New DataTable() 

ومن ثم اسند الDataset1 اليه هكذا:

PHP كود :
mytable= DataSet1.Tables("users") 

جرب مرة اخرى واذكر ماهي رسالة الخطأ؟
[/COLOR][/COLOR][/b]

ENG.MPROG

18-02-13, 02:42 PM
بسم الله الرحمن الرحيم

اشكرك اخي sajad على تفاعلك معي واسف على ازعاجك واعتذر عن تأخري في الرد ولكن الكود مازال لا يعمل
اذا ممكن تفيض عليّ من علم الله الذي اعطاك وتخبرني عن الآلية نفسها من بدايتها او ترفق مثال جاهز اكون شاكر اثابك الله
واعتذر مره اخرى عدم فهمي وقلة خبرتي ..

Sajad

18-02-13, 07:09 PM
[COLOR="#800000"]السلام عليكم

في الخدمة ان شاءالله

اخي العزيز جرب هذا الكود واذا لم يفلح سارغع لك مثالا ان شاءالله

اولا عرف هذه الدالة:
PHP كود :
Private Sub Fill(pos As Integer)
            textBox3.Text = mytable.Rows(pos)("Name").ToString()
            textBox4.Text = mytable.Rows(pos)("Phone").ToString()
            textBox5.Text = mytable.Rows(pos)("Address").ToString()
        End Sub 

ومن ثم في زر البحث اكتب الكود التالي:
PHP كود :
If srchtxt.Text <> "" Then
                '''Searching using Table.Rows
                For i As Integer = 0 To mytable.Rows.Count - 1
                    If mytable.Rows(i)("ID").ToString() = srchtxt.Text Then
                        Fill(i)
                    End If
                Next
            Else
            End If 

بالتوفيق ان شاءاللهSmile[/COLOR]
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم أسئلة قواعد البيانات تحت بيئة الـ.NET > البحث داخل قواعد البيانات MS Access