منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اخر قيمة حقل معين باستخدام شرط معين
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
استخدم الفيجوال مع قاعدة سيكوال وأريد الاتى
محتاج كود 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
(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"