Xóa field, dùng phương thức:
tdf.Fields.Delete "Tên field" Thêm field, dùng hai phương thức:
set fld=tdf.CreateField("Tên field", [kiểu field], [kích thước field] tdf.Fields.Append fld
Đổi tên field, ta thay đổi thuộc tính Name của field.
BÀI TẬP
Vd 1 : Thủ tục tạo table mới với các đối số nhập từ bàn phím gồm tên table, tên field và kiểu field (Có dùng kỹ thuật bắt lỗi khi tạo một table đã có).
Sub tao_table()
Dim dbs as Database, tdf as TableDef, fld as Field
Dim ten_table as String, ten_field as String, i as Integer, n as Integer, kieu_field as Integer On Error Goto Xu_ly_loi
Set dbs=CurrentDB() ‘hoặc Set dbs=DBEngine.Workspaces(0).Databases(0) Ten_table=InputBox(“Ten table : “)
Set tdf=dbs.CreateTableDef(ten_table) n=InputBox(“So field : “)
For i=1 To n
Ten_Field=InputBox(“Ten field “ & i) Kieu_Field=InputBox(“Kieu field “ & i) Set fld=tdf.CreateField(Ten_field, Kieu_field) tdf.Fields.Append fld
Next
dbs.Tabledefs.Append tdf
MsgBox “Da tao duoc table “ & ten_table Thoat:
Exit Sub Xu_ly_loi:
MsgBox “Table” & ten_table & “da co” Resume Thoat
End Sub
Vd 2 : Thủ tục xóa một table khỏi CSDL hiện hành. Tên table cần xóa nhập từ bàn phím. Nếu table không tồn tại sẽ in ra thông báo “Table chưa có”.
Sub Xoa_table()
Dim dbs as Database, Ten_table as String Set dbs= CurrentDB()
On Error Goto Xu_ly_loi
Ten_table = InputBox(“Ten table : ”) dbs.Tabledefs.Delete Ten_table
MsgBox “Table ” & Ten_table & “ da duoc xoa” Thoat :
Exit Sub Xu_ly_loi :
MsgBox “Table ” & Ten_table & “ khong co”
MsgBox Error$ ‘Cho biết lỗi gì đã xẩy ra
Resume Thoat ‘tiếp tục từ câu lệnh có nhãn Thoat End Sub
Vd 3 : Thủ tục in danh sách tên các table của CSDL hiện hành : Sub Ds_table()
Dim dbs as Database, n as Integer, i as Integer Set dbs=CurrentDB()
n=dbs.Tabledefs.count
MsgBox “So table cua CSDL hien hanh la : “ & n For i=1 To n
MsgBox “Ten table thu ” & i & “ la : “ & dbs.Tabledefs(i).Name Next
Các đối tượng phục vụ việc xử lý dữ liệu :
Đối tượng kiểu Database : Dùng để thao tác với một CSDL
Đối tượng kiểu Tabledef : Dùng để tạo, xóa, sửa cấu trúc của Table Đối tượng kiểu Querydef : Dùng để tạo, xóa, sửa cấu trúc của Query Đối tượng kiểu RecordSet: Dùng để xử lý các mẫu tin của CSDL
Các chức năng xử lý dữ liệu: Xếp thứ tự, rút trích, dò tìm, thêm, xóa, sửa các mẫu tin.
1. Biến kiểu RecordSet
Sau khi khai báo một biến kiểu Database và cho nó tham chiếu đến một CSDL, ta có thể dùng biến này để : Tạo và sử dụng các biến tham chiếu đến các đối tượng của CSDL đó như TableDef, QueryDef, RecordSet.
Để xử lý các mẫu tin của Table, Query hoặc Table/Query nền của Form/Report, ta dùng các biến kiểu RecordSet
Có 3 loại RecordSet :
Kiểu RecordSet Số mẫu tin Nội dung mẫu tin
RecordSet kiểu Table