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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [VB.NET] كل عام وانتم بخير ... محتاج كود نسخ قاعدة البيانات تلقائيا abdullhadi999 32 710 15-05-19, 08:24 PM
آخر رد: asemshahen5
  ماهو الكود الصحيح و العملي لهذا kador 12 362 12-05-19, 05:07 PM
آخر رد: elgokr
  مساعدة جزاكم الله خير fouadhdfouad 1 64 08-05-19, 10:57 PM
آخر رد: ابراهيم ايبو
  [VB.NET] محتاج تعديل على الكود dubai.eig 2 79 07-05-19, 06:02 PM
آخر رد: dubai.eig
Photo [مشروع] مساعدة في برنامج hamadz 1 85 06-05-19, 06:02 AM
آخر رد: ابراهيم ايبو
  [VB.NET] تحويل الكود من اكسس لsql اسامه الهرماوي 6 148 03-05-19, 01:29 AM
آخر رد: saoud2
  [VB.NET] ممكن مساعدة bmgtouch 2 99 02-05-19, 10:44 PM
آخر رد: bmgtouch
  [VB.NET] مساعدة في..listbox e-coder 1 78 26-04-19, 06:49 PM
آخر رد: elgokr
  طلب مساعدة في اضافة save restore حاتمي 6 198 24-04-19, 12:39 AM
آخر رد: حاتمي
  سحب والافلات.Drag and Drop.مساعدة e-coder 7 142 22-04-19, 03:46 AM
آخر رد: elgokr

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


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