[Kamil]

(23-12-23, 03:33 PM)AmeenRashed كتب : أشكرك أخى Kamil  على ردك
قاعدة البيانات ليست بـ SQL بل بـ
" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\........... "
سوف أقوم بالتعديل اللازم  لاحقاً  ربما تنجح التجربة ..

العقو اخي العزيز

هذا الكود البديل

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