+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : أيد كود عدد الصفوف بالجدول +1 ؟ (/showthread.php?tid=14063)
أيد كود عدد الصفوف بالجدول +1 ؟ - Abdh111 - 08-12-15
إخوتي الكريم أعزكم الله
أريد كود توليد رقم طلب جديد
بما يعني عدد صفوف الجدول + 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
RE: أيد كود عدد الصفوف بالجدول +1 ؟ - khodor1985 - 08-12-15
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
RE: أيد كود عدد الصفوف بالجدول +1 ؟ - HASAN6.0 - 08-12-15
استخدم هذا الكود
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
RE: أيد كود عدد الصفوف بالجدول +1 ؟ - Abdh111 - 08-12-15
جزاك الله خيرا أخي الكريم خضر أحسنت ماقصرت
[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