- Về thái độ:
4. Sử dụng lớp ServiceBase
NỘI DUNG BÀI GIẢNG LÝ THUYẾT
Trong ví dụ 5.1 và 5.2, chúng ta đã kết nối với cơ sở dữ liệu SQL có tên De1 trên server HTC-VAIO\Huyen. Cơ sở dữ liệu này gồm 2 bảng:
SanPham MaSP
(mã sản phẩm (tên sản phẩm) TenSP (nhà cung NhaCC cấp)
DonGia (đơn giá)
1 LCD Toshiba 32 inch Toshiba 6690000
2 LCD Toshiba 40 inch Toshiba 10900000
3 LCD LG 32 inch LG 5290000
4 LCD Sony 40 inch Sony 14900000
5 LED Samsung 22 inch Samsung 5790000
127 SoHD (số hóa đơn) NgayBan (ngày bán) MaSP (mã sản phẩm) Ngươiban
(người bán) (số lượng) SoLuong (thành tiền) ThanhTien
1 '2/1/2011' 1 An 2 2 '2/1/2011' 2 Bình 3 3 '2/1/2011' 3 Vân 2 4 '2/3/2011' 4 Bình 3 5 '3/1/2011' 5 An 1 6 '3/1/2011' 1 An 1 7 '3/2/2011' 1 Vân 2 8 '4/1/2011' 2 Vân 2 9 '4/1/2011' 3 An 2 10 '4/1/2011' 3 An 1 11 '4/1/2011' 4 Bình 5 12 '4/1/2011' 4 Vân 3
- Đếm số sản phẩm của Toshiba: (sử dụng thủ tục Tao_ket_noi() đã định nghĩa trong ví dụ 5.2)
Tao_ket_noi() Ket_noi.Open()
Dim lenhsql1 As String = "select count(masp) from sanpham " & _ where NhaCC='TOSHIBA'"
Dim cmd1 As New SqlClient.SqlCommand(lenhsql1, Ket_noi) MsgBox(cmd1.ExecuteScalar)
Ket_noi.Close()
- Cập nhật thành tiền bằng đơn giá nhân số lượng Tao_ket_noi()
Ket_noi.Open()
Dim lenhsql2 As String
Lenhsql2 = "update banhang set thanhtien = soluong * " &_ "(select dongia from sanpham where banhang.masp=sanpham.masp)" Dim cmd2 As New SqlClient.SqlCommand(lenhsql2, Ket_noi)
Cmd2.ExecuteNonQuery()
Ket_noi.Close()
- Bổ sung vào bảng Sanpham một bản ghi mới với mã sản phẩm là 6, tên sản phẩm là LCD Sony 32inch, hãng sản xuất SONY, đơn giá 10900000.
Tao_ket_noi() Ket_noi.Open()
128 Dim lenhsql3 As String = "insert sanpham values " & _ "(6,'LCD Sony 32 inch', 'SONY',10900000)"
Dim cmd3 As New SqlClient.SqlCommand(lenhsql3, Ket_noi) Cmd3.ExecuteNonQuery()
Ket_noi.Close()