[@@أبورائد@@]

السلام عليكم و رحمة الله و بركاته




طبعا كود إنشاء رقم تسلسلي يتم بعد الاستعلام ليستخدم عند عرض البيانات فقط وليس له علاقة بالاضافة أو الحذف أو التحديث




السلام عليكم و رحمة الله و بركاته

---

السلام عليكم و رحمة الله و بركاته


لتطبيق الرقم التسلسلي في المثال الذي أرفقت إليك الطريقة باستخدام الوضع المنفصل (DataAdapter)

كود :

Dim sql As String = " Select *                  " & _
                   " From [TblEmp]             " & _
                    " Where [EmpID] = @EmpID    "
Dim myCommand As New OleDbCommand(sql, ConnPro)
myCommand.Parameters.AddWithValue("@EmpID", EmpID)

Dim myDataTable As New DataTable
Dim myDataAdapter As New OleDbDataAdapter(myCommand)

       myDataAdapter.Fill(myDataTable)
       myDataTable.Columns.Add("RowNumber")
       For i = 0 To myDataTable.Rows.Count - 1
           myDataTable.Rows(i).Item("RowNumber") = i + 1
       Next

       For Each r As DataRow In myDataTable.Rows
           Me.TextBox1.text = r.Item("RowNumber") ' عرض الرقم التسلسي
           w1.Text = r.Item("EmpName")

           Dim ProPicData() As Byte
           ProPicData = r.Item("EmpPic")
           q1.Image = Image.FromStream(New MemoryStream(ProPicData))
       Next

السلام عليكم و رحمة الله و بركاته