السلام عليكم احبتى واساتذتى
معى استعلام به عده حقول للشركه ما ماخوئ من 5 جداول
اريد ان ابحث عن كل ما يخص حقل معين بتكست بوكس واحد فهل ممكن
للتوضيح اكتر
فى الاستعلام يوجد عهد باسم الشركه وايضا يوجد تخليص بوالص باسم الشركه وايضا يوجد مصروفات باسم الشركه فكل من العهد والبوالص والمصروفات لها اسم شركه خاص بها كى يتضح فى التقرير
فهل من الممكن البحث باسم الشركه بتكست بوكس واحد يعضينى كل ما لديها من عهد وبوالص ومصروفات
لكم منى جزيل الشكر والاحترام
بعد عمل الاستعلام داخل قاعدة البيانات و حفظه كل ما عليك هو عمل البحث حسب اسم العامود في الاستعلام مثال :
PHP كود :
Dim QStr As String = "Select * From [إستعلام1] Where [اسم العامود]='" & TextBox1.Text & "'"
(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 وكيف سيكون الكود
كم أوضح لك الأستاذ
asemshahen5 في مشاركته
لا أدري إن كان هذا هو المقصود
كود :
Dim QStr As String = "Select * From [إستعلام1] Where [1اسم العامود]='" & TextBox1.Text & "' And [2اسم العامود]='" & TextBox1.Text & "'"
تمنياتي لك وللجميع التوفيق
هل هناك خطأ فى كود البحث هذا لا يخرج لى نتائج عن البحث
كود :
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
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
تمنياتي لك وللجميع التوفيق
اسم الجدول الخاص بالعامود ohda_combany لم يكتب قبل اسم العامود في الاستعلام اي مثلا في حال كان هذا TASFEA_OHAD اسم الجدول الموجود فيه العامود و الله اعلم ohda_combany.TASFEA_OHAD