تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أيد كود عدد الصفوف بالجدول +1 ؟
#1
إخوتي الكريم أعزكم الله
أريد كود توليد رقم طلب جديد 

بما يعني عدد صفوف الجدول + 1
انا كتبت هذا الكود لكن شغال بينتج لي رقم = عدد الصفوف وليس + 1
PHP كود :
       Try
            Call conecDB
()
 
           Call initCMD()

 
           SQL "SELECT * FROM Tab_Main"

 
           With Scmd
                
.CommandText SQL
                Sdr 
= .ExecuteReader
            End With
            Sdr
.Close()

 
           Dim countrows As Int16 Convert.ToInt16(Scmd.ExecuteScalar())
 
           If Val(countrows) > 0 Then
                
'MsgBox(countrows)
                Lbl_Request_No.Text = Val(countrows + 1)
            Else
                Lbl_Request_No.Text = Val(countrows + 1)
                MsgBox("لا توجد أي طلبات صيانة مسجلة في قاعدة البيانات")
            End If
            '
MsgBox(countrows.ToString())
 
           Scmd.Dispose()
 
       Catch ex As Exception
            MsgBox
(ex.Message)
 
       End Try 
الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
For as integer 0 to dt.Rows.Count -1
Me
.DGv1.Rows.Add()
Me.DGV1(0,i).Value +1
Me
.DGV1(1,i).Value dt.Rows(i)(0)
Me.DGV1(2,i).Value dt.Rows(i)(1)
Me.DGV1(3,i).Value dt.Rows(i)(2)
dt.Dispose
dt 
Nothing 
واعبد ربك حتى يأتيك اليقين
الرد }}}
تم الشكر بواسطة:
#3
استخدم هذا الكود

PHP كود :
Public Function GetLastNum(ByVal Tbl As String) As Integer
        With comDB
()
 
           .CommandText "SELECT * FROM " Tbl.Trim
            Using RD 
= .ExecuteReader()
 
               If RD.HasRows True Then
                    RD
.Close()
 
                   With comDB()
 
                       .CommandText "SELECT MAX(num) FROM " Tbl.Trim
                        Return Val
(Convert.ToInt16(.ExecuteScalar())) + 1
                    End With

                Else
                    Return 1
                End 
If
 
           End Using
        End With
    End 
Function 
 طبعا نوع الحقل num  هو int او bigint
الرد }}}
تم الشكر بواسطة:
#4
جزاك الله خيرا أخي الكريم خضر أحسنت ماقصرت

[b]HASAN6.0[/b] 
جزاك الله خيرا أخي الكريم / حسن


(08-12-15, 02:31 PM)khodor1985 كتب :
PHP كود :
For as integer 0 to dt.Rows.Count -1
Me
.DGv1.Rows.Add()
Me.DGV1(0,i).Value +1
Me
.DGV1(1,i).Value dt.Rows(i)(0)
Me.DGV1(2,i).Value dt.Rows(i)(1)
Me.DGV1(3,i).Value dt.Rows(i)(2)
dt.Dispose
dt 
Nothing 
الرد }}}
تم الشكر بواسطة:



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


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