+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تسلسل ID (/showthread.php?tid=33157)
تسلسل ID - Mtaktak - 27-01-20
السلام عليكم ورحمة الله
هل استطيع عمل هذا الكود
وذلك لترتيب تسلسل الجدول من 1 وحتى 10
كود :
Dim mSQL As String = "UpDate Data1 set ID = @ID , ONo = @ONo where ID = " & Text1.Text & ""
Dim cmd As New OleDbCommand(mSQL, Con)
Dim i As Integer = 0
Dim x As Integer = 0
For i = 0 To 9
x += 1
cmd.Parameters.Add(New OleDbParameter("@ID", OleDbType.Numeric)).Value = x
cmd.Parameters.Add(New OleDbParameter("@ONo", OleDbType.Numeric)).Value = x
Next
End If
If Con.State = ConnectionState.Open Then Con.Close()
Con.Open()
cmd.ExecuteNonQuery()
Con.Close()RE: تسلسل ID - alsalamoni - 29-01-20
(27-01-20, 04:39 AM)Mtaktak كتب : السلام عليكم ورحمة الله
هل استطيع عمل هذا الكود
وذلك لترتيب تسلسل الجدول من 1 وحتى 10
كود :
Dim mSQL As String = "UpDate Data1 set ID = @ID , ONo = @ONo where ID = " & Text1.Text & ""
Dim cmd As New OleDbCommand(mSQL, Con)
Dim i As Integer = 0
Dim x As Integer = 0
For i = 0 To 9
x += 1
cmd.Parameters.Add(New OleDbParameter("@ID", OleDbType.Numeric)).Value = x
cmd.Parameters.Add(New OleDbParameter("@ONo", OleDbType.Numeric)).Value = x
Next
End If
If Con.State = ConnectionState.Open Then Con.Close()
Con.Open()
cmd.ExecuteNonQuery()
Con.Close()
اجعل الحقل ترقيم تلقائي
RE: تسلسل ID - Mtaktak - 30-01-20
شكرا على مرورك
لنفرض ان الحقل غير مرقم ترقيم تلقائي
مجرد حقل يحتوي على رقم ونريد ان نضع به ترقيم تسلسلي من 1 الى 10
هل استطيع استخدام طريقتي هذه؟