اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

بحث في جدول غن أقل سعر لسلعة معينة


ناصر مبارك المبارك

الردود الموصى بها

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

أنا مبتدئ في الفيجوال بيسك عملت برنامج للبحث عن أقل الأسعار بين المتاجر 

عملت كود للبحث في الداتا عن طريق البحث بالباركود لكن تواجهني مشكلة أنه يتطلب وضع رقم الباركود كاملا ولايقبل جزء منه

حيث أن الكود لايقبل علامة % التي تقارن الجزئية

 

movementDT.Clear()
                movementDA = New OleDbDataAdapter("Select * From MOVEMENT_T Where ((Price) = DMin('price', 'movement_t',  ' itembarcode like  " & tbSearch.Text & "))", Conn)
                movementDA.Fill(movementDT)

 

 

ما الحل ؟

أرجو الرد بشرح مفصل

رابط هذا التعليق
شارك

  • 3 weeks later...

هنا مثال آخر لطريقة أخرى

قمت بتغيير الجدول والطريقة كليا

 

عندي جدول فيه المنتجات والأسعار من متاجر مختلفة وأريد أن يظهر لي آخر أقل سعر لكل سلعة بين المتاجر فإن كان هناك سعرين مختلفين لنفس المنتج في نفس المتجر يعتمد آحدث تاريخ ويقارنه بين أسعار المتاجر الأخرى ويعطيني آقل سعر لكل منتج

 

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)

 

 

ولكم جزيل الشكر

تم تعديل بواسطه ناصر مبارك المبارك
اضافة
رابط هذا التعليق
شارك

  • 3 months later...

تفضل هذا التعديل اخي الكريم

ج

جلب اقل سعر من جدول
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)

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information