تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مساعدة في عمل chart محمد خيري 6 89 أمس, 01:28 AM
آخر رد: elgokr
  مساعده شباب اريد تعديل الكود يشتغل عليDataGridView بدل ListView -اين المحترفين Fransesco 3 58 22-02-19, 09:22 PM
آخر رد: elgokr
  [VB.NET] مساعده في تصحيح الكود dubai.eig 4 99 20-02-19, 05:48 PM
آخر رد: elgokr
  مساعدة في موقع panels على الفورم ؟؟؟ abdullhadi999 2 72 16-02-19, 02:45 AM
آخر رد: أحمد النجار
Information [VB.NET] مساعدة : حساب الناتج الاجمالي georgos 4 93 15-02-19, 11:35 PM
آخر رد: georgos
  [VB.NET] استفسار :- هل صحيح كتابه الكود بهذه الطريقه dubai.eig 8 193 14-02-19, 06:52 PM
آخر رد: ابراهيم ايبو
  كيف كتابة الارقام العشرية فى التسكت بوكس سمير جمال 0 49 13-02-19, 06:39 PM
آخر رد: سمير جمال
  مساعدة بمشكلة مكتبات الوورد و الاكسل محمد خيري 0 52 12-02-19, 12:39 AM
آخر رد: محمد خيري
  مساعدة هامة احتاج كود يقوم بعمل طباعة تلقائية ل ReportViwer مجرد فتح الفورم mohamedgadain61 1 99 11-02-19, 09:47 AM
آخر رد: mohamedgadain61
  مساعدة في اتمام المشروع georgos 0 85 11-02-19, 01:32 AM
آخر رد: georgos

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


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