[VB.NET] إضافة أو حذف حقل فى قاعدة بيانات باستخدام كود VB.net

PHP كود :

Imports System.Data.SqlClient

' قم بتعديل اسم الخادم وقاعدة البيانات ومعلومات الاتصال وفقاً لبيئتك
Dim connectionString As String = "Data Source=اسم_الخادم;Initial Catalog=اسم_قاعدة_البيانات;Integrated Security=True"
Dim sqlConnection As New SqlConnection(connectionString)

Try
    sqlConnection.Open()

    ' افحص ما إذا كان الحقل "الملاحظات" موجودًا في جدول الموظفين
    Dim checkNotesColumnQuery As String = "SELECT COUNT(*) FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'Employees' AND COLUMN_NAME = 'Notes'"
    Dim sqlCommandCheckNotesColumn As New SqlCommand(checkNotesColumnQuery, sqlConnection)

    Dim notesColumnCount As Integer = Convert.ToInt32(sqlCommandCheckNotesColumn.ExecuteScalar())

    ' إذا لم يكن الحقل موجودًا، قم بإضافته
    If notesColumnCount = 0 Then
        Dim addNotesColumnQuery As String = "ALTER TABLE Employees ADD COLUMN Notes NVARCHAR(25)"
        Dim sqlCommandAddNotesColumn As New SqlCommand(addNotesColumnQuery, sqlConnection)
        sqlCommandAddNotesColumn.ExecuteNonQuery()
    End If

    Console.WriteLine("تمت إضافة الحقل بنجاح أو الحقل موجود بالفعل.")

Catch ex As Exception
    Console.WriteLine("حدث خطأ: " & ex.Message)

Finally
    sqlConnection.Close()
End Try

PHP كود :

Imports System.Data.OleDb

' قم بتعديل اسم قاعدة البيانات ومعلومات الاتصال وفقاً لبيئتك
Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=مسار_قاعدة_البيانات.accdb;"
Dim oleDbConnection As New OleDbConnection(connectionString)

Try
    oleDbConnection.Open()

    ' افحص ما إذا كان الحقل "الملاحظات" موجودًا في جدول الموظفين
    Dim checkNotesColumnQuery As String = "SELECT COUNT(*) FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'Employees' AND COLUMN_NAME = 'Notes'"
    Dim oleDbCommandCheckNotesColumn As New OleDbCommand(checkNotesColumnQuery, oleDbConnection)

    Dim notesColumnCount As Integer = Convert.ToInt32(oleDbCommandCheckNotesColumn.ExecuteScalar())

    ' إذا لم يكن الحقل موجودًا، قم بإضافته
    If notesColumnCount = 0 Then
        Dim addNotesColumnQuery As String = "ALTER TABLE Employees ADD COLUMN Notes NVARCHAR(25)"
        Dim oleDbCommandAddNotesColumn As New OleDbCommand(addNotesColumnQuery, oleDbConnection)
        oleDbCommandAddNotesColumn.ExecuteNonQuery()
    End If

    Console.WriteLine("تمت إضافة الحقل بنجاح أو الحقل موجود بالفعل.")

Catch ex As Exception
    Console.WriteLine("حدث خطأ: " & ex.Message)

Finally
    oleDbConnection.Close()
End Try

PHP كود :

Imports System.Data.SqlClient

' قم بتغيير معلومات الاتصال والاستعلام ونوع الحقل إذا لزم الأمر
Dim connectionString As String = "Data Source=اسم_الخادم;Initial Catalog=اسم_قاعدة_البيانات;Integrated Security=True"
Dim query As String = "EXEC sp_rename 'Transfers.cars', 'Planes', 'COLUMN';"

Using connection As New SqlConnection(connectionString)
    connection.Open()
    Using command As New SqlCommand(query, connection)
        command.ExecuteNonQuery()
    End Using
End Using

PHP كود :

Imports System.Data.OleDb

' قم بتغيير معلومات الاتصال والاستعلام ونوع الحقل إذا لزم الأمر
Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=مسار_قاعدة_البيانات.accdb;"
Dim query As String = "ALTER TABLE Transfers CHANGE COLUMN cars Planes INTEGER;"

Using connection As New OleDbConnection(connectionString)
    connection.Open()
    Using command As New OleDbCommand(query, connection)
        command.ExecuteNonQuery()
    End Using
End Using