تقييم الموضوع :
  • 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
المشكلة تتكرر ولا اعلم الحل
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أحتاج كود اعادة ترقيم حقل المسلسل بعد حذف صف ما في الجدول Abdelazez.Ahmad 14 443 19-09-17, 09:38 PM
آخر رد: أحمد إبراهيم سعد
  [VB.NET] شباب الفزعة من فضلكم الكود سابقا شغال من يومين والحين مايشتغل 0theghost0 9 192 15-09-17, 04:38 PM
آخر رد: 0theghost0
  [VB.NET] محتاج كود يقوم بإعادة الترقيم 0theghost0 0 37 15-09-17, 02:15 PM
آخر رد: 0theghost0
Big Grin [كود] شباب طريقة لإظهار الادوات بشكل شبه مخفى وليس الفورم badr.kamel 3 129 14-09-17, 05:07 AM
آخر رد: Mohamad Anan
  [VB.NET] رجاء دخول المحترفين فى برمجة الشبكات network 0 57 13-09-17, 05:45 AM
آخر رد: network
Question [سؤال] برمجة الشبكات s.d.k 0 94 06-08-17, 01:01 AM
آخر رد: s.d.k
  مشكلة ارجو المساعده اعادة فتح فورم مفتوح نبيل كونكت 7 181 29-07-17, 01:10 PM
آخر رد: نبيل كونكت
  برمجة البطاقات الممغنطة djelloul 1 134 26-07-17, 01:55 PM
آخر رد: محمود بكرى
  [سؤال] شباب ليه رسالة الخطا دى بتظهر احمد عبد الحكيم 1 87 24-07-17, 09:05 PM
آخر رد: silverlight
  مشكلة بسيطة بس غلبتني يا شباب --الحمد لله اتحلت khaled12345 17 553 21-07-17, 09:59 PM
آخر رد: Amir_alzubidy

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


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