[AmeenRashed]

بارك الله فيك أخى طه

ردك صحيح  ، وجاء فى وقته

وأطمع منك فى تعديل يضاف للكود التالى بحيث

إذاكان الحقلين  Cod   و   Nageh  غير موجودين فى الجدول Stuedint
بقاعدة البيانات    data.mdb

فيتم تنفيذ إضافتهما  للجدول ( كما هو موجود بالكود التالى ، وما هو الأمر الذى يتيح إضافة قيمة لأى حقل منها )

PHP كود :

Imports System.Data.OleDb
Module Module1
    Sub Main()
        Try
            dataconnection()
            com_gn.Connection = con_gn
            If (con_gn.State = ConnectionState.Closed) Then
                con_gn.Open()
            End If
            com_gn.CommandText = "alter table Stuedint add column Cod text(75)"
            com_gn.ExecuteNonQuery()
            com_gn.CommandText = "alter table Stuedint add column Nageh yesno"
            com_gn.ExecuteNonQuery()
            If (con_gn.State = ConnectionState.Open) Then
                con_gn.Close()
            End If
            MsgBox("تمت إضافة الحقول بنجاح")
        Catch ex As Exception
            MsgBox("فشل إضافة الحقول ")
        End Try
    End Sub
    Public Sub dataconnection()
        If con_gn.State = ConnectionState.Open Then ' اذا كان الاتصال مفتوح اغلقه
            con_gn.Close()
        End If
        con_gn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\School\data.mdb;Persist Security Info=True;Jet OLEDB:Database Password=***"
        If Not con_gn.State = ConnectionState.Open Then
            'افتح الاتصال
            con_gn.Open()
        End If
    End Sub

    '  Fields
    Public con_gn As New OleDbConnection
    Public com_gn As New OleDbCommand

End Module