[طـلال]

السـلام عليكم روحمة الله وبركاته 

كيف يمكنني جلب رقم أخر ID في قاعدة البيانات وأضيف له 1 بحيث أيظهر في التكست الرقم الموجود +1 

بشـرط أن أبحث في أخر 4 سجلات وليس بالجدول كامل 

هاذي الداله أتمنى التعديل عليها بحيث تصبح أكثر فاعليه وسـرعه 

لأن عندي سجلات كثيره  والرقم هذا يظهر عندما  يفتح الفورم 
أبحث عن كود أشبهه بالمكينات الألمانيه 

كود :

 Function GetlstRcno(ByVal Names, ByVal OrderByfild) As Integer
       GetlstRcno = 0
       'Select Top 10 From Table1 Where Field1=@Field1 Order By Id Desc
       Dim STR = " select * from " & Names & " Order by " & OrderByfild
       Dim Da As New SqlClient.SqlDataAdapter(STR, CONDATABASE)
       Dim Ds = New DataSet
       Da.Fill(Ds)
       Dim DT As DataTable
       DT = Ds.Tables(0)
       If DT.Rows.Count <> 0 Then
           Dim i = DT.Rows.Count - 1
           GetlstRcno = Val(DT.Rows(i).Item(OrderByfild))
       End If
   End Function

[a.ahmed]

PHP كود :

Function GetlstRcno(ByVal Names, ByVal OrderByfild) As Integer
    GetlstRcno = 0
    Dim STR = " select top 1 " & OrderByfild & " from " & Names & " Order by " & OrderByfild & " desc"
    Dim Cm As New SqlClient.SqlCommand(STR, CONDATABASE)
    CONDATABASE.Open()
    GetlstRcno = Cm.ExecuteScalar()
    CONDATABASE.Close()
End Function 


[طـلال]

الله يسعدك يالأميـر