[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

[أسعد]

(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")