Đang tải... (xem toàn văn)
Bài giảng cơ sở 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à DatabaseWs: là biến có kiểu WorkspaceName: tên csdl cần tạoLocate: chọn ngôn ngữ sử dụng và mật khẩu csdlOption: lựa chọn phiên bản bộ máy csdl Dim Ws as dao.workspaceDim db as dao.databaseVÝ 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 TableSet TB = DB.CreateTableDef (name)Trong đó:TB: là biến có kiểu TabledefName: tên bảng cần tạoVí dụ:Dim tb as dao.tabledefSet tb = db.CreateTableDef(Khachhang) 3. tạo trườngCấu trúc:Set fd = Tb.CreateField (name, type, size)Trong đó:Fd: biến kiểu trườngName: tên trườngType: kiểu của trườngSize: độ rộng của trườngLư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:dbBooleandbBytedbChardbCurrencydbDatedbDoubledbIntegerdbLongdbLongBinaryLong Binary (OLE Object)dbMemodbNumeric, 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 . 1. Khởi tạo cơ sở dữ liệu. Cấu trúc:Set db = ws.CreateDatabase (name, locale, options)Trong