فى خانة user_id الناتج كان لازم يطلع رقم 1 لماذا ظهر زيرو كما فى المرفق وفقا للكود المعروض
Public Sub code_users()
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("select max(`user_id`) from users", con)
da.Fill(dt)
If IsDBNull(dt(0)(0)) = True Then
mynewidusers = 1
Else
mynewidusers = dt(0)(0) + 1
End If
كود :
Public Function GetMaid() As Integer
Dim x As Integer = 0
If Con.State = ConnectionState.Closed Then
Con.Open()
End If
Dim adp As New OleDbCommand("select max (user_id) from users", Con)
Try
x = adp.ExecuteScalar
Return x
Catch ex As Exception
Return x
Con.Close()
End Try
End Function
كود :
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()
اولا اشكرك جدااااااااا
ثانيا الكود مش شغال
برجاء التوضيح
اخي الكريم أحمد الأكواد التي تفضل بها السادة الاكارم بارك الله فيهم كلها تشتغل تمام التمام عن تجربة لمرات عديدة .. حتى الكود الذي تفضلت أنت بوضعه يشتغل تمام التمام .. ربما الخطأ بقاعدة البيانات لديك.
تحياتي
في الاستعلام الذي وضعته لك ليوجد داعي لوضع جملة اف فهي موضوعة في الاستعلام فقط قم بعرض الناتج مباشرة :
كود :
Public Sub code_users()
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 da As New SqlDataAdapter(StrSQL, cn)
Dim dt As New DataTable
da.Fill(dt)
mynewidusers = dt.Rows(0)(0).ToString()
End Sub