أرجوا المساعدة في الحصول على الاستعلام المناسب

السلام عليكم

قم بعمل استعلام فى الاكسيسس لتسيهل المهمة :)

اليك كود مثال كنت قمت بكتابتة من فترة

	If IsNumeric(TextBox1.Text.Trim) = True And TextBox1.Text.Trim <> "" Then

			Try
				Dim adp As OleDbDataAdapter = New OleDbDataAdapter
				Dim cmdP As New OleDbCommand
				Dim dsP As New DataSet
				Dim dsS As New DataSet

				cmdP.CommandType = CommandType.Text
				cmdP.CommandText = "SELECT InvoicePID,DateOfInvoice,SupplierName,Quantity,Price FROM QuerySTATEMENT1 WHERE ProductID =" + TextBox1.Text.Trim + " ORDER BY DateOfInvoice,InvoicePID"

				TextBox1.Text & "%'"

				adp.SelectCommand = cmdP
				cmdP.Connection = CON
				dsS.Clear()
' QuerySTATEMENT1 هذا استعلام للفاتورة
				adp.Fill(dsS, "QuerySTATEMENT1")
				cmdP.CommandText = "SELECT ProductID,ProductName,Price,Quantity,ProductClass,ProductTypeName,SupplierName FROM Product WHERE ProductID =" + TextBox1.Text.Trim
				dsP.Clear()
				adp.Fill(dsP, "Product")

				If dsS.Tables("QuerySTATEMENT1").Rows.Count > 0 Then

					TextBox2.Text = dsP.Tables("Product").Rows(0).Item("ProductID")
					TextBox8.Text = dsP.Tables("Product").Rows(0).Item("Quantity")
					TextBox6.Text = dsP.Tables("Product").Rows(0).Item("ProductClass")
					TextBox7.Text = dsP.Tables("Product").Rows(0).Item("SupplierName")
					TextBox4.Text = dsP.Tables("Product").Rows(0).Item("ProductTypeName")
					TextBox3.Text = dsP.Tables("Product").Rows(0).Item("ProductName")
					TextBox5.Text = dsP.Tables("Product").Rows(0).Item("Price")

					Me.DataGrid1.DataSource = dsS.Tables(0)
				Else
					MessageBox.Show("لايوجد سلعة بهذا الرقم", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
					TextBox1.Focus()
				End If
			Catch
				'Display error message, if any
			   messagebox.show(ex.message)

			End Try

		Else
			MessageBox.Show("من فضلك ادخل رقم السلعة", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
		End If
		TextBox1.Text = ""
		TextBox1.Focus()

جرب هذا الكود

شكرا لك اخي على المحاولة , قرأت ردك ولكن ليس ما اريد ...

كل ما اريده هو استعلام SQL .. لاني اريد الاستعلام لاحد التقارير ... والتقارير لا تقبل الا الاستعلاماات...

كما هو موضح بالاعلى .. انا عملت الاستعلام ولكن هناك مشكلة بعدم ظهور جميع البنود , فقط التي لها عملية شراء او بيع ..

اوضح اكثر ..

في طريقتي السابقة .. نحتاج لاستعلامين q1 وq2

q1 به مجموع عمليات الشراء للبنود .. ولا تظهر به البنود التي ليس لها عملية شراء (راجع الجدول table2)

وكذلك

q2 به مجموع عمليات البيع للبنود .. ولا تظهر به البنود التي ليس لها عملية بيع (راجع الجدول table2)

اما الاستعلام الاخير يعمل علاقة بين q1 وq2 ويعمل عملية طرح بين مجموع الشراء ومجموع البيع لينتج لنا الكمية للبند ... ومن البديهي عدم ظهور اي بند لم يوجد في q1 (أو) q2 بسبب العلاقة ...

فهل توجد اي طريقة (كعمل علاقة اخرى او شروط او استعلامات اضافية ...الخ ) لاظهار جميع البنود ...

لان التي ليس لها اي عملية شراء لاتظهر في q1 .... والتي ليس لها اي عملية بيع لا تظهر في q2

اتمنى ان الفكرة والمشكلة وضحت

وجزاكم الله خير