تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] مثال اعادة الترقيم لعمود في الجدول
#1
السلام عليكم و رحمة الله وبركاته
هذا مشروع لاعادة ترقيم عمود ليس ترقيم تلقائي وانما نوع رقم .



و هذا مثاله من مشاركة لموضوع

لقد جربت فكرة طرات في بالي وهي اضافة عمود ليس ترقيم تلقائي وهذه الفكرة
كود :
Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|DataDirectory|\db.accdb"
   Dim con As New OleDb.OleDbConnection(str)
   Dim dt As DataTable
   Dim da As OleDb.OleDbDataAdapter
   Dim cmd As OleDb.OleDbCommandBuilder

   Private Function gid() As Integer
       Try
           Dim cm As New OleDb.OleDbCommand("select Last(tid) from tb", con)
           If con.State = ConnectionState.Closed Then con.Open()
           Return cm.ExecuteScalar
       Catch ex As Exception
           Return Nothing
       End Try
   End Function

   Private Sub gd()
       ListBox1.DataSource = Nothing
       dt = New DataTable
       da = New OleDb.OleDbDataAdapter("select * from tb", con)
       cmd = New OleDb.OleDbCommandBuilder(da)
       da.Fill(dt)
       ListBox1.DataSource = dt
       ListBox1.DisplayMember = "tid"
   End Sub
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       gd()
   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       Dim row As DataRow = dt.NewRow
       row(0) = gid() + 1
       dt.Rows.Add(row)
       da.Update(dt)
       gd()
       ListBox1.SelectedIndex = ListBox1.Items.Count - 1
   End Sub

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       If ListBox1.SelectedIndex < 0 Then MsgBox("اختر الرقم المراد حذفه من القائمة", MsgBoxStyle.Critical, "") : Return

       dt.Rows(ListBox1.SelectedIndex).Delete()
       da.Update(dt)
       gd()
   End Sub

   Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
       ListBox1.DataSource = Nothing

       For r As Integer = 0 To dt.Rows.Count - 1
           Dim row As DataRow = dt.Rows(r)
           row.BeginEdit()
           row(0) = r
           row.EndEdit()
           da.Update(dt)
       Next
       gd()
   End Sub
End Class


الفكرة تدور حول تحديث الرقم الخاص بعمود الترقيم ...لقد استخدمت عمود واحد فقط لانه مدار الفكرة .

الدالة بالكود لم استخدمها مع اني كتبتها 
كود :
Private Function gid() As Integer
       Try
           Dim cm As New OleDb.OleDbCommand("select Last(tid) from tb", con)
           If con.State = ConnectionState.Closed Then con.Open()
           Return cm.ExecuteScalar
       Catch ex As Exception
           Return Nothing
       End Try
   End Function
الرد
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [مشروع] [تم إرفاق المشروع-سقط سهوا]مثال الاضافة الى جدولين بينهم علاقة مخصصة سعود 5 572 23-07-19, 08:49 PM
آخر رد: سعود
  [مشروع] مثال بسيط (الاجراءات المخزنة - اكسس 2010 + فيجوال بيسك 2015) سعود 6 4,144 05-07-19, 05:20 PM
آخر رد: sendbad100
  [مشروع] مثال بسيط لقفل وفك قفل كلمة مرور اكسس مع الضغط سعود 0 440 03-07-19, 08:22 AM
آخر رد: سعود
  [مشروع] أحدث مثال(لماقدمته) لتصفح البيانات مجموعة مجموعة وليس صف صف سعود 2 855 21-04-18, 06:54 PM
آخر رد: سعود
  مثال تغيير اسم المستخدم وكلمة المرور اعتمادا على الرقم الفريد سعود 5 3,628 02-01-18, 05:35 PM
آخر رد: سعود
  [مشروع] مثال تصفح البيانات مجموعة مجموعة سعود 0 812 01-08-17, 12:10 AM
آخر رد: سعود
  [مشروع] مثال(كود انشاء(قاعدة بيانات + جدول + اعمدة) تصفير العداد) مع اضافة صور والبحث المطلق سعود 14 13,997 06-06-17, 05:35 PM
آخر رد: Abdh111
Wink [مشروع] مثال إرتجالي عن برنامج بقالة (او اي شي حولها) سعود 5 3,506 21-01-17, 07:17 AM
آخر رد: سعود
  [مشروع] مثال نسخ آخر صف من DataTable الى أخرى عند الاغلاق سعود 0 929 29-08-16, 09:11 AM
آخر رد: سعود
  مثال نسخ سجلات من جدول في قاعدة الى جدول في قاعدة اخرى سعود 0 1,279 17-08-16, 01:16 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم