hải âu > 08-02-17, 07:07 PM
ongke0711 > 08-02-17, 11:27 PM
CurrentDb.Execute "ALTER TABLE Table1 ADD COLUMN HoTen TEXT(50)", dbFailOnError
CurrentDb.Execute "ALTER TABLE Table1 ADD COLUMN NgaySinh DATETIME NULL", dbFailOnError
Dim db As DAO.Database
Dim tdf As TableDef, fld As DAO.Field
Set db = CurrentDb
db.TableDefs.Refresh
Set tdf = db.TableDefs(“Table1”)
Set fld = tdf.CreateField(“HoTen”, dbText, 50)
tdf.Fields.Append fld
hải âu > 09-02-17, 12:41 PM
(08-02-17, 11:27 PM)ongke0711 Đã viết: Có 2 cách để thêm cột cho table:
1. Dùng TableDef.CreateField và TableDef.Fields.Append
2. Dùng câu lệnh SQL: ALTER TABLE ADD COLUMN
Dùng cách 2 thì gọn hơn.
- Ví dụ cách 2: Thêm cột [HoTen] dạng Text 50 ký tự vào table Table1, cột [NgaySinh] dạng DateTime
Mã PHP:CurrentDb.Execute "ALTER TABLE Table1 ADD COLUMN HoTen TEXT(50)", dbFailOnError
CurrentDb.Execute "ALTER TABLE Table1 ADD COLUMN NgaySinh DATETIME NULL", dbFailOnError
- Ví dụ cách 1:
Mã PHP:Dim db As DAO.Database
Dim tdf As TableDef, fld As DAO.Field
Set db = CurrentDb
db.TableDefs.Refresh
Set tdf = db.TableDefs(“Table1”)
Set fld = tdf.CreateField(“HoTen”, dbText, 50)
tdf.Fields.Append fld
hải âu > 09-02-17, 12:42 PM
(08-02-17, 11:27 PM)ongke0711 Đã viết: Có 2 cách để thêm cột cho table:
1. Dùng TableDef.CreateField và TableDef.Fields.Append
2. Dùng câu lệnh SQL: ALTER TABLE ADD COLUMN
Dùng cách 2 thì gọn hơn.
- Ví dụ cách 2: Thêm cột [HoTen] dạng Text 50 ký tự vào table Table1, cột [NgaySinh] dạng DateTime
Mã PHP:CurrentDb.Execute "ALTER TABLE Table1 ADD COLUMN HoTen TEXT(50)", dbFailOnError
CurrentDb.Execute "ALTER TABLE Table1 ADD COLUMN NgaySinh DATETIME NULL", dbFailOnError
- Ví dụ cách 1:
Mã PHP:Dim db As DAO.Database
Dim tdf As TableDef, fld As DAO.Field
Set db = CurrentDb
db.TableDefs.Refresh
Set tdf = db.TableDefs(“Table1”)
Set fld = tdf.CreateField(“HoTen”, dbText, 50)
tdf.Fields.Append fld
hải âu > 09-02-17, 12:44 PM