منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اخر قيمة حقل معين باستخدام شرط معين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=38398)



اخر قيمة حقل معين باستخدام شرط معين - asdfar1977 - 04-05-21

استخدم الفيجوال مع قاعدة سيكوال وأريد الاتى
محتاج كود DLast  
بحيث استخدمها في الحصول على اخر قيمة لسعر بحيث كود الصنف = كود الصنف

وانا قمت باستخدام تلك الكود ولكنه لا يعمل

Public Function Price_Ins_Ex(ByVal cod_item As String, ByVal number_transfer As String) As DataTable
      
        Dim CON As New Class_CON
        Dim DT As New DataTable
        DT.Clear()
        DT = CON.select_txt("SELECT  Dlast price_ from View_Searial_Number_Important WHERE cod_item ='" & cod_item & "' '")
        Return DT
    End Function


RE: اخر قيمة حقل معين باستخدام شرط معين - أسعد - 04-05-21

(04-05-21, 02:15 AM)asdfar1977 كتب : استخدم الفيجوال مع قاعدة سيكوال وأريد الاتى
محتاج كود DLast  
بحيث استخدمها في الحصول على اخر قيمة لسعر بحيث كود الصنف = كود الصنف

وانا قمت باستخدام تلك الكود ولكنه لا يعمل

Public Function Price_Ins_Ex(ByVal cod_item As String, ByVal number_transfer As String) As DataTable
      
        Dim CON As New Class_CON
        Dim DT As New DataTable
        DT.Clear()
        DT = CON.select_txt("SELECT  Dlast price_ from View_Searial_Number_Important WHERE cod_item ='" & cod_item & "' '")
        Return DT
    End Function

المفروض يظهر خطا وليس (لا يعمل)

Dlast خاصه بالاكسس ولن يتعرف عليها السيكوال وسيصدر خطا
بالاضافه لخطا اخر وهو وجود علامة ' زائده في نهاية الاستعلام

تعديل الاستعلام وطريقة السيكوال
PHP كود :
DT CON.select_txt("SELECT TOP 1 price_ FROM View_Searial_Number_Important WHERE cod_item ='" cod_item "' ORDER BY id DESC"