+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : محتاج كود خاص ببرنامج المخازن (/showthread.php?tid=25053)
الصفحات:
1
2
RE: محتاج كود خاص ببرنامج المخازن - hatem555 - 23-05-18
(23-05-18, 10:57 PM)elgokr كتب :(23-05-18, 09:59 PM)hatem555 كتب : انا فعلا حاولت اطبق الرد السابق ولكن دون جدوي
وهحاول ابحث عن شرح للكود عشان افهمه
وشكرا للاهتمام
ما الذى توقف معك او ما يظهر معك بعد تطبيق الكود
ارفق المشروع بعد تطبيق الشرح
حتى يتم توضيح اين الخطاء
تحياتى لك
PHP كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Conn.State = ConnectionState.Open Then Conn.Close()
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter("SELECT * FROM items INNER join items ON (items.quant = items.lowitems)", Conn)
Dim dataTable As New DataTable
DataAdapter1.Fill(dataTable)
' Conn.Close()
DataGridView2.DataSource = dataTable
Conn.Close()
End Sub
صورة الخطا في المرفقات
RE: محتاج كود خاص ببرنامج المخازن - محمد كريّم - 24-05-18
يا أخي كيف تعمل join لجدول مع نفسه؟
جرب هذا الاستعلام
كود :
select * from items where quantity =< lowitemsRE: محتاج كود خاص ببرنامج المخازن - hatem555 - 24-05-18
تم التعديل
PHP كود :
If Conn.State = ConnectionState.Open Then Conn.Close()
Conn.Open()
Dim DataSet2 As New DataSet
Dim DataAdapter2 As New OleDbDataAdapter("SELECT * FROM items where quant < lowitems", Conn)
DataAdapter2.Fill(DataSet2, "items")
DataGridView2.DataSource = DataSet2
DataGridView2.DataMember = "items"
Conn.Close()
RE: محتاج كود خاص ببرنامج المخازن - elgokr - 24-05-18
صورة الخطاء لمرفقة بسبب كود الاستعلام
ثانياً لم تقم انت بعمل وتطبيق الاكواد الذى قمت بشرحه من قبل
اين جدول الحد الادنى للاصناف
اين كود الاستعلام اللى قمت بوضعه لك لكي يظهر الناتج النهائي كما ترد
طبق ما تم شرحه من قبل لتجد الحل المطلوب
تحياتى لك