تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البحث داخل قواعد البيانات MS Access
#1
بسم الله الرحمن الرحيم

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

ولكم جزيل الشكر ،،،
الرد }}}}
تم الشكر بواسطة:
#2
[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]
الرد }}}}
تم الشكر بواسطة:
#3
اشكرك شكرا جزيلا وبارك الله فيك وسدد خطاكSmile
الرد }}}}
تم الشكر بواسطة:
#4
[COLOR="#800000"]
ENG.MPROG كتب :اشكرك شكرا جزيلا وبارك الله فيك وسدد خطاكSmile

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

اتمنى لك التوفيق ان شاءالله
[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#5
بسم الله الرحمن الرحيم

اخي 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()

اعتذر على ازعاجك
بارك الله فيك ولك
الرد }}}}
تم الشكر بواسطة:
#6
[COLOR="#800000"][b][COLOR="#800000"]السلام عليكم

عرف الmytable هكذا:

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

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

PHP كود :
mytableDataSet1.Tables("users"

جرب مرة اخرى واذكر ماهي رسالة الخطأ؟
[/COLOR]
[/COLOR][/b]
الرد }}}}
تم الشكر بواسطة:
#7
بسم الله الرحمن الرحيم

اشكرك اخي sajad على تفاعلك معي واسف على ازعاجك واعتذر عن تأخري في الرد ولكن الكود مازال لا يعمل
اذا ممكن تفيض عليّ من علم الله الذي اعطاك وتخبرني عن الآلية نفسها من بدايتها او ترفق مثال جاهز اكون شاكر اثابك الله
واعتذر مره اخرى عدم فهمي وقلة خبرتي ..
الرد }}}}
تم الشكر بواسطة:
#8
[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]
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ظهور خطا عند سحب البيانات وعرضها في الداتا كريد باستخدم الـــ Threading HATEM KAREM 0 82 06-05-17, 04:45 PM
آخر رد: HATEM KAREM
  استفسار حول عدم تكرار البيانات المتألق9 3 145 02-04-17, 03:38 AM
آخر رد: حريف برمجة
  جلب البيانات من ملف txt djelloul 7 180 28-03-17, 03:20 PM
آخر رد: djelloul
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 150 10-03-17, 09:36 AM
آخر رد: عبد الله
  سرعة ادخال البيانات داخل ملف اكسس atefkhalf2004 1 163 05-03-17, 04:06 AM
آخر رد: thevirus
  استعادة قاعدة البيانات من ملف النسخة الإحتياطية djelloul 2 164 28-02-17, 03:27 PM
آخر رد: djelloul
  كيفية الاتصال بقاعدة بيانات Access على الشبكة المحلية warda saeed 9 9,221 28-02-17, 10:21 AM
آخر رد: وائل القطاوي
  عدد السجلات داخل ملف اكسس atefkhalf2004 7 256 18-02-17, 06:29 PM
آخر رد: atefkhalf2004
  فتح قاعدة البيانات محفوظة ب باسس ورد في جملة الاتصال ahmed_elwerfalli 2 153 13-02-17, 05:27 PM
آخر رد: ahmed_elwerfalli
  الانتقال إلى السجل الثاني في قاعدة البيانات و إظهار الصورة التالية على picturebox ahmed_elwerfalli 6 478 24-12-16, 11:07 PM
آخر رد: ahmed_elwerfalli

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم