04-05-19, 11:12 AM
(آخر تعديل لهذه المشاركة : 04-05-19, 11:13 AM {2} بواسطة asemshahen5.)
تفضل هذا كود ترقيم تلقائي :
لجلب أكبر قيمة :
PHP كود :
Dim StrSQL as String= "Select IIF(Max(Id) Is NULL,1,Max(Id)+1)As ID From TestTable"
Dim cn As New SqlConnection("Server =(local);database=TestDB;integrated security=false;User ID=UserName;Password=Password")
Dim da As New SqlDataAdapter(StrSQL, cn)
Dim dt As New DataTable
da.Fill(dt)
Txt_Id.Text=dt.Rows(0)(0).ToString()
لجلب أكبر قيمة :
PHP كود :
Dim StrSQL as String= "Select Max(Id)As ID From TestTable"
Dim cn As New SqlConnection("Server =(local);database=TestDB;integrated security=false;User ID=UserName;Password=Password")
Dim da As New SqlDataAdapter(StrSQL, cn)
Dim dt As New DataTable
da.Fill(dt)
Txt_Id.Text=dt.Rows(0)(0).ToString()
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر