۱۸ آذر ۱۳۸۹, ۰۹:۴۶ عصر
ضمن سلام
در برخی مواقع این نیاز وجود دارد که به جدول موجود یک فیلد خاص اضافه گردد
با استفاده از دستور Alter Table میتوان به این هدف نزدیک شد
به طور مثال اجرای دستور ذیل منجر به ایجاد شدن یک فیلد جدید با عنوان YourSampleField از نوع داده Text و با حداکثر طول مجاز 20 کاراکتر در دیتابیسی که در مسیر C:\Sample.mdb قرار دارد خواهد شد
در برخی مواقع این نیاز وجود دارد که به جدول موجود یک فیلد خاص اضافه گردد
با استفاده از دستور Alter Table میتوان به این هدف نزدیک شد
به طور مثال اجرای دستور ذیل منجر به ایجاد شدن یک فیلد جدید با عنوان YourSampleField از نوع داده Text و با حداکثر طول مجاز 20 کاراکتر در دیتابیسی که در مسیر C:\Sample.mdb قرار دارد خواهد شد
کد:
Function AddField()
Dim dbsNew As DAO.Database
Set dbsNew = DBEngine.Workspaces(0).OpenDatabase("C:\Sample.mdb")
dbsNew.Execute ("ALTER TABLE YourTargetTable ADD COLUMN YourSampleField Text(20)")
End Functionگو اینکه تا حد امکان طراحی اولیه باید به گونه ای باشد که نیاز به تغییر در طراحی جداول وجود نداشته باشد , چرا که در برخی موارد و با توجه به ماهیت تغییرات این احتمال وجود دارد که امکان تغییر از راه دور وجود نداشته باشد