27-12-23, 08:00 AM
هذا ابسط شكل لها :
كود :
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) ' حذف الحقل القديمقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
