تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
محتاج مساعدة فى كتابة الكود
#1
فى خانة 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


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
كود :
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
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , elgokr
#3
كود :
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()
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , elgokr , elgokr
#4
اولا اشكرك جدااااااااا 
ثانيا الكود مش شغال 
برجاء التوضيح
الرد }}}
تم الشكر بواسطة: larbihamri
#5
اخي الكريم أحمد الأكواد التي تفضل بها السادة الاكارم بارك الله فيهم كلها تشتغل تمام التمام عن تجربة لمرات عديدة .. حتى الكود الذي تفضلت أنت بوضعه يشتغل تمام التمام .. ربما الخطأ بقاعدة البيانات لديك.
تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: larbihamri
#6
في الاستعلام الذي وضعته لك ليوجد داعي لوضع جملة اف فهي موضوعة في الاستعلام فقط قم بعرض الناتج مباشرة :

كود :
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
الرد }}}
تم الشكر بواسطة: احمد خطاب , elgokr
#7
اشكرك اخى الكريم
الرد }}}
تم الشكر بواسطة: elgokr , asemshahen5



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 2 ) ضيف كريم