[raaddawood]

(09-02-19, 05:27 PM)princelovelorn كتب :

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

بالنسبة لترتيب عرض السجلات

في الدالة loaddata في جملة الأستعلام ضع ORDER BY kism  بدل ORDER BY ID

كما بالكود التالي

كود :

Private Sub loaddata()
       dataconnection()
       Dim da As New OleDb.OleDbDataAdapter("SELECT * From daleel ORDER BY kism", cnn)
       Dim dt As New DataTable
       da.Fill(dt)
       Me.DataGridView1.DataSource = dt
   End Sub

وبالنسبة لكود الحذف

إستبدل كود الحذف لديك بالكود التالي

كود :

   MessageBox.Show("هل تريد حذف الحساب", "تأكيد", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
       If vbYes Then
           dataconnection()
           Dim Del As New OleDb.OleDbCommand
           Dim delnum = DataGridView1.CurrentRow.Cells(0).Value
           Del.Connection = cnn
           Del.CommandType = CommandType.Text
           Del.CommandText = "DELETE * FROM daleel WHERE id like " & delnum & ""
           Del.ExecuteNonQuery()
           cnn.Close()
           loaddata()
       End If

تمنياتي لك بالتوفيق والنجاح

السلام  عليكم
جزيل  الشكر  اخي  الكريم  وجزاك  الله  خيرا
سؤالي  هنا   ,,,  هل  استفاد  من  حقل  id  فهو  ترقيم  تلقائي 
أنا  أريد  دالة  ترقيم  تلقائي  لحقل  cod  ولكن  يبقى  الترتيب   لحقل  cod