Tham khảo tài liệu ''giáo trình phân tích nguyên lý ứng dụng những kỹ năng để xử lý lỗi bằng lệnh on error goto p5'', công nghệ thông tin, quản trị web phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
! O W N Copyright Nguyễn Sơn Hải to k lic c u -tr a c k - Lệnh qr.SQL= để gán lệnh SQL cần thực thi vào Query Tuỳ thuộc vào câu lệnh SQL mà query thực Ví dụ: qr.SQL = "DELETE * FROM canbo" lệnh - Lệnh qr.Excute xoá tất ghi bảng cán bộ; để thi hành câu lệnh SQL thiết lập Lệnh tương đương nhấn nút Run query chế độ thiết kế; - Lệnh qr.Close để đóng query giải phóng nhỡ khơng cần làm việc đến Sau số ví dụng sử dụng biến QueryDef để tạo số loại query xử lý liệu môi trường VBA Ví dụ 1: Tạo DELETE query để xố danh sách cán có tuổi lớn 60 khỏi bảng canbo (cán nghỉ hưu) Dim db As DAO.Database Dim qr As DAO.QueryDef Set db = CurrentDb Set qr = db.CreateQueryDef("") qr.SQL="DELETE * FROM canbo WHERE Year(Date())- " _ & " Year(Ngaysinh)>=60" qr.Execute qr.Close Ví dụ 2: Giả sử thêm trường bảng cán có tên luongchinh Tạo UPDATE query để tính giá trị cho trường = hesoluong * 290000 Dim db As DAO.Database Dim qr As DAO.QueryDef Set db = CurrentDb Set qr = db.CreateQueryDef("") qr.SQL = "UPDATE canbo SET canbo.luongchinh = hesoluong * 290000" qr.Execute qr.Close Trang 174 d o o c m C m w o d o w w w w w C lic k to bu Giáo trình Microsoft Access 2000 w y N y ® h a n g e Vi e bu XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N Copyright Nguyễn Sơn Hải to k lic c u -tr a c k 1.5 Đối tượng TableDef Đối tượng TableDef dùng để tham chiếu tới bảng liệu (Table) CSDL Thơng qua đối tượng thiết kế, chỉnh sửa cấu trúc bảng liệu chế độ Run-time VBA chế độ thiết kế bảng Design View Một số thuộc tính quan trọng TableDef Thuộc tính Name Cho biết tên bảng gán vào biến kiểu TableDef Thuộc tính RecordCount Cho biết tổng số ghi có bảng gán biến TableDef Thuộc tính DateCreated Cho biết thời gian tạo bảng gán vào biển kiểu TableDef Thuộc tính Fields Để tham chiếu tới trường bảng Đây thuộc tính hay sử dụng TableDef Thực chất, Field đối tượng, có tập thuộc tính phương thức riêng cho thuộc tính Dưới thủ tục hiển thị tên tất các trường bảng (ngầm định CSDL khai báo gán biến db - kiểu Database) Ví dụ 1: Sub LietKeTenTruong(tenbang As String) Dim tbl As DAO.TableDef Trang 175 d o o c m C m w o d o w w w w w C lic k to bu Giáo trình Microsoft Access 2000 w y N y ® h a n g e Vi e bu XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N Copyright Nguyễn Sơn Hải to k lic c u -tr a c k Set tbl = db.TableDefs(tenbang) For i = To tbl.Fields.Count - MsgBox tbl.Fields(i).Name Next End Sub Một số phương thức TableDef Phương thức CreateTableDef Để tạo bảng VBA Cú pháp tạo bảng sau: Set tbl = db.CreateTableDef() ‘ ‘ Các thủ tục tạo trường cho bảng ‘ db.TableDefs.Append tbl Trong đó: - db – biến kiểu Database gán CSDL cần làm việc (bảng tạo CSDL này); - tên bảng cần tạo - Lệnh db.TableDefs.Append tbl lệnh ghi cấu trúc bảng khai báo lên CSDL định Phương thức CreateField Để tạo trường cho bảng kiểu TableDef Để thêm trường lên bảng, sử dụng cú pháp sau: tbl.Fields.Append tbl.CreateField(,,) Trong đó: - - tên trường cần tạo; - - tuỳ chọn để khai báo kiểu liệu trường cần tạo Kiểu liệu khai báo theo số sau: Trang 176 d o o c m C m w o d o w w w w w C lic k to bu Giáo trình Microsoft Access 2000 w y N y ® h a n g e Vi e bu XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N Copyright Nguyễn Sơn Hải to k lic c u -tr a c k Giá trị: Tương ứng với kiểu dbBoolean Boolean dbByte Byte dbChar Char dbCurrency Currency dbDate Date/Time dbDecimal Decimal dbDouble Double dbFloat Float dbGUID GUID dbInteger Integer dbLong Long dbMemo Memo dbNumeric Numeric dbSingle Single dbText Text dbTime Time - tuỳ chọn để khai báo độ lớn liệu cần Tiếp theo ví dụ minh hoạ cách tạo cấu trúc bảng liệu tổng hợp hướng dẫn trình bày Ví dụ 2: Sub TaoBangMoi() On Error GoTo Loi Dim tbl As DAO.TableDef Set tbl = db.CreateTableDef("NewTable") tbl.Fields.Append tbl.Fields.Append tbl.Fields.Append tbl.Fields.Append tbl.Fields.Append tbl.CreateField("ID", dbInteger) tbl.CreateField("Name", dbText) tbl.CreateField("Age", dbByte) tbl.CreateField("DateBirth", dbDate) tbl.CreateField("Comment", dbMemo) db.TableDefs.Append tbl Exit Sub Trang 177 d o o c m C m w o d o w w w w w C lic k to bu Giáo trình Microsoft Access 2000 w y N y ® h a n g e Vi e bu XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N Copyright Nguyễn Sơn Hải to c Loi: If Err.Number = 3010 Then MsgBox "Đã tồn bảng có tên " + tbl.Name End If End Sub 1.6 Đối tượng Relation Đối tượng Relation dùng để tạo kết nối (RelationShip) bảng CSDL Access Dưới ví dụ tạo kết nối bảng hoadon khach CSDL Quản lý bán hàng Sub CreatRelationShip() On Error GoTo Loi Dim db As DAO.Database Dim rls As DAO.Relation Set db = CurrentDb Set rls = db.CreateRelation("TaoQuanHe", "khach", "hoadon", dbRelationUpdateCascade) rls.Fields.Append rls.CreateField("khachID") rls.Fields("khachID").ForeignName = "khachID" db.Relations.Append rls Loi: If Err.Number = 3012 Then MsgBox "Đã tồn quan hệ !" End If End Sub Trong truờng hợp tồn kết nối này, thông báo lỗi tiếng Việt "Đã tồn quan hệ !" xuất Bài toán đặt lọc liệu Đặt lọc lớp toán phổ dụng thực tế Với tốn phải có u cầu cụ thể lọc liệu (điều kiện lọc) Kết trả tập hợp ghi, kết xuất form in máy in dạng report Dưới minh hoạ toán đặt lọc sau xây dựng hoạt động: Trang 178 d o m o m o c u -tr a c k C lic k to k C lic w w w d o w w w w bu Giáo trình Microsoft Access 2000 h a n g e Vi e y N y ® XC bu F- er O W w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ... tượng Relation Đối tượng Relation dùng để tạo kết nối (RelationShip) bảng CSDL Access Dưới ví dụ tạo kết nối bảng hoadon khach CSDL Quản lý bán hàng Sub CreatRelationShip() On Error GoTo Loi Dim... Time - tuỳ chọn để khai báo độ lớn liệu cần Tiếp theo ví dụ minh hoạ cách tạo cấu trúc bảng liệu tổng hợp hướng dẫn trình bày Ví dụ 2: Sub TaoBangMoi() On Error GoTo Loi Dim tbl As DAO.TableDef... bảng cần tạo - Lệnh db.TableDefs.Append tbl lệnh ghi cấu trúc bảng khai báo lên CSDL định Phương thức CreateField Để tạo trường cho bảng kiểu TableDef Để thêm trường lên bảng, sử dụng cú pháp sau: