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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad محتاج برنامج تشفير قوى Mohamed Magdy 3 84 منذ 2 ساعة مضت
آخر رد: elgokr
  [VB.NET] تعديل بسيط في الكود :) مجهول 0 29 اليوم, 03:17 AM
آخر رد: مجهول
Sad محتاج كود فى اداة ال vlc Mohamed Magdy 1 46 أمس, 10:54 AM
آخر رد: Mohamed Magdy
  مساعدة السعيدي 12 295 08-12-18, 12:01 AM
آخر رد: السعيدي
  شباب محتاج مساعدة فى اداة ال vlc Mohamed Magdy 2 72 05-12-18, 10:49 AM
آخر رد: Mohamed Magdy
  مساعدة ضرورية بخصوص برنامج Aminsoft 4 175 04-12-18, 06:40 AM
آخر رد: asemshahen5
Photo اين الخطأ في الكود لو سمحتم samira20 6 130 01-12-18, 01:55 PM
آخر رد: asemshahen5
  محتاج كود يا شباب يبحث عن سطر او كلمة دخل الاسطضافة Mohamed Magdy 5 105 01-12-18, 12:26 PM
آخر رد: asemshahen5
Photo اين الخطأ في الكود لو سمحتم samira20 0 44 30-11-18, 11:08 AM
آخر رد: samira20
  محتاج مساعدة فى عمل بسورد لى برنامجى+رابط قاعدة البينات من الاسطضافة Mohamed Magdy 14 287 29-11-18, 10:36 PM
آخر رد: Mohamed Magdy

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


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