TAO BANG TRONG CSDL

1. Khởi tạo cơ sở dữ liệu.
Cấu trúc:
Set db = ws.CreateDatabase (name, locale, options)
Trong đó:
Db: là biến có kiểu là Database
Ws: là biến có kiểu Workspace
Name: tên csdl cần tạo
Locate: chọn ngôn ngữ sử dụng và mật khẩu csdl
Option: lựa chọn phiên bản bộ máy csdl
Dim Ws as dao.workspace
Dim db as dao.database

Ví dụ 1:
Set db = ws.CreateDatabase("Newdb.mdb", dbLangGeneral, dbEncrypt)

Ví dụ 2:
Set db = ws.CreateDatabase("NewDB.mdb", dbLangGeneral & ";pwd=Password"
, dbEncrypt)
2. Khởi tạo Table
Set TB = DB.CreateTableDef (name)
Trong đó:
TB: là biến có kiểu Tabledef
Name: tên bảng cần tạo
Ví dụ:
Dim tb as dao.tabledef
Set tb = db.CreateTableDef("Khachhang")
3. tạo trường
Cấu trúc:
Set fd = Tb.CreateField (name, type, size)
Trong đó:
Fd: biến kiểu trường
Name: tên trường
Type: kiểu của trường
Size: độ rộng của trường
Lưu ý: đối với kiểu number hoặc date không đặt độ rộng cho trường, chỉ áp dụng cho kiểu text
Các kiểu dữ liệu của trường:
dbBoolean
dbByte
dbChar
dbCurrency
dbDate
dbDouble
dbInteger
dbLong
dbLongBinaryLong Binary (OLE Object)
dbMemo
dbNumeric, dbSingle, dbText
......
Ví dụ:
Set db = OpenDatabase("Khachhang.mdb")
Set td = db.CreateTableDef("Custommer")
With td
.Fields.Append .CreateField("Makh", dbText) .Fields.Append .CreateField("Tenkhach", dbtext)
.Fields.Append .CreateField("Soluong", dbinteger)
End With
db.TableDefs.Append td