منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

إخوتي الكريم أعزكم الله
أريد كود توليد رقم طلب جديد

بما يعني عدد صفوف الجدول + 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 

PHP كود :

For i as integer = 0 to dt.Rows.Count -1
Me.DGv1.Rows.Add()
Me.DGV1(0,i).Value = i +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 

استخدم هذا الكود

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

جزاك الله خيرا أخي الكريم خضر أحسنت ماقصرت

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

(08-12-15, 02:31 PM)khodor1985 كتب : [ -> ]
PHP كود :

For i as integer = 0 to dt.Rows.Count -1 Me.DGv1.Rows.Add() Me.DGV1(0,i).Value = i +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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Abdh111

khodor1985

HASAN6.0

Abdh111