[ENG.MPROG]

بسم الله الرحمن الرحيم

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

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

[Sajad]

[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]

اشكرك شكرا جزيلا وبارك الله فيك وسدد خطاك

[Sajad]

[COLOR="#800000"]

ENG.MPROG كتب :اشكرك شكرا جزيلا وبارك الله فيك وسدد خطاك

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

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

[ENG.MPROG]

بسم الله الرحمن الرحيم

اخي 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]

[COLOR="#800000"][b][COLOR="#800000"]السلام عليكم

عرف الmytable هكذا:

PHP كود :

Dim mytable As New DataTable() 


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

PHP كود :

mytable= DataSet1.Tables("users") 


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

[ENG.MPROG]

بسم الله الرحمن الرحيم

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

[Sajad]

[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 


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