[hafid33]

السلام عليكم هل هناك طريقه لمسح سجلات

مخزنه في قاعدة البيانات اكسس وفي نفس الوقت

حفظ السجلات بطريقة ما في قاعدة بيانات جديده

من خلال زر بواسطة الفيجول بيسك

يعني اريد الكود البرمجي ان

يحفظ هده البيانات في مكان اخر

وبعد دلك يحدفها لكي ادخل معلومات اخري في الصفوف

[اسامه الهرماوي]

وعليكم السلام...
ممكن توضيح اكتر للفكرة!!

[hafid33]

(30-03-22, 05:13 PM)اسامه الهرماوي كتب : وعليكم السلام...
ممكن توضيح اكتر للفكرة!!

اريد كود برمجي يحفظ لي هده المعلومه التي في هده الخانه 

هنا في قاعدة بيانات اكسس في الخانه التي في الصف s

[SaedAmer]

اعمل جدول جديد يكون ارشيف و ضع محتوايات الصف في string و احذف الصف من الدول الحالي و ضيفه مرة اخرة في الجدول الجديد

[hafid33]

(01-04-22, 05:30 AM)SaedAmer كتب : اعمل جدول جديد يكون ارشيف و ضع محتوايات الصف في string و احذف الصف من الدول الحالي و ضيفه مرة اخرة في الجدول الجديد

كيف احفظ هدا الصف هنا وفي قاعدة البيانات مثلا ارشيف كما قلت

---

او كيف انقل هدا الصف هنا باستعمال زر

[SaedAmer]

(01-04-22, 07:10 PM)hafid33 كتب :

(01-04-22, 05:30 AM)SaedAmer كتب : اعمل جدول جديد يكون ارشيف و ضع محتوايات الصف في string و احذف الصف من الدول الحالي و ضيفه مرة اخرة في الجدول الجديد

كيف احفظ هدا الصف هنا وفي قاعدة البيانات مثلا ارشيف كما قلت

---

او كيف انقل هدا الصف هنا باستعمال زر

هذا الكود لجلب قيمة الصف الي انت واقف عليه
الطريقة الاولى :

كود :

Dim poss As Integer = DataGridView2.CurrentRow.Index
Dim p0 = DataGridView2.Rows(poss).Cells(0).Value
Dim p1 = DataGridView2.Rows(poss).Cells(1).Value
Dim p2 = DataGridView2.Rows(poss).Cells(2).Value
Dim p3 = DataGridView2.Rows(poss).Cells(3).Value
Dim p4 = DataGridView2.Rows(poss).Cells(4).Value

الطريقة التانية :

كود :

      Dim ssmms As String = ""
       Dim xx As Integer = DataGridView2.CurrentRow.Index

       Dim x(DataGridView2.ColumnCount) As String
       For ii = 0 To DataGridView2.ColumnCount
           Try
               x(ii) = DataGridView2.Rows(xx).Cells(ii).Value.ToString
               Application.DoEvents()
           Catch
           End Try
       Next





       For ii = 0 To DataGridView2.ColumnCount
           'Dim x(DataGridView1.Rows(xx).Cells(ii).Value.ToString) As String
           'MsgBox(x(ii))
           Try

               ssmms = ssmms + (x(ii) & ",")


           Catch
           End Try
       Next

       MsgBox(ssmms)

[hafid33]

(01-04-22, 08:13 PM)SaedAmer كتب :

(01-04-22, 07:10 PM)hafid33 كتب :

(01-04-22, 05:30 AM)SaedAmer كتب : اعمل جدول جديد يكون ارشيف و ضع محتوايات الصف في string و احذف الصف من الدول الحالي و ضيفه مرة اخرة في الجدول الجديد

كيف احفظ هدا الصف هنا وفي قاعدة البيانات مثلا ارشيف كما قلت

---

او كيف انقل هدا الصف هنا باستعمال زر

هذا الكود لجلب قيمة الصف الي انت واقف عليه
الطريقة الاولى :

كود :

Dim poss As Integer = DataGridView2.CurrentRow.Index
Dim p0 = DataGridView2.Rows(poss).Cells(0).Value
Dim p1 = DataGridView2.Rows(poss).Cells(1).Value
Dim p2 = DataGridView2.Rows(poss).Cells(2).Value
Dim p3 = DataGridView2.Rows(poss).Cells(3).Value
Dim p4 = DataGridView2.Rows(poss).Cells(4).Value

الطريقة التانية :

كود :

      Dim ssmms As String = ""
       Dim xx As Integer = DataGridView2.CurrentRow.Index

       Dim x(DataGridView2.ColumnCount) As String
       For ii = 0 To DataGridView2.ColumnCount
           Try
               x(ii) = DataGridView2.Rows(xx).Cells(ii).Value.ToString
               Application.DoEvents()
           Catch
           End Try
       Next





       For ii = 0 To DataGridView2.ColumnCount
           'Dim x(DataGridView1.Rows(xx).Cells(ii).Value.ToString) As String
           'MsgBox(x(ii))
           Try

               ssmms = ssmms + (x(ii) & ",")


           Catch
           End Try
       Next

       MsgBox(ssmms)

الف شكر اخي لكن كيف احفظه في قاعدة البيانات في جدول ارشيف ويظهر في dgv 2

---

هدا الكود الدي اجلب به جدول قاعدة البيانات واضع قاعدة البيانات في

dgv

كود :

  da = New OleDbDataAdapter("select*from vente ", con)
       dt = New DataTable
       da.Fill(dt)
       DataGridView3.DataSource = dt

---

المشكل هو كيف ساضع الصفوف في الكود الدي كتبته لي يعني كيف اجلبه من قاعدة البيانات واضعه في جدول الارشيف

[SaedAmer]

ارسل مثال مرفق بقاعدة البيانات للتعديل عليه

[hafid33]

SaedAmerارسل مثال مرفق بقاعدة البيانات للتعديل عليه

https://www.mediafire.com/file/n6cnx71h1...1.rar/file