افزودن و حذف ستون اکسس

[adib202]

با سلام
من حذف کردن و اضافه کردن یک ستون رو تو تیبل موجود تو بانک اکسس با کد میخوام.کسی میتونه کمک کنه؟؟

[m.4.r.m]

با چه ابزاری ؟
Adodc ?
Adodb ?

[moghadam1372]

باسلام
با adodc

[sadeg04]

سلام
اگر كسي طريقه كپي جدول بانك اطلاعات اكسس و تغيير نام جدول رو با برنامه نويسي ميدونه لطفا بگه

[vbhamed]

سلام
بهترين روش استفاده از دستورات SQL براي اينكار هست كه اگر بعدا بانكتون هم عوض شد مثلا Sql Server بازم برنامتون درست كار مي‌كنه
براي آموزش دستورات SQL به سايت معروف زير بريد كه با راحت ترين روشها دستورات رو آموزش ميده
http://www.w3schools.com/sql/sql_create_table.asp

اما براي اجراي اين نوع دستورات Sql كه به دستورات DDL يا Data Definition Language معروف هستند مي‌تونيد از نمونه زير كمك بگيريد كه با اجراي دستورات زير يك جدول به نام Person با فيلدهاي نمونه در بانك ايجاد مي‌شود

براي كپي شما بايد ابتدا با دستور Create Table و مشابه مثال، جدول Table2 رو دقيقا مشابه با جدول Table1 و با همون فيلدها و ستونهاش هم دقيقا به همون ترتيبي كه در Table1 هستند، ايجاد كنيد بعد با دستور Insert Into Table2 Select * From Table1 كليه محتويات Table1 رو در Table2 كپي كنيد

براي تغيير نام جدول هم، كپي جدول رو طبق دستور قبلي انجام بدين بعد با دستور Drop Table Table1 جدول Table1 رو پاك كنيد، اينطوري انگار Table1 به Table2 تغيير نام پيدا كرده، البته اگر جداولتون Relation يا ارتباطاتي هم دارند اونها رو هم ميشه با دستورات SQL پياده سازي كرد كه به همون سايت يا منابع آموزشي SQL مراجعه كنيد (راهنماي دستور Create Table و كلمات كليدي Primary Key و Foreign Key)
http://www.w3schools.com/sql/sql_foreignkey.asp
http://www.w3schools.com/sql/sql_primarykey.asp

دستورات آبي رنگي كه در بالا اومده رو هم مي‌تونيد بوسيله همين كد و با جايگزيني در رشته جلوي cnn.Excute اجرا كنيد

Private Sub Form_Load()

Dim cnn As New ADODB.Connection

With cnn
.Provider = "Microsoft.JET.OLEDB.4.0"
.ConnectionString = App.Path + "\Test.mdb"
.CursorLocation = adUseClient
.Open
.Execute "CREATE TABLE Persons (PersonID int, LastName varchar(255), FirstName varchar(255), Address varchar(255), City VarChar(255))"
.Close
End With

End Sub