+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب كود بحث في قاعدة البيانات access أرجوكم !! (/showthread.php?tid=13251)
طلب كود بحث في قاعدة البيانات access أرجوكم !! - فراس صلاح - 16-09-15
السلام عليكم أخوان الكرام في هذا المنتدى الرائع أخواني طلبي هذه المرة هو كود بحث في قاعدة بيانات لكن هناك شرطين يجب أن يتحققو ليتم عرض النتائج الأول موجود فيtextbox1.text إن تحقق الأول ينظر لل textbox2.text إن تحقق أيضا يعرض البيانات
وهذا كود أرجوال تعديل عليه لما يناسب
كود :
sqL = "SELECT IDescription, UnitPrice, SUM([Quantity]) as ItemQuantity, POSDate, (UnitPrice * SUM([Quantity])) As TotalAmount FROM Item as I, POS as P, POSDetail as PD WHERE I.ItemNo = PD.ItemNo AND PD.InvoiceNo=P.InvoiceNo AND StaffID =" & Format(TextBox1.Text) & " Group By IDescription, UnitPrice, [Quantity], POSDate ORder By IDescription"ختاماً شكراً جزيلاً لكم
RE: طلب كود بحث في قاعدة البيانات access أرجوكم !! - أبو عمر - 16-09-15
وعليكم السلام
اذا الكود السابق فيه البحث عن قيمة في
StaffID
بدلالة
textbox1
الشرط الثاني يكون البحث في اي حقل
بدلالة
textbox2
?
RE: طلب كود بحث في قاعدة البيانات access أرجوكم !! - فراس صلاح - 16-09-15
CustomerNo أخي وشكراً لك
RE: طلب كود بحث في قاعدة البيانات access أرجوكم !! - أبو عمر - 16-09-15
جرب
sqL = "SELECT IDescription, UnitPrice, SUM([Quantity]) as ItemQuantity, POSDate, (UnitPrice * SUM([Quantity])) As TotalAmount FROM Item as I, POS as P, POSDetail as PD WHERE I.ItemNo = PD.ItemNo AND PD.InvoiceNo=P.InvoiceNo AND StaffID =" & Format(TextBox1.Text) & "' and CustomerNo=" & textbox2.Text & " Group By IDescription, UnitPrice, [Quantity], POSDate ORder By IDescription"
RE: طلب كود بحث في قاعدة البيانات access أرجوكم !! - فراس صلاح - 16-09-15
لم ينجح أخي أرجوك ساعدني فأنا بأمس الحاجة إليه..
RE: طلب كود بحث في قاعدة البيانات access أرجوكم !! - أبو عمر - 16-09-15
اذا لم ينجح هذه المرة فضع مثالا
Sql = "SELECT IDescription, UnitPrice, SUM([Quantity]) as ItemQuantity, POSDate, (UnitPrice * SUM([Quantity])) As TotalAmount FROM Item as I, POS as P, POSDetail as PD WHERE I.ItemNo = PD.ItemNo AND PD.InvoiceNo=P.InvoiceNo AND StaffID ='" & Val(TextBox1.Text) & "' and CustomerNo=" & Val(TextBox2.Text) & " Group By IDescription, UnitPrice, [Quantity], POSDate ORder By IDescription"
RE: طلب كود بحث في قاعدة البيانات access أرجوكم !! - فراس صلاح - 16-09-15
شكراً جزيلا لك نجح لكن كيف التعديل على هذا الكود sqL = "SELECT IDescription, UnitPrice, SUM([Quantity]) as ItemQuantity, POSDate, (UnitPrice * SUM([Quantity])) As TotalAmount FROM Item as I, POS as P, POSDetail as PD WHERE I.ItemNo = PD.ItemNo AND PD.InvoiceNo=P.InvoiceNo AND POSDate >= #" & dtpFrom.Text & "# AND POSDate <=#" & dtpTo.Text & "# Group By IDescription, UnitPrice, [Quantity], POSDate ORder By IDescription"
RE: طلب كود بحث في قاعدة البيانات access أرجوكم !! - أبو عمر - 16-09-15
مثل التعديل على اي كود
لكني لم افهم ماذا تعني او ما الذي تحتاج اليه بالضبط؟
RE: طلب كود بحث في قاعدة البيانات access أرجوكم !! - فراس صلاح - 16-09-15
أقصد التعديل كما عدلت أنت على الكود السابق لكن عدلت عليه أنا شكراً لك