21-09-13, 05:55 PM
(آخر تعديل لهذه المشاركة : 21-09-13, 06:45 PM {2} بواسطة @@أبورائد@@.)
السلام عليكم و رحمة الله و بركاته
طبعا كود إنشاء رقم تسلسلي يتم بعد الاستعلام ليستخدم عند عرض البيانات فقط وليس له علاقة بالاضافة أو الحذف أو التحديث
السلام عليكم و رحمة الله و بركاته
السلام عليكم و رحمة الله و بركاته
لتطبيق الرقم التسلسلي في المثال الذي أرفقت إليك الطريقة باستخدام الوضع المنفصل (DataAdapter)
السلام عليكم و رحمة الله و بركاته
طبعا كود إنشاء رقم تسلسلي يتم بعد الاستعلام ليستخدم عند عرض البيانات فقط وليس له علاقة بالاضافة أو الحذف أو التحديث
السلام عليكم و رحمة الله و بركاته
السلام عليكم و رحمة الله و بركاته
لتطبيق الرقم التسلسلي في المثال الذي أرفقت إليك الطريقة باستخدام الوضع المنفصل (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السلام عليكم و رحمة الله و بركاته
