منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
بخصوص الترقيم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : بخصوص الترقيم (/showthread.php?tid=15584)

الصفحات: 1 2 3 4

RE: بخصوص الترقيم - علي كعبي - 08-05-16

هذا هو طلبي باقي اكواد باقي الازرار التعديل اللغاء ترحيل البيانات بحيث يكون الشرط نهاية السنة

RE: بخصوص الترقيم - ابو ليلى - 09-05-16

السلام عليكم و رحمة الله
اخي بالنسبة للترحيل اذا كان طلبك هو نقل بيانات الجدو  Tab1 الى جدول جديد , فالطريقة سهلة باذن الله
فقط عليك عمل جملة لادخال سجلات الجدول  Tab1 الى جدول جديد كما يلي بفرض ان اسم الجدول الجديد هو  temptb

كود :
Dim SelectQur As String = "INSERT INTO temptb(Name, HijriYear, HijriID ) " & _
                                 "SELECT Name, HijriYear, HijriID FROM Tab1 "
 
ومن ثم تنفيذها عبر كائن Command عادي كما يلي
كود زر الترحيل
كود :
   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       Dim SelectQur As String = "INSERT INTO temptb(Name, HijriYear, HijriID ) " & _
                                 "SELECT Name, HijriYear, HijriID FROM Tab1 "


       Dim TransferCommand As New OleDbCommand(SelectQur, conn)
       If conn.State = ConnectionState.Open Then conn.Close()


       Try
           Dim Prombit As DialogResult = MessageBox.Show("سيؤدي هذا الاجراء الى ترحيل السجلات الى الارشيف", "ارشيف", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign)
           If Prombit = Windows.Forms.DialogResult.Yes Then
               conn.Open()

               TransferCommand.ExecuteNonQuery()

           End If

       Catch ex As Exception
           MsgBox(ex.ToString)
       Finally
           con.Close()
           TransferCommand.Dispose()
       End Try
   End Sub

او بطريقة اخرى و هي عن طريق عمل استعلام الحاق في قاعدة البيانات وهو مشابه للاجراء المخزن (Stored Proceudre) الموجود في SQL Server  ومن ثم استدعاء هذا الاستعلام في الكود و هي طريقة عملية لعزل عمل القاعدة عن واجهة التطبيق (تماماً كما يجري في البرامج الكبيرة) مع استثناء ان برنامج الاكسس لا يصلح لمهمات كبيرة , على اي حال
قم بعمل استعلام الحاقي في القاعدة و سميه Insert1 مهمته هي نسخ البيانات من الجدول Tab1 الى جدول الارشيف temptb

الان نقوم بعمل استدعاء لهذا الاستعلام من البرنامج كما بالكود التالي
كود زر الترحيل بالطريقة الثانية
كود :
   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       'Dim SelectQur As String = "INSERT INTO temptb(Name, HijriYear, HijriID ) " & _
       '"SELECT Name, HijriYear, HijriID FROM Tab1 "


       'Dim TransferCommand As New OleDbCommand(SelectQur, conn)
       If conn.State = ConnectionState.Open Then conn.Close()

       Dim TransferCommand As New OleDbCommand("Execute Insert1", conn)
       TransferCommand.CommandType = CommandType.Text


       Try
           Dim Prombit As DialogResult = MessageBox.Show("سيؤدي هذا الاجراء الى ترحيل السجلات الى الارشيف", "ارشيف", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign)
           If Prombit = Windows.Forms.DialogResult.Yes Then
               conn.Open()
               'TransferCommand.ExecuteNonQuery()

               TransferCommand.ExecuteReader()

           End If

       Catch ex As Exception
           MsgBox(ex.ToString)
       Finally
           con.Close()
           TransferCommand.Dispose()
       End Try
   End Sub

باقي زر التعديل و الحذف اتعب على نفسك شوية المهمة سهلة
بالتوفيق اخي الكريم
المرفق مع التعديل الجديد