TAO BANG TRONG CSDL

1. Khởi tạo cơ sở dữ liệu.
Cấu trúc:
Set db = ws.CreateDatabase (na me, 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 T B = 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 tr6êng
CÊu tróc:
Set fd = Tb.CreateField (name, type, size)
Trong ®ã:
Fd: biÕn kiÓu tr6êng
Name: tªn tr6êng
Type: kiÓu cña tr6êng
Size: ®é réng cña tr6êng
L6u ý: ®èi víi kiÓu number hoÆc date kh«ng ®Æt
®é réng cho tr6êng, chØ ¸p dông cho kiÓu text

C¸c kiÓu d÷ liÖu cña tr6ê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