السلام عليكم اخوانى الاعزاء
أقوم حاليا بتطوير برنامج خاص بالمخازن وواجهتنى هذه المشكلة وهى البحث فى الجدول الثالث الناتج من علاقة 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
قمت بأضافة المثال
اتمنى من الله اولا ثم منكم المساعدة بأذن الله ,,,