[khodor1985]

تفضل اخي العزيز، لقد تم التعديل على المشروع بحسب طلبك
المشروع :
  Khodor1985-TransferData.rar (الحجم : 198.73 ك ب / التحميلات : 116)

وهذه الصورة بعد التعديل :
   

أتمنى لك التوفيق

[مبرمج بلا حدود]

(04-09-15, 08:19 AM)khodor1985 كتب : تفضل اخي العزيز، لقد تم التعديل على المشروع بحسب طلبك
المشروع :

وهذه الصورة بعد التعديل :


أتمنى لك التوفيق

السلام عليكم ورحمة الله وبركاته 
جزيت الجنة بغير حساب 
وغفر الله لكـ ولوالديكـ ولمن احبكـ واحببته فيه 
جزاكـ الله خير وجعله الله في صحائف اعمالكـ 
واثابكـ خيراً

---

السلام عليكم ورحمة الله وبركاته
جزاكـ الله خير لكن هناكـ شئ وهو
بعد نقل السجل مثلاُ الثالث والثاني من الجدول الاول الى الجدول الثاني
يبقى سجل واحد عند اغلاق البرنامج واعيد فتحه اجد في ان السجلات في الجدول الاول ثلاثة
باركـ الله فيكـ

[khodor1985]

نعم صحيح، قم بالضغط على حفظ قبل اﻹغلاق

---

سوف اعدل على المشروع في المساء ﻷنني أتحدث على الهاتف اﻵن

[مبرمج بلا حدود]

(04-09-15, 05:59 PM)khodor1985 كتب : نعم صحيح، قم بالضغط على حفظ قبل اﻹغلاق

---

سوف اعدل على المشروع في المساء ﻷنني أتحدث على الهاتف اﻵن

السلام عليكم ورحمة الله وبركاته 
سامحني اخي تعبتكـ معي ربي يحفظكـ ويرضى عنكـ 

[khodor1985]

السلام عليكم أخي العزيز ورحمة الله وبركاته

أنظر إلى الصورة جيدا
   

وهذا المشروع :  

  Khodor1985-TransferData.rar (الحجم : 196.74 ك ب / التحميلات : 108)

أتمنى لك التوفيق

ملاحظة : إلى الجدول الثاني في الصورة وليس الجدول الأول، لقد حصل خطأ مطبعي

[مبرمج بلا حدود]

(04-09-15, 09:04 PM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته

أنظر إلى الصورة جيدا


وهذا المشروع :  


أتمنى لك التوفيق

ملاحظة : إلى الجدول الثاني في الصورة وليس الجدول الأول، لقد حصل خطأ مطبعي

وعليكم السلام ورحمة الله وبركاته 
اخي وحبيبي واستاذي الفاضل حفظكـ الله واثابكت خيراً وزادكـ بسطة في العلم والعمل 
وفقكـ الله 
الحمدلله وفضل من الله ثم لكـ البرنامج يعمل 
لكن عند عمل نقل يجب ان اضغط على شكل save الحفظ لكي يتم حفظ العمل والسجل المنقول اما اذا لم اضغط على حفظ يعود السجل للظهور بعد اغلاق وفتح البرنامج هل هناكـ علاج لهذه الحالة جزاكـ الله خير 
وسؤال اخر هل يمكن عند نقل السجل تغير بيانات احد الاعمده مثلاً العنوان 
جزاكـ الله خير وباركـ الله فيكـ

[الطالب]

سلام


مشاركتي هذه قد لا تعتبر مفيده من ناحيت الطريقه المطلوبه

لتجربت الكود يتم اضافت جدولين داتاجريدفيو وزر واحد
وما ننساش قاعدتين بيانات مع تغيير اسماء قاعدت البيانات واسماء الجداول عند اللزوم

توجد في هذا الكود ثلاث طرق لنقل اسطر بين جدولين:
1- ضغط الزر:  مهمته عي نقل مجموعت اسطر بعد تحديدها في الجدول الاول عن طريق الماوس.
2- النقر المزدوج: ويعمل بلنقر مرتين على السطر في الجدول الاول لنقله.
3- السحب والاسقاط: تعمل بسحب سطر من الجدول الاول واسقاطه على الجدول الثاني.

تم وضع جملتين اتصال لاحتمال التطبيق على قاعدتين بيانات.

كود :

Public Class Form1

   Dim connStr1 As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb;"
   Dim connStr2 As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb;"

   Dim sql1 As String = "SELECT * FROM [table1]"
   Dim sql2 As String = "SELECT * FROM [table2]"


   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataGridView1.AllowDrop = True
        DataGridView2.AllowDrop = True
       Call fillDatagridviews()
   End Sub


   Dim dt1 As New DataTable
   Dim dt2 As New DataTable
#Region " تعبئت الجدول من قاعدت البيانات "
   Private Sub fillDatagridviews()
       Dim c1 = New OleDb.OleDbDataAdapter("SELECT * FROM [table1]", connStr1).Fill(dt1)
       DataGridView1.DataSource = dt1

       Dim c2 = New OleDb.OleDbDataAdapter("SELECT * FROM [table2]", connStr2).Fill(dt2)
       DataGridView2.DataSource = dt2
   End Sub
#End Region
#Region " تحديث قاعدت البيانات "
   Private Sub updateDatebase()
       Using da As New OleDb.OleDbDataAdapter(sql1, connStr1)
           Using builder As New OleDb.OleDbCommandBuilder(da)
               da.Update(dt1)
           End Using
       End Using
       Using da As New OleDb.OleDbDataAdapter(sql2, connStr2)
           Using builder As New OleDb.OleDbCommandBuilder(da)
               da.Update(dt2)
           End Using
       End Using
   End Sub
#End Region


   ' الطريقه الاولى
#Region " زر النقل بعد اختيار اسطر من الجدول الاول "
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       For Each row As DataGridViewRow In DataGridView1.SelectedRows
           If DataGridView1.AllowUserToAddRows And row.Index = DataGridView1.Rows.Count - 1 Then Exit For
           dt2.Rows.Add((From cels In row.Cells Select cels.Value).ToArray)
           DataGridView1.Rows.Remove(row)
       Next
       DataGridView2.DataSource = dt2
   End Sub
#End Region

   ' الطريقه الثانيه
#Region " زر النقل بعد النقر المزدوج على سطر في الجدول الاول "
   Private Sub DataGridView1_RowHeaderMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.RowHeaderMouseDoubleClick
       If sender.AllowUserToAddRows And e.RowIndex = sender.Rows.Count - 1 Then Return
       dt2.Rows.Add((From cels In CType(sender, DataGridView).Rows(e.RowIndex).Cells Select cels.Value).ToArray)
       sender.Rows.Remove(sender.Rows(e.RowIndex))
       DataGridView2.DataSource = dt2
       Call updateDatebase()
   End Sub
#End Region

   ' الطر يقه الثالثه
#Region " طريقت سحب سطر من الجدول الاول واسقاطه على الجدول الثاني "
   Private Sub DataGridView1_DragOver(ByVal sender As Object, ByVal e As DragEventArgs) Handles DataGridView1.DragOver
       e.Effect = DragDropEffects.Move
   End Sub

   Private Sub DataGridView1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles DataGridView1.MouseMove
       If (e.Button And MouseButtons.Left) = MouseButtons.Left Then
           If sender.CurrentRow.Index = If(sender.AllowUserToAddRows, sender.Rows.Count - 1, sender.Rows.Count) Then Return
           sender.DoDragDrop(sender.Rows(sender.CurrentRow.Index), DragDropEffects.Move)
       End If
   End Sub

   Private Sub DataGridView2_DragOver(ByVal sender As Object, ByVal e As DragEventArgs) Handles DataGridView2.DragOver
       e.Effect = DragDropEffects.Move
   End Sub

   Private Sub DataGridView2_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles DataGridView2.DragDrop
       If (e.Effect = DragDropEffects.Move) Then
           Dim row As DataGridViewRow = e.Data.GetData(GetType(DataGridViewRow))
           dt2.Rows.Add((From cels In row.Cells Select cels.Value).ToArray)
           DataGridView1.Rows.Remove(DataGridView1.CurrentRow)
           Call updateDatebase()
       End If
   End Sub
#End Region

End Class

موفقين

[khodor1985]

السلام عليكم ورحمة الله وبركاته
أخي العزيز الطالب، أشكرك جزيلا على هذا المجهود وأنا معجب جدا بطريقة تفكيرك في الأمور، أرجو أخي العزيز أن تضع هذه الطرق الثلاث في مثال لكي تعم الفائدة، والأخ مبرمج أحب إصراره المستمر والمتواصل للوصول إلى الغاية.
أخي العزيز مبرمج المثال عندي شغال التمام التمام، ولقد وضعت إجراء الحفظ في الحدث FormClosed ، أي عند الإغلاق سينفذ إجراء الحفظ، أما بالنسبة لتغيير إسم أحد الأعمدة بعد عملية النقل هلا أوضحت ما الفائدة من ذلك؟
ولا تنسى أيضا أن تنفذ فكرة الأخ طالب فهي أيضا ممتازة، ولو طريقة واحدة من الثلاث طرق، فالقاعدة تقول "أعلم الناس من جمع علوم الناس إلى علمه.

أتمنى لك التوفيق

[الطالب]

سلام


اشكرك اخي خدور على مشاعرك الطيبه،،،
وانتم ما شاء الله لديكم ملكت الشرح فيديو صوت وصوره والتي لا استطيعها ابدا لاسباب خاصه.

يمكن سياستي غريبه شوي، وهي انني افضل عدم رفع مشروع جاهز لا يفيد من ناحيت التعليم،
ولكن في نظري البسيط ان اجعل صاحب الموضوع يطبق ليتمكن من التعلم بشكل افضل.
قد اضطر احيانا لوضع كود او مشروع دون شرحه لضيق الوقت.


لقد نسيت ان اضع DataGridView1.AllowDrop = True وكذلك لل DataGridView2 لاني غيرتها من نافذت الخصائص

وتمت اضافتها للكود اعلاه في الحدث Form_Load


موفقين

[khodor1985]

شكرا عزيزي