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 . 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. & ";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. 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