Bài giảng Microsoft Visual Basic - Bài 3: Sử dụng DataCombo, DataList và DataGrid

MICROSOFT VISUAL BASIC 
I, Sử dụng DataGrid hiển thị dữ liệu 
 1, Thiết lập DataGrid trên Form 
 2, Kết nối DataGrid với nguồn dữ liệu 
 3, Truy xuất nội dung trên DataGrid 
II, Sử dụng DataCombo và DataList 
 1, Giới thiệu 
 2, Chương trình ứng dụng 
Bài 3 : Sử dụng DataCombo, DataList và DataGrid 
Menu Tiếp 
a, Đưa DataGrid vào ứng dụng : 
DataGrid là một điều khiển ActiveX, nên muốn sử dụng chúng ta phải đưa 
vào ứng dụng thông qua chức năng Project – Components – 
Microsoft DataGrid Control 6.0... 
Điều khiển này chứa trong tập tin MSDATGRD.OCX 
1, Thiết lập DataGrid trên Form 
Menu Về 
1, Thiết lập DataGrid trên Form 
b, Thiết kế lại DataGrid 
DataGrid khi đưa vào form mặc định chỉ có hai cột, muốn tăng giảm cột ta có 
thể làm như sau : 
+ nhấn chuột phải trên DataGrid và chọn Edit trên shortcut menu 
+ Sau đó, nhấn chuột phải lần thứ hai trên DataGrid 
Delete : để xoá cột đang được chọn trên DataGrid 
Insert : để chèn thêm một cột vào trước cột đang được chọn trên DataGrid 
Append : thêm một cột vào vị trí sau cùng trên DataGrid 
Có thể định độ rộng của cột bằng chuột khi thấy xuất hiện con trỏ sau  
Menu 
2, Kết nối DataGrid với nguồn dữ liệu 
Ta liên kết DataGrid với Recordset qua thuộc tính Datsource : 
Set .DataSource = 
Ví dụ : Dùng DataGrid hiển thị nội dung của bảng sinhvien 
Dim rsSinhVien As New ADODB.Recordset 
Sub LayNguonSinhVien() 
 If rsSinhVien.State = 1 Then rsSinhVien.Close 
 sql = "SINHVIEN" 
 rsSinhVien.Open sql, cnn, 3, 3 
 Set DataGrid1.DataSource = rsSinhVien 
End Sub 
Private Sub Form_Load() 
 Call Mo_CSDL 
 Call LayNguonSinhVien 
End Sub 
Menu Tiếp 
3, Truy xuất nội dung trên DataGrid 
a, Cách 1: 
Trước khi lấy nội dung của một ô bất kỳ trên DataGrid, ta dùng thuộc tính 
Col và Row để chuyển ô hiện hành trên DataGrid đến ô muốn lấy nội 
dung và dùng thuộc tính Text để lấy nội dung. 
(lưu ý cột, dòng đánh số từ 0) 
Ví dụ : Muốn lấy trị của ô ở cột thứ 3, dòng thứ 4 
DataGrid1.Col = 2 
DataGrid1.Row = 3 
MsgBox DataGrid1.Text 
Menu Về 
3, Truy xuất nội dung trên DataGrid 
b, Cách 2: 
Sử dụng thuộc tính Text của đối tượng Columns() trên DataGrid để lấy 
nội dung trên dòng hiện hành : 
-Ví dụ : Muốn lấy trị cột thứ 3 của dòng hiện hành : 
MsgBox DataGrid1.Columns(2).Text 
Menu 
1, Giới thiệu 
DataList và DataCombo là hai control đặc biệt có khả năng kết nối với 
nguồn dữ liệu. 
Hai control này có thể sử dụng 2 nguồn dữ liệu, một để hiển thị, một để cập 
nhật dữ liệu. 
a, 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) 
b, 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ị) 
Menu Tiếp 
Dim rsKhoa As New ADODB.Recordset 
Sub Nguon_Khoa() 
 If rsKhoa.State = 1 Then rsKhoa.Close 
 sql = "KHOA" 
 Set DataCombo1.DataSource = rsKhoa 
 DataCombo1.DataField = "MaKhoa" 
 Set DataCombo1.RowSource = rsKhoa 
 DataCombo1.ListField = "TenKhoa" 
 DataCombo1.BoundColumn = "MaKhoa" 
End Sub 
Private Sub Form_Load() 
 Call Mo_CSDL 
 Call Nguon_Khoa 
End Sub 
2, Chương trình ứng dụng 
a, Ví dụ về cách lấy nguồn cho DataCombo (Trên 1 RecordSet) 
Menu Về Tiếp 
2, Chương trình ứng dụng 
b, Ví dụ về kết hợp sử dụng TextBox và DataCombo 
Phân tích : 
+ Nguồn dữ liệu sử dụng để 
cập nhật là Bảng Sinh Viên 
+ Nhưng ở Datacombo Khoa lại 
phải hiển thị tên khoa. Mà trong 
bảng Sinh viên chỉ có Mã Khoa. 
Như vậy, ta phải sử dụng 2 
recordset trên DataCombo để 
lấy được dữ liệu ở Sinh Viên và 
Khoa. 
+ Khi di chuyển thì phải chỉ rõ vị 
trí bản ghi hiện hành trên tổng 
số bản ghi. 
Menu Về Tiếp 
2, Chương trình ứng dụng 
Các bước giải bài tập trên : 
1, Viết chương trình kết nối CSDL (trong Module) 
2, Khai báo các Recorset sử dụng cho chương trình 
3, Viết thủ tục lấy nguồn hiển thị cho DataCombo (bảng Khoa) 
4, Viết thủ tục lấy nguồn chính cho chương trình (bảng SinhVien) 
5, Viết thủ tục Form_Load() để thiết lập kết nối dữ liệu 
6, Viết lệnh cho các nút lệnh di chuyển 
7, Viết lệnh hiển thị vị trí hiện hành / tổng bản ghi 
Ví dụ b 
Public cnn As New ADODB.Connection 
Public duong_dan As String, strProvider As String 
Sub Mo_CSDL() 
 duong_dan = App.Path & "\CSDL.MDB" 
 strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & duong_dan 
 If cnn.State = 1 Then cnn.Close 
 cnn.CursorLocation = adUseClient 
 cnn.Open strProvider 
End Sub 
1, Viết chương trình kết nối CSDL (trong Module) 
Ví dụ b 
2, Khai báo các Recorset sử dụng cho chương trình 
Dim rsSinhVien As New ADODB.Recordset 
Dim rsKhoa As New ADODB.Recordset 
Ví dụ b 
3, Viết thủ tục lấy nguồn hiển thị cho DataCombo (bảng Khoa) 
Sub LayNguonKhoa() 
 If rsKhoa.State = 1 Then rsKhoa.Close 
 sql = "KHOA" 
 rsKhoa.Open sql, cnn, 3, 3 
 Set dcboKhoa.RowSource = rsKhoa 
 dcboKhoa.ListField = "TenKhoa" 
 dcboKhoa.BoundColumn = "MaKhoa" 
End Sub 
Ví dụ b 
4, Viết thủ tục lấy nguồn chính cho chương trình (bảng SinhVien) 
Sub LayNguonSinhVien() 
 If rsSinhVien.State = 1 Then rsSinhVien.Close 
 sql = "SINHVIEN" 
 rsSinhVien.Open sql, cnn, 3, 3 
 Set txtMasv.DataSource = rsSinhVien 
 txtMasv.DataField = "MaSV" 
 Set txtHoten.DataSource = rsSinhVien 
 txtHoten.DataField = "HoTenSV" 
 Set txtNgaysinh.DataSource = rsSinhVien 
 txtNgaysinh.DataField = "Ngaysinh" 
 Set txtDiachi.DataSource = rsSinhVien 
 txtDiachi.DataField = "Diachi" 
 Set dcboKhoa.DataSource = rsSinhVien 
 dcboKhoa.DataField = "MaKhoa" 
End Sub 
Ví dụ b 
5, Viết thủ tục Form_Load() để thiết lập kết nối dữ liệu 
Private Sub Form_Load() 
 Call Mo_CSDL 
 Call LayNguonKhoa 
 Call LayNguonSinhVien 
End Sub 
Ví dụ b 
6, Viết lệnh cho các nút lệnh di chuyển 
Private Sub cmdDau_Click() 
 rsSinhVien.MoveFirst 
End Sub 
Private Sub cmdTruoc_Click() 
 If rsSinhVien.AbsolutePosition > 1 Then 
 rsSinhVien.MovePrevious 
 End If 
End Sub 
Private Sub cmdSau_Click() 
 If rsSinhVien.AbsolutePosition < rsSinhVien.RecordCount Then 
 rsSinhVien.MoveNext 
 End If 
End Sub 
Private Sub cmdCuoi_Click() 
 rsSinhVien.MoveLast 
End Sub 
Ví dụ b 
7, Viết lệnh hiển thị vị trí hiện hành / tổng bản ghi 
Private Sub txtMasv_Change() 
On Error Resume Next 
 lblVT = rsSinhVien.AbsolutePosition & "/" & rsSinhVien.RecordCount 
End Sub 
Menu Về Tiếp 
2, Chương trình ứng dụng 
c, Ví dụ về cách kết hợp sử dụng DataCombo và DataGrid 
Phân tích : 
Khi chọn khoa ở Datacombo 
thì ở dưới DataGrid sẽ liệt kê 
các sinh viên của khoa đó. 
1, Kết nối cơ sở dữ liệu 
2, Lấy nguồn khoa 
3, Viết Form_Load() 
4, Lấy nguồn SinhVien 
5, Thủ tục dcboKHOA_Click() 
Ví dụ c 
Public cnn As New ADODB.Connection 
Public duong_dan As String, strProvider As String 
Sub Mo_CSDL() 
 duong_dan = App.Path & "\CSDL.MDB" 
 strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & duong_dan 
 If cnn.State = 1 Then cnn.Close 
 cnn.CursorLocation = adUseClient 
 cnn.Open strProvider 
End Sub 
1, Viết chương trình kết nối CSDL (trong Module) 
Ví dụ c 
2, Lấy nguồn khoa cho DataCombo 
Sub LayNguonKhoa() 
 If rsKHOA.State = 1 Then rsKHOA.Close 
 sql = "KHOA“ 
 rsKHOA.Open sql, cnn, 3, 3 
 Set dcboKhoa.RowSource = rsKHOA 
 dcboKhoa.ListField = "TenKhoa“ 
 dcboKhoa.BoundColumn = "MaKhoa“ 
End Sub 
Ví dụ c 
3, Viết thủ tục Form_Load để kết nối dữ liệu 
Private Sub Form_Load() 
 Call Mo_CSDL 
 Call LayNguonKhoa 
End Sub 
Ví dụ c 
4, Viết thủ tục lấy nguồn SinhVien cho DataGrid 
Sub LayNguonSinhVien() 
 Dim strMaKhoa As String 
 strMaKhoa = dcboKhoa.BoundText 
 If rsSINHVIEN.State = 1 Then rsSINHVIEN.Close 
 sql = "SELECT * FROM SinhVien Where Makhoa ='" & strMaKhoa & "'" 
 rsSINHVIEN.Open sql, cnn, 3, 3 
 Set dgSinhVien.DataSource = rsSINHVIEN 
End Sub 
Ví dụ c 
5, Viết thủ tục dcboKhoa_Click để nối DCBO và DG 
Private Sub dcboKhoa_Click(Area As Integer) 
 If Area = 2 Then 
 Call LayNguonSinhVien 
 End If 
End Sub 
Menu Về 
2, Chương trình ứng dụng 
d, Ví dụ về cách kết hợp sử dụng TextBox và DataGrid 
Các bước giải bài toán : 
1, Kết nối CSDL 
2, Lấy nguồn khoa cho TextBox 
3, Viết thủ tục Form_Load() 
4, Viết lấy nguồn cho DataGrid 
5, Viết thủ tục txtMakhoa_Change() 
6, Viết các nút di chuyển 
Ví dụ d 
Public cnn As New ADODB.Connection 
Public duong_dan As String, strProvider As String 
Sub Mo_CSDL() 
 duong_dan = App.Path & "\CSDL.MDB" 
 strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & duong_dan 
 If cnn.State = 1 Then cnn.Close 
 cnn.CursorLocation = adUseClient 
 cnn.Open strProvider 
End Sub 
1, Viết chương trình kết nối CSDL (trong Module) 
Ví dụ d 
2, Viết thủ tục lấy nguồn Khoa cho các ô TextBox 
Sub LayNguonKhoa() 
 If rsKHOA.State = 1 Then rsKHOA.Close 
 sql = "KHOA" 
 rsKHOA.Open sql, cnn, 3, 3 
 Set txtMakhoa.DataSource = rsKHOA 
 txtMakhoa.DataField = "MaKhoa" 
 Set txtTenkhoa.DataSource = rsKHOA 
 txtTenkhoa.DataField = "TenKhoa" 
End Sub 
Ví dụ d 
3, Viết thủ tục Form_Load để kết nối dữ liệu 
Private Sub Form_Load() 
 Call Mo_CSDL 
 Call LayNguonKhoa 
End Sub 
Ví dụ d 
5, Viết thủ tục lấy nguồn Sinh Viên cho DataGrid 
Sub LayNguonSinhVien() 
 Dim strMaKhoa As String 
 strMaKhoa = txtMakhoa.Text 
 If rsSINHVIEN.State = 1 Then rsSINHVIEN.Close 
 sql = "SELECT * FROM SinhVien Where Makhoa ='" & strMaKhoa & "'" 
 rsSINHVIEN.Open sql, cnn, 3, 3 
 Set dgSinhVien.DataSource = rsSINHVIEN 
End Sub 
Ví dụ d 
5, Viết thủ tục txtMaKhoa_Change() để nối TextBox và DataGrid 
Private Sub txtMakhoa_Change() 
On Error Resume Next 
 Call LayNguonSinhVien 
End Sub 
Ví dụ d 
Private Sub cmdDau_Click() 
 rsKHOA.MoveFirst 
End Sub 
Private Sub cmdTruoc_Click() 
 If rsKHOA.AbsolutePosition > 1 Then 
 rsKHOA.MovePrevious 
 End If 
End Sub 
Private Sub cmdSau_Click() 
 If rsKHOA.AbsolutePosition < rsKHOA.RecordCount Then 
 rsKHOA.MoveNext 
 End If 
End Sub 
Private Sub cmdCuoi_Click() 
 rsKHOA.MoveLast 
End Sub 
6, Viết lệnh cho các nút lệnh di chuyển