1, Đưa DataGrid vào ng d ng :ứ ụ
- DataGrid là m t ActiveX, do v y ph i thêm qua h p tho i ộ ậ ả ộ ạ
Components
- Đi u khi n : Microsoft DataGrid Control 6.0ề ể
- Ch a trong t p tin : MSDATGRD.OCXứ ậ
2, Thi t k l i DataGrid : ế ế ạ b ng cách click ph i chu t lên ằ ả ộ
DataGrid và ch n m c ọ ụ Edit trên ShortCut menu.
-Click ph i chu t l n n a ả ộ ầ ữ đ ch n ki u s a ch a ( Delete, ể ọ ể ử ữ
Insert, Append).
- Hay thay đ i ổđ r ng các c t b ng chu t khi th y xu t hi n ộ ộ ộ ằ ộ ấ ấ ệ
con 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 c a m t ô trên DataGrid :ấ ị ủ ộ
4.1, Dùng thu c tính ộCol và Row. Qua thu c tính ộText đ l y ể ấ
n i dung.ộ
VD : L y n i dung c a ô c t 3, dòng 4ấ ộ ủ ở ộ
DataGrid1.Col = 2
DataGrid1.Row = 3
MsgBox DataGrid1.Text
4, Truy xu t tr c a m t ô trên DataGrid :ấ ị ủ ộ
4.2, S d ng thu c tính ử ụ ộ Bookmark và tên Field.
VD : Mu n l y dòng có Bookmark là ố ấ bmk, tên field c a ủ
recordset là rstA n i k t v i c t mu n l y giá tr là ố ế ớ ộ ố ấ ị tennv
DataGrid1.Bookmark = bmk
MsgBox rstA(“Tennv”).Value
4.3, S d ng thu c tính ử ụ ộ Text, Value c a ủColumns(<s >)ố đ ể
l y n i dung dòng hi n hành : ấ ộ ệ
VD : L y n i dung c t 3 c a dòng hi n 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 d li u c a DataList và DataCombo :ộ ữ ệ ủ
1.1, Các thu c tính dùng khi mu n c p nh t d li u :ộ ố ậ ậ ữ ệ
- DataSource : ch a recordset ngu nứ ồ
- DataField : ch a Field ( trứ ư ng d li u)ờ ữ ệ
1.2, Các thu c tính hi n th d li uộ ể ị ữ ệ
- RowSource : ch a n i dung các 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 d li u trong b ng Khoaấ ữ ệ ả
rsKhoa.Open "Khoa", cnn, adOpenStatic, adLockReadOnly, _
adCmdTable
Set cboKhoa.RowSource = rsKhoa
cboKhoa.ListField = "TenKhoa"
cboKhoa.BoundColumn = "MaKhoa"
K t qu : ví d ch n [ Hoá ]ế ả ụ ọ
cboKhoa.Text = “Hoá”
cboKhoa.BoundText = “HH”
cboKhoa.ListField = “TenKhoa”
cboKhoa.BoundColumn = “MaKhoa”