+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : select cunte liste Rows (/showthread.php?tid=22422)
select cunte liste Rows - طـلال - 05-11-17
السـلام عليكم روحمة الله وبركاته
كيف يمكنني جلب رقم أخر 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 FunctionRE: select cunte liste Rows - a.ahmed - 05-11-17
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
RE: select cunte liste Rows - طـلال - 05-11-17
الله يسعدك يالأميـر