الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

البحث فى جدول مستنتج من علاقة Many to Many

مغلق
بدأه كفاح في 27 أكتوبر 2006 · 1 رد · 1,097 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اخوانى الاعزاء

أقوم حاليا بتطوير برنامج خاص بالمخازن وواجهتنى هذه المشكلة وهى البحث فى الجدول الثالث الناتج من علاقة Many to Many يظهر لي خطا لا اعلم ما السبب فية سوف اعرض ما فعلتة فى هذا البحث يمكن ان اجد حلا ؟ *-)

قاعدة البيانات مكونة من ثلاثة جدول :

1- جدول المنتجات 2- جدول المخازن 3- جدول المنتجات المخزونة ( هذا الجدول الناتج من علاقة Many to Many)

أحتاج ان اقوم بعملية بحث عن المنتجات الموجودة فى المخازن عن طريق رقم المنتج وتكون نتيجة البحث

(رقم المنتج - أسم المنتج - أسم المخزن - الكمية الموجودة - حد الطلب المخزني)

وقمت بكتابة الاستعلام بهذا لكن هناك مشكلة لا اعرف ما هي ؟

هناك منتجات تحت ارقام يمكن البحث بها كأمثلة ( 1 , 2 , 3 )

زر البحث

  Dim ConditionCriteria As Boolean = True
		DataSet11.Clear()
		If TextBox1.Text <> "" Then
			OleDbDataAdapter1.SelectCommand.CommandText = _
			"SELECT ProductsInStorge.Pro_num, ProductsInStorge.Quantity, ProductsInStorge.RecordLevelStorge, ProductsInStorge.Stor_Num FROM ((ProductsInStorge INNER JOIN Products ON ProductsInStorge.Pro_num = Products.Pro_num) INNER JOIN StorgeInformation ON ProductsInStorge.Stor_Num = StorgeInformation.Stor_Num) WHERE(Products.Pro_num = '" & TextBox1.Text & "')"
		Else
			MessageBox.Show("هذا الرقم غير موجود", "المخازن", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
			ConditionCriteria = False
			TextBox1.Focus()
		End If
		Try
			If ConditionCriteria = True Then
				OleDbDataAdapter1.Fill(DataSet11)
			End If
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try

		Try
			Me.DataGrid1.PreferredColumnWidth = Me.DataGrid1.ClientSize.Width / 7
			Me.DataGrid1.DataSource = DataSet11.Tables("ProductsInStorge")
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try

بدء البرنامج

	 OleDbConnection1.ConnectionString = ConString
		Try
			OleDbConnection1.Open()
			DataSet11.Clear()
			OleDbDataAdapter1.Fill(DataSet11)
			OleDbDataAdapter2.Fill(DataSet11)
			OleDbDataAdapter3.Fill(DataSet11)
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try

قمت بأضافة المثال

اتمنى من الله اولا ثم منكم المساعدة بأذن الله ,,,

WindowsApplication1.zip

تم تعديل هذه المشاركة بواسطة كفاح في 27 أكتوبر 2006 في 20:12

الفريق المصري للبرمجة

تحليل وتصميم برامج قواعد بيانات لاتصال بينا masry4u@hotmail.com

#2

erorr in sql string

"SELECT ProductsInStorge.Pro_num, ProductsInStorge.Quantity, ProductsInStorge.RecordLevelStorge, ProductsInStorge.Stor_Num FROM ((ProductsInStorge INNER JOIN Products ON ProductsInStorge.Pro_num = Products.Pro_num) INNER JOIN StorgeInformation ON ProductsInStorge.Stor_Num = StorgeInformation.Stor_Num) WHERE(Products.Pro_num = " & TextBox1.Text & ")"

هذا الموضوع مغلق.

مواضيع مشابهة