السلام عليكم هل هناك طريقه لمسح سجلات
مخزنه في قاعدة البيانات اكسس وفي نفس الوقت
حفظ السجلات بطريقة ما في قاعدة بيانات جديده
من خلال زر بواسطة الفيجول بيسك
يعني اريد الكود البرمجي ان
يحفظ هده البيانات في مكان اخر
وبعد دلك يحدفها لكي ادخل معلومات اخري في الصفوف
وعليكم السلام...
ممكن توضيح اكتر للفكرة!!
(30-03-22, 05:13 PM)اسامه الهرماوي كتب : [ -> ]وعليكم السلام...
ممكن توضيح اكتر للفكرة!!
اريد كود برمجي يحفظ لي هده المعلومه التي في هده الخانه
هنا في قاعدة بيانات اكسس في الخانه التي في الصف s
اعمل جدول جديد يكون ارشيف و ضع محتوايات الصف في string و احذف الصف من الدول الحالي و ضيفه مرة اخرة في الجدول الجديد
(01-04-22, 05:30 AM)SaedAmer كتب : [ -> ]اعمل جدول جديد يكون ارشيف و ضع محتوايات الصف في string و احذف الصف من الدول الحالي و ضيفه مرة اخرة في الجدول الجديد
كيف احفظ هدا الصف هنا وفي قاعدة البيانات مثلا ارشيف كما قلت
او كيف انقل هدا الصف هنا باستعمال زر
(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)
(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
المشكل هو كيف ساضع الصفوف في الكود الدي كتبته لي يعني كيف اجلبه من قاعدة البيانات واضعه في جدول الارشيف
ارسل مثال مرفق بقاعدة البيانات للتعديل عليه
