تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] شباب عند برمجة كود اعادة الترقيم تظهر لى رساله
#1
    بسم الله الرحمن الرحيم
السلام عليكم شباب
عند برمجة زر الترقيم التلقائي والضغط عليه تظهر لى رساله
وايضا يقوم بالغاء المفتاح الرئيسى
وهذا هو كود الترقيم التلقائى
PHP كود :
If DataSet1.Tables("dri").Rows.Count 0 Then
            MsgBox
("الجدول فارغ من السجلات يتطلب وجود سجل واحد على الاقل"16 524288"تنبيه")
 
           Exit Sub
        End 
If
 
       If MsgBox("  هل تريد استعادة ترقيم السجلات  " " ؟ "MsgBoxStyle.Exclamation MsgBoxStyle.MsgBoxRight MsgBoxStyle.OkCancel"استعادة ترقيم السجلات") = MsgBoxResult.Cancel Then Exit Sub
        Try
            Application
.DoEvents()
 
           Dim cmd As New OleDb.OleDbCommand(""Con)
 
           Con.Open()
 
           cmd.CommandText "ALTER TABLE dri DROP CONSTRAINT PrimaryKey"
 
           cmd.ExecuteNonQuery()
 
           cmd.CommandText "ALTER TABLE dri DROP COLUMN driID"
 
           cmd.ExecuteNonQuery()
 
           cmd.CommandText "ALTER TABLE dri ADD COLUMN driID COUNTER CONSTRAINT [PrimaryKey] Primary key"
 
           cmd.ExecuteNonQuery()
 
           DataSet1.Clear()
 
           DataAdapter.Fill(DataSet1"dri")
 
           Con.Close()
 
           MsgBox("تم بنجاح استعادة تسلسل السجلات"64 524288"نجاح")
 
       Catch ex As Exception
            MessageBox
.Show(ex.Message"هناك خطأ ما"MessageBoxButtons.OKMessageBoxIcon.Error)
 
       End Try 
الرد
تم الشكر بواسطة:
#2
المشكلة تتكرر ولا اعلم الحل
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برمجة الاحتمالات في الفيجوال samira20 4 143 02-05-19, 05:58 PM
آخر رد: ابراهيم ايبو
  مشكلة تظهر عند العميل اسامه الهرماوي 3 97 18-04-19, 03:59 AM
آخر رد: ابراهيم ايبو
Question [VB.NET] كيف اعمل رسالة ترحيب تظهر من اسفل الساعة " من الاسفل الى الاعلى " اباذر 5 211 04-04-19, 07:12 PM
آخر رد: elgokr
  [سؤال] الترقيم التلقائي mr_hso 8 294 31-03-19, 10:50 AM
آخر رد: mr_hso
  [VB.NET] مشكلة تظهر عند تنصيب فيجوال ستوديو 2019 اباذر 3 217 09-03-19, 12:41 AM
آخر رد: اباذر
  مساعده شباب اريد تعديل الكود يشتغل عليDataGridView بدل ListView -اين المحترفين Fransesco 5 228 25-02-19, 10:49 AM
آخر رد: elgokr
  ظهور رساله ازعجتنى فى مشروع مصمم بال vb.net خالد كامل1 6 282 20-02-19, 03:44 PM
آخر رد: elgokr
Smile [VB.NET] مساعده في برمجة فاحص ايميلات AMJEDK 3 169 19-02-19, 03:30 PM
آخر رد: AMJEDK
  [سؤال] شباب ازاي اعمل شريط في فجوال 2010 A12 1 196 07-02-19, 11:23 PM
آخر رد: princelovelorn
  المساعدة في حل مشكلة الترقيم التسلسلي في الكريستال ريبورت ( حاجة غريبة حصلت معي ) جيولوجي مبتدئ 2 196 27-01-19, 12:09 PM
آخر رد: جيولوجي مبتدئ

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


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