06-11-18, 03:24 AM
(آخر تعديل لهذه المشاركة : 09-11-18, 08:03 PM {2} بواسطة asemshahen5.)
كود :
Dim StrSQL as String= "Select IIF(Max(user_id) Is NULL,1,Max(user_id)+1) From users"
Dim cn As New SqlConnection("Server =(local);database=daccount;integrated security=True")
Dim StrTableName As String ="users"
Dim da As New SqlDataAdapter(StrSQL, cn)
Dim dt As New DataTable
da.Fill(dt)
Txt_user_id.Text=dt.Rows(0)(0).ToString()سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
