منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
محتاج مساعدة فى كتابة الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : محتاج مساعدة فى كتابة الكود (/showthread.php?tid=27305)



محتاج مساعدة فى كتابة الكود - احمد خطاب - 06-11-18

فى خانة 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


RE: محتاج مساعدة فى كتابة الكود - Rabeea Qbaha - 06-11-18

كود :
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



RE: محتاج مساعدة فى كتابة الكود - asemshahen5 - 06-11-18

كود :
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()



RE: محتاج مساعدة فى كتابة الكود - احمد خطاب - 06-11-18

اولا اشكرك جدااااااااا 
ثانيا الكود مش شغال 
برجاء التوضيح


RE: محتاج مساعدة فى كتابة الكود - عبد العزيز البسكري - 06-11-18

اخي الكريم أحمد الأكواد التي تفضل بها السادة الاكارم بارك الله فيهم كلها تشتغل تمام التمام عن تجربة لمرات عديدة .. حتى الكود الذي تفضلت أنت بوضعه يشتغل تمام التمام .. ربما الخطأ بقاعدة البيانات لديك.
تحياتي


RE: محتاج مساعدة فى كتابة الكود - asemshahen5 - 06-11-18

في الاستعلام الذي وضعته لك ليوجد داعي لوضع جملة اف فهي موضوعة في الاستعلام فقط قم بعرض الناتج مباشرة :

كود :
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



RE: محتاج مساعدة فى كتابة الكود - احمد خطاب - 06-11-18

اشكرك اخى الكريم