ناصر مبارك المبارك قام بنشر مارس 18, 2020 مشاركة قام بنشر مارس 18, 2020 أخواني الأعزاء السلام عليكم أنا مبتدئ في الفيجوال بيسك عملت برنامج للبحث عن أقل الأسعار بين المتاجر عملت كود للبحث في الداتا عن طريق البحث بالباركود لكن تواجهني مشكلة أنه يتطلب وضع رقم الباركود كاملا ولايقبل جزء منه حيث أن الكود لايقبل علامة % التي تقارن الجزئية movementDT.Clear() movementDA = New OleDbDataAdapter("Select * From MOVEMENT_T Where ((Price) = DMin('price', 'movement_t', ' itembarcode like " & tbSearch.Text & "))", Conn) movementDA.Fill(movementDT) ما الحل ؟ أرجو الرد بشرح مفصل رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر مارس 18, 2020 مشاركة قام بنشر مارس 18, 2020 movementDT.Clear() movementDA = New OleDbDataAdapter("Select * From MOVEMENT_T Where ((Price) = DMin('price', 'movement_t', ' itembarcode like '%' + tbSearch.Text + '%' ))", Conn) movementDA.Fill(movementDT) جرب الكود الآن لعله يعمل رابط هذا التعليق شارك More sharing options...
ناصر مبارك المبارك قام بنشر أبريل 6, 2020 الكاتب مشاركة قام بنشر أبريل 6, 2020 لم يقبل الكود وأعطاني خطأ syntax error (missing operator) رابط هذا التعليق شارك More sharing options...
ناصر مبارك المبارك قام بنشر أبريل 6, 2020 الكاتب مشاركة قام بنشر أبريل 6, 2020 (معدل) هنا مثال آخر لطريقة أخرى قمت بتغيير الجدول والطريقة كليا عندي جدول فيه المنتجات والأسعار من متاجر مختلفة وأريد أن يظهر لي آخر أقل سعر لكل سلعة بين المتاجر فإن كان هناك سعرين مختلفين لنفس المنتج في نفس المتجر يعتمد آحدث تاريخ ويقارنه بين أسعار المتاجر الأخرى ويعطيني آقل سعر لكل منتج Pricelist1DT.Clear() Pricelist1DA = New OleDbDataAdapter("select ID,barcode,item,type,market,min(price),max(date1) from Pricelist where type like'" & ComboBox1.Text & "' group by id,barcode,item,type,market,price,date1 having Price <= min(price) and date1 >= max(date1) order by price ", Conn) Pricelist1DA.Fill(Pricelist1DT) ولكم جزيل الشكر تم تعديل أبريل 6, 2020 بواسطه ناصر مبارك المبارك اضافة رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر يوليو 20, 2020 مشاركة قام بنشر يوليو 20, 2020 تفضل هذا التعديل اخي الكريم ج جلب اقل سعر من جدول movement_t movementDT.Clear() movementDA = New OleDbDataAdapter("SELECT Min(movement_t.[price]) AS price FROM movement_t GROUP BY movement_t.[itembarcode] HAVING (((movement_t.[itembarcode]) Like '%" & tbSearch.Text & "%'));", Conn) movementDA.Fill(movementDT) حفظ قيمة اقل سعر Dim srsh As String srsh = dt(0)("price") movementDT.Clear() movementDA = New OleDbDataAdapter("Select * From MOVEMENT_T Where ((Price) = '" & srsh & "')", Conn) movementDA.Fill(movementDT) رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.