27-12-23, 08:09 AM
(27-12-23, 08:00 AM)Taha Okla كتب : هذا ابسط شكل لها :
كود :
Dim TableName As String = "Transfers" ' اسم الجدول
Dim OldField As String = "Cars" ' اسم الحقل القديم
Dim NewField As String = "Ships" ' اسم الحقل الجديد
eExecuteNonQuery($"ALTER TABLE {TableName} ADD COLUMN [{NewField}] TEXT", conn) ' إصافة حقل جديد
eExecuteNonQuery($"UPDATE {TableName} SET [{NewField}] = [{OldField}]", conn) ' نسخ البيانات من الحقل القديم إلى الجديد
eExecuteNonQuery($"ALTER TABLE {TableName} DROP COLUMN [{OldField}]", conn) ' حذف الحقل القديم
تمام أستاذي
العملية نجحت بشكل ممتاز
جزاك الله خيرا ما قصرت
