Bài giảng lập trình trực quan bài 4 datagrid

1, Đưa DataGrid vào ứng dụng : - DataGrid ActiveX, phải thêm qua hộp thoại Components - Điều khiển : Microsoft DataGrid Control 6.0 - Chứa tập tin : MSDATGRD.OCX 2, Thiết kế lại DataGrid : cách click phải chuột lên DataGrid chọn mục Edit ShortCut menu -Click phải chuột lần để chọn kiểu sửa chữa ( Delete, Insert, Append) - Hay thay đổi độ rộng cột chuột thấy xuất trỏ  3, Liên kết RecordSet với DataGrid : Ta liên kết qua thuộc tính DataSource : Set < Tên DataGrid>.DataSource = Recordset 4, Truy xuất giá trị ô DataGrid : 4.1, Dùng thuộc tính Col Row Qua thuộc tính Text để lấy nội dung VD : Lấy nội dung ô cột 3, dòng DataGrid1.Col = DataGrid1.Row = MsgBox DataGrid1.Text 4, Truy xuất trị ô DataGrid : 4.2, Sử dụng thuộc tính Bookmark tên Field VD : Muốn lấy dòng có Bookmark bmk, tên field recordset rstA nối kết với cột muốn lấy giá trị tennv DataGrid1.Bookmark = bmk MsgBox rstA(“Tennv”).Value 4.3, Sử dụng thuộc tính Text, Value Columns() để lấy nội dung dòng hành : VD : Lấy nội dung cột dòng hành MsgBox DataGrid1.Columns(2).Text (gTrị hiển thị) MsgBox DataGrid1.Columns(2).Value (gTrị lưu trữ) 1, Các thuộc tính liệu DataList DataCombo : 1.1, Các thuộc tính dùng muốn cập nhật liệu : - DataSource : chứa recordset nguồn - DataField : chứa Field ( trường liệu) 1.2, Các thuộc tính hiển thị liệu - RowSource : chứa nội dung mẩu tin - ListField : chọn trường hiển thị nội dung - BoundColumn : cột nội dung lưu trữ ( không hiển thị) - BoundText : nội dung lưu trữ ( không hiển thị) 2, Ví dụ với DataCombo1 : lấy liệu bảng Khoa rsKhoa.Open "Khoa", cnn, adOpenStatic, adLockReadOnly, _ adCmdTable Set cboKhoa.RowSource = rsKhoa cboKhoa.ListField = "TenKhoa" cboKhoa.BoundColumn = "MaKhoa" Kết : ví dụ chọn [ Hoá ] cboKhoa.Text = “Hoá” cboKhoa.BoundText = “HH” cboKhoa.ListField = “TenKhoa” cboKhoa.BoundColumn = “MaKhoa” 3, Ví dụ với DataList : hiển thị tên SV khoa sql = "select * from sinhvien where makhoa='" & _ cboKhoa.BoundText & "'“ If rsSV.State adStateClosed Then rsSV.Close rsSV.Open sql, cnn, adOpenStatic, adLockOptimistic, _ adCmdText Set lstSV.RowSource = rsSV lstSV.ListField = "HoTen" ComboBox ListBox 4, Cập Nhật liệu qua DataList DataCombo : - Chú ý phải nhập đầy đủ thông tin thuộc tính liệu : DataSource, DataField, RowSource, LisstField, BoundColumn -Thứ tự đặt giá trị thuộc tính cho điều khiển : + Mở RecordSet cho DataSource (nếu có) + Mở RecordSet cho RowSource + Đặt giá trị cho DataSource DataField + Đặt giá trị cho RowSource, ListField, BoundColumn ... Text để lấy nội dung VD : Lấy nội dung ô cột 3, dòng DataGrid1 .Col = DataGrid1 .Row = MsgBox DataGrid1 .Text 4, Truy xuất trị ô DataGrid : 4. 2, Sử dụng thuộc tính Bookmark tên Field VD : Muốn lấy...3, Liên kết RecordSet với DataGrid : Ta liên kết qua thuộc tính DataSource : Set < Tên DataGrid> .DataSource = Recordset 4, Truy xuất giá trị ô DataGrid : 4. 1, Dùng thuộc tính Col Row Qua... giá trị tennv DataGrid1 .Bookmark = bmk MsgBox rstA(“Tennv”).Value 4. 3, Sử dụng thuộc tính Text, Value Columns() để lấy nội dung dòng hành : VD : Lấy nội dung cột dòng hành MsgBox DataGrid1 .Columns(2).Text