تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لو سمحتم اخوانى فى المنتدى الكريم اريد كود بحث
#1
السلام عليكم احبتى واساتذتى
معى استعلام به عده حقول للشركه ما ماخوئ من 5 جداول
اريد ان ابحث عن كل ما يخص حقل معين بتكست بوكس واحد فهل ممكن
للتوضيح اكتر
فى الاستعلام يوجد عهد باسم الشركه وايضا يوجد تخليص بوالص باسم الشركه وايضا يوجد مصروفات باسم الشركه فكل من العهد والبوالص والمصروفات لها اسم شركه خاص بها كى يتضح فى التقرير 
فهل من الممكن البحث باسم الشركه بتكست بوكس واحد يعضينى كل ما لديها من عهد وبوالص ومصروفات
لكم منى جزيل الشكر والاحترام
الرد
تم الشكر بواسطة:
#2
بعد عمل الاستعلام داخل قاعدة البيانات و حفظه كل ما عليك هو عمل البحث حسب اسم العامود في الاستعلام مثال :

PHP كود :
Dim QStr As String "Select * From [إستعلام1] Where [اسم العامود]='" TextBox1.Text "'" 
الرد
#3
(06-11-19, 11:01 AM)asemshahen5 كتب : بعد عمل الاستعلام داخل قاعدة البيانات و حفظه كل ما عليك هو عمل البحث حسب اسم العامود في الاستعلام مثال :

(06-11-19, 11:01 AM)asemshahen5 كتب : بعد عمل الاستعلام داخل قاعدة البيانات و حفظه كل ما عليك هو عمل البحث حسب اسم العامود في الاستعلام مثال :

PHP كود :
Dim QStr As String "Select * From [إستعلام1] Where [اسم العامود]='" TextBox1.Text "'" 
بارك الله فيك اخى الكريم ولكن لو كنت ابحث عن عده عواميد لتكست بوكس واحد استعمل AND وكيف سيكون الكود
الرد
تم الشكر بواسطة:
#4
كم أوضح لك الأستاذ asemshahen5 في مشاركته

لا أدري إن كان هذا هو المقصود

كود :
Dim QStr As String = "Select * From [إستعلام1] Where [1اسم العامود]='" & TextBox1.Text & "' And [2اسم العامود]='" & TextBox1.Text & "'"





تمنياتي لك وللجميع التوفيق
الرد
تم الشكر بواسطة: خالد كامل1 , asemshahen5 , asemshahen5
#5
هل هناك خطأ فى كود البحث هذا لا يخرج لى نتائج عن البحث
كود :
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
       Dim DT As New DataTable
       Dim DA As New OleDbDataAdapter
       DA = New OleDbDataAdapter("SELECT * FROM  OMAR WHERE ohda_combany LIKE '%" & TextBox1.Text & "%'  AND  bolesa.company_name LIKE '%" & TextBox1.Text & "%'  AND TASFEA_OHAD.company_name LIKE '%" & TextBox1.Text & "%'  AND TASFEA_HORA.company_namE LIKE '%" & TextBox1.Text & "%'  ", con)
       DA.Fill(DT)
       DataGridView1.DataSource = DT
   End Sub
الرد
تم الشكر بواسطة:
#6
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
       Dim DT As New DataTable
       Dim DA As New OleDbDataAdapter
       DA = New OleDbDataAdapter("SELECT * FROM  OMAR WHERE ohda_combany LIKE '%" & TextBox1.Text & "%'  AND  bolesa.company_name LIKE '%" & TextBox1.Text & "%'  AND TASFEA_OHAD.company_name LIKE '%" & TextBox1.Text & "%'  AND TASFEA_HORA.company_namE LIKE '%" & TextBox1.Text & "%'  ", con)
       DA.Fill(DT)
       DataGridView1.DataSource = DT

End Sub 
الجداول bolesa - TASFEA_HORA TASFEA_OHAD  لم تقم بادراجها بعد كلمة from

كود :
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim DT As New DataTable
     Dim DA As New OleDbDataAdapter
       DA = New OleDbDataAdapter("SELECT * FROM  OMAR,bolesa,TASFEA_HORA,TASFEA_HORA WHERE ohda_combany LIKE '%" & TextBox1.Text & "%'  AND  bolesa.company_name LIKE '%" & TextBox1.Text & "%'  AND TASFEA_OHAD.company_name LIKE '%" & TextBox1.Text & "%'  AND TASFEA_HORA.company_namE LIKE '%" & TextBox1.Text & "%'  ", con)
DA.Fill(DT)
DataGridView1.DataSource = DT

End Sub
   



تمنياتي لك وللجميع التوفيق
الرد
#7
اسم الجدول الخاص بالعامود ohda_combany لم يكتب قبل اسم العامود في الاستعلام اي مثلا في حال كان هذا TASFEA_OHAD اسم الجدول الموجود فيه العامود و الله اعلم ohda_combany.TASFEA_OHAD
الرد
تم الشكر بواسطة: baha , baha


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كود البحث او الفلتره عن شئ في الداتا جريد فيو ؟ amrmosa673@gmail.com 1 62 , 02:45 AM
آخر رد: اسامه الهرماوي
  اريد لعبة الأوراق أمجد وضاح 1 59 29-11-19, 04:51 PM
آخر رد: asemshahen5
  [سؤال] اريد حل لاستيراد البيانات من الاكسل m.n.hakami 5 126 26-11-19, 09:37 PM
آخر رد: m.n.hakami
Exclamation [VB.NET] اريد كود يقوم بنسخ اي نص موجود في الموقع التي يتم عرضة في الويب بروزر > التفاصيل داخل SnTnt 2 121 15-11-19, 06:33 PM
آخر رد: SnTnt
  [سؤال] اريد المساعده بخصوص التعرف علي اللغه العربيه في صفحه HTML اليوم السابع 2 105 08-11-19, 03:20 AM
آخر رد: اليوم السابع
  اريد التعديل البسيط علي مشروعي اليوم السابع 8 222 07-11-19, 12:07 PM
آخر رد: اليوم السابع
  اخوانى رجاء من فضلكم ان تنظروا الى هذا الاستعلام خالد كامل1 5 175 05-11-19, 09:00 PM
آخر رد: خالد كامل1
  [VB.NET] لو سمحتوا اريد عمل برنامج يرسل رسائل علي لينك للفيس بوك Waelstar011 1 160 05-11-19, 03:04 PM
آخر رد: Waelstar011
  اريد سورس كود مثل شاشة الأصناف بالصور new_programer 1 150 01-11-19, 05:08 AM
آخر رد: Rabeea Qbaha
  لو سمحتم اخوانى لماذا هذا الخطأ ظهر خالد كامل1 1 102 31-10-19, 10:53 PM
آخر رد: أمجد وضاح

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


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