تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في كود الترقيم التلقائي
#1
اظن ان الكود صحيح ولكن لا اعلم اين المشكلة
PHP كود :
 Public Function Code_Users()
 
       Dim dt As New DataTable
        Dim da 
As New SqlDataAdapter

        Dim mynewIDUsers 
As Integer
        dt
.Clear()

 
       da = New SqlDataAdapter("select MAx(UserID) from Users"Con)
 
       da.Fill(dt)
 
       If IsDBNull(dt(0)(0)) = True Then
            mynewIDUsers 
1
        Else
            mynewIDUsers 
dt(0)(0) + 1

        End 
If
 
       Return mynewIDUsers

    End 
Function 

 
الخطأ المتعرف عليه:
Error 3 'ElementAtOrDefault' is not a member of 'System.Data.EnumerableRowCollection(Of System.Data.DataRow)'. connection_load.vb 24 21


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة: سعود
#2
الكود صحيح ولم تظهر عندي اخطاء
اي نسخة تستخدم الفجوال ؟ اكيد 2019
اشوف الاخطاء اللي تحصل اغلبهه من النسخ الحديثة
الرد }}}
تم الشكر بواسطة: سعود , معاند الحظ , معاند الحظ
#3
ما رايك بهذا الكود؟
PHP كود :
Private Function Maxid() As Integer
        Using cmd 
As New SqlCommand(""con)
 
           cmd.CommandText "select max(tid) from pics"
 
           If con.State ConnectionState.Closed Then con.Open()
 
           Try
                Return cmd
.ExecuteScalar
                Exit 
Function
 
           Catch ex As Exception
            End 
Try
 
           If con.State ConnectionState.Open Then con.Close()
 
       End Using
        Return Nothing
    End 
Function 
الرد }}}
#4
غير الاسطر التي تحتوي على
كود :
 dt(0)(0)

الى
كود :
dt.rows(0)(0)



سبب الخطأ ان الخاصية rows ليست افتراضية مثل الخاصية items الموجودة في ليستبوكس مثلا 

راجع الرابط التالي:
Why do I get, "ElementAtOrDefault' is not a member of 'System.Data.EnumerableRowCollection"?

الرد }}}



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


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