تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في الترقيم التلقائي
#17
(23-03-17, 03:06 PM)0theghost0 كتب : انا اقصد ياشباب
في حالة الحفظ
اذا كان في القاعدة 1 و 3
وقمت باضافة شيء جديد يكون رقمه 2 في قاعدة البيانات فيكون عندي 1 و 2 و 3

هكذا اقصد

 اكتب هذا الكود بعد كود الحفظ وايضا بعد كود الحذف

PHP كود :
 Try
                Application
.DoEvents()
               
 Dim cmd As OleDbCommand = New OleDbCommand("SELECT ID,field1,field2 from tableName order by ID",Con)
 
               da = New OleDbDataAdapter(cmd)
 
               Dim cmd As New OleDb.OleDbCommand("",con)
 
               cmd.Connection Con
                If Not con
.State ConnectionState.Open Then
                    con
.Open()
 
               End If
 
               ' ID كود حذف المفتاح من حقل الترقيم التلقائي الي اسمه   
                cmd.CommandText = "ALTER TABLE tableName DROP CONSTRAINT PrimaryKey"
                cmd.ExecuteNonQuery()
                ' 
ID كود حذف حقل الترقيم التلقائي الي اسمه  
                cmd
.CommandText "ALTER TABLE tableName DROP COLUMN ID"
 
               cmd.ExecuteNonQuery()
 
               'مع وضع مفتاح له ID كود انشاء حقل الترقيم التلقائي الي اسمه  
                cmd.CommandText = "ALTER TABLE tblGroub ADD COLUMN IDF COUNTER CONSTRAINT [PrimaryKey] Primary key"
                cmd.ExecuteNonQuery()
                '
تحديث قاعدة البيانات
                ds 
= New DataSet
                ds
.Clear()
 
               da.Fill(ds"tableName")

 
               con.Close()
 
           Catch ex As Exception
                
            End 
Try 
Mish3l
الرد }}}
تم الشكر بواسطة: sendbad100


الردود في هذا الموضوع
RE: مشكلة في الترقيم التلقائي - بواسطة tryold - 25-03-17, 10:23 PM


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


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