+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : البحث داخل قواعد البيانات MS Access (/showthread.php?tid=7663)
البحث داخل قواعد البيانات MS Access - ENG.MPROG - 17-02-13
بسم الله الرحمن الرحيم
اساتذتي واخواني الفضلاء . قمت بعمل مشروع بالفيجوال بيسك دونت 2012 وقمت بربطه بقاعدة بيانات اكسيس . لكني توقفت امام مشكلة البحث ، فأنا اريد كود للبحث يقوم بعرض البيانات داخل صناديق النصوص textbox وليس فلترة datagridview لأني لا استخدام هذه الاداة .
ولكم جزيل الشكر ،،،
البحث داخل قواعد البيانات MS Access - Sajad - 17-02-13
[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]
البحث داخل قواعد البيانات MS Access - ENG.MPROG - 17-02-13
اشكرك شكرا جزيلا وبارك الله فيك وسدد خطاك
البحث داخل قواعد البيانات MS Access - Sajad - 17-02-13
[COLOR="#800000"]
ENG.MPROG كتب :اشكرك شكرا جزيلا وبارك الله فيك وسدد خطاك
ولك بالمثل اخي العزيز
اتمنى لك التوفيق ان شاءالله
[/COLOR]
البحث داخل قواعد البيانات MS Access - ENG.MPROG - 17-02-13
بسم الله الرحمن الرحيم
اخي 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()اعتذر على ازعاجك
بارك الله فيك ولك
البحث داخل قواعد البيانات MS Access - Sajad - 17-02-13
[COLOR="#800000"][b][COLOR="#800000"]السلام عليكم
عرف الmytable هكذا:
PHP كود :
Dim mytable As New DataTable()
ومن ثم اسند الDataset1 اليه هكذا:
PHP كود :
mytable= DataSet1.Tables("users")
جرب مرة اخرى واذكر ماهي رسالة الخطأ؟
[/COLOR][/COLOR][/b]
البحث داخل قواعد البيانات MS Access - ENG.MPROG - 18-02-13
بسم الله الرحمن الرحيم
اشكرك اخي sajad على تفاعلك معي واسف على ازعاجك واعتذر عن تأخري في الرد ولكن الكود مازال لا يعمل
اذا ممكن تفيض عليّ من علم الله الذي اعطاك وتخبرني عن الآلية نفسها من بدايتها او ترفق مثال جاهز اكون شاكر اثابك الله
واعتذر مره اخرى عدم فهمي وقلة خبرتي ..
البحث داخل قواعد البيانات MS Access - Sajad - 18-02-13
[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]