منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - من يقدر يعمل لي استعلام يحقق طلبي ؟

مرحبا شباب ....

أريد استعلام SQL يكون من جدولين

الجدول الأول وهو الأساسي وفيه أسماء الأشخاص غير مكررين ، واسم الجدول Tab1

الجدول الثاني وهو الفرعي وفيه أسماء الأشخاص مكررين ، ولكن التكرار يكون بتواريخ مختلفة ، واسم الجدول Tab2

المطلوب :
معرفة أسماء الأشخاص الذين لم يتم تسجيلهم في القائمة الثانية Tab2 بتاريخ محدد وهو موجود في أداة Textbox1.text
سيقوم الاستعلام بجلب الأسماء الذين ليس لهم التاريخ المحدد من خلال القائمة الأولى Tab1

في المثال السابق : سنفترض أننا كتبنا في أداة Textbox1.text تاريخ 06/11/2023
إذن يجب أن يرجع لنا الاستعلام الأسماء الناقصة التالية :
Salim و Nasir وسيقوم الاستعلام بجلبهما من القائمة الأولى طبعا .

أرجو أن يكون شرحي للمطلوب واضحا .

وشكرا لكم .

(09-11-23, 01:47 AM)أبو خالد الشكري كتب : [ -> ]مرحبا شباب ....

أريد استعلام SQL يكون من جدولين

الجدول الأول وهو الأساسي وفيه أسماء الأشخاص غير مكررين ، واسم الجدول Tab1

الجدول الثاني وهو الفرعي وفيه أسماء الأشخاص مكررين ، ولكن التكرار يكون بتواريخ مختلفة ، واسم الجدول Tab2

المطلوب :
معرفة أسماء الأشخاص الذين لم يتم تسجيلهم في القائمة الثانية Tab2 بتاريخ محدد وهو موجود في أداة Textbox1.text
سيقوم الاستعلام بجلب الأسماء الذين ليس لهم التاريخ المحدد من خلال القائمة الأولى Tab1

في المثال السابق : سنفترض أننا كتبنا في أداة Textbox1.text تاريخ 06/11/2023
إذن يجب أن يرجع لنا الاستعلام الأسماء الناقصة التالية :
Salim و Nasir وسيقوم الاستعلام بجلبهما من القائمة الأولى طبعا .

أرجو أن يكون شرحي للمطلوب واضحا .

وشكرا لكم .

كود :

select Tab1.Name1 from Tab1 where Tab1.Name1 not in (select Tab2.Name2 from Tab2 where Tab2.Date2=#06/11/2023#)

جزاك الله خيرا أخي العزيز الغالي أشرف
حقيقة ما قصرت .
جعله الله في ميزان حستاتك

للأسف بعد التجربة ظهرت النتيجة خاطئة !

المفروض يظهر في الجدول فقط Salim و Nasir

البرنامج مرفق !

أرجو تصحيح جملة الاستعلام .

وشكرا لكم .

(09-11-23, 12:41 PM)أبو خالد الشكري كتب : [ -> ]للأسف بعد التجربة ظهرت النتيجة خاطئة !

المفروض يظهر في الجدول فقط Salim و Nasir

البرنامج مرفق !

أرجو تصحيح جملة الاستعلام .

وشكرا لكم .

اعمل تبديل بين الشهر واليوم
11-06-2023

عشان متتلخبطش استعمل DateTimePicker

وده كود مختصر

كود :

Dim Con As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DB2tbale.accdb;User ID=Admin;jet oledb:database password=;")

Dim cmd As New OleDbCommand("select Tab1.Name1 as [الاسم] from Tab1 where Tab1.Name1 not in (select Tab2.Name2 from Tab2 where Tab2.Date2=@d)", Con)

cmd.Parameters.Add("@d", OleDbType.Date).Value = CDate(TextBox1.Text)

Dim dt As New DataTable

Dim da As New OleDbDataAdapter(cmd)

da.Fill(dt)

Me.DataGridView1.DataSource = dt

(09-11-23, 01:52 PM)Ashraf10 كتب : [ -> ]اعمل تبديل بين الشهر واليوم
11-06-2023

عشان متتلخبطش استعمل DateTimePicker

وده كود مختصر

كود :

Dim Con As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DB2tbale.accdb;User ID=Admin;jet oledb:database password=;") Dim cmd As New OleDbCommand("select Tab1.Name1 as [الاسم] from Tab1 where Tab1.Name1 not in (select Tab2.Name2 from Tab2 where Tab2.Date2=@d)", Con) cmd.Parameters.Add("@d", OleDbType.Date).Value = CDate(TextBox1.Text) Dim dt As New DataTable Dim da As New OleDbDataAdapter(cmd) da.Fill(dt) Me.DataGridView1.DataSource = dt

شكرًا جزيلا لك أخي Ashraf10

الآن النتيجة مضبوطة 100%