Bài giảng khởi tạo cấu trúc dữ liệu

Bài giảng khởi tạo cấu trúc dữ liệu

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

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(“Tenkha ch", dbtext)

.Fields.Append CreateField(“Soluong",

dbinteger)

End With

db.TableDefs.Append td