23-12-23, 02:27 PM
جرب هذا الكود لم اقم بتجربته
تمت كتابته على عجاله
تمت كتابته على عجاله
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
