[أبو خالد الشكري]

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

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

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


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


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

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

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

وشكرا لكم .

[Ashraf10]

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

أريد استعلام 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

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

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

وشكرا لكم .

[Ashraf10]

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



المفروض يظهر في الجدول فقط 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

[أبو خالد الشكري]

اعمل تبديل بين الشهر واليوم
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%