TT. Visual Basic
Trang 78
Chương 5

ĐỐI TƯỢNG DỮ LIỆU TỪ XAMục tiêu:
Chương này nhằm giới thiệu cho sinh viên cách thức sử dụng thư
viện đối tượng RDO để truy cập dữ liệu, cách thức truy cập dữ liệu trước đây
đối với cơ sở dữ liệu ở máy từ xa.
Học xong chương này, sinh viên phải nắm được các vấn đề sau:
- Thiết lập tên nguồn dữ liệu (Data Source Name) trên Windows.
- Sử dụng Remote Data Control để truy cập d
ữ liệu.
- Đối tượng UserConnection cũng như thư viện đối tượng RDO.
Kiến thức có liên quan:
Giáo trình Visual Basic, Chương 10.
Tài liệu tham khảo:
- Visual Basic 6 Certification Exam Guide - Chapter 11, Page 309 -
Dan Mezick & Scot Hillier - McGraw-Hill - 1998.
- Microsoft Visual Basic 6.0 & Lập trình cơ sở dữ liệu – Chương 23,
trang 735 - Nguyễn Thị Ngọc Mai (chủ biên) - Nhà xuất bản Giáo dục -
2000.
- Tự học Lập trình cơ sở dữ liệ
u với Visual Basic 6 trong 21 ngày
(T2) - Chương 17, trang 227 - Nguyễn Đình Tê (chủ biên), Nhà xuất bản
Giáo dục - 2001.

TT. Visual Basic
I. HƯỚNG DẪN


Trang 79

98 76
5
4
3
2
1
Hình V.1: Giao diện
1: TextBox
Name: txtTitle
2: TextBox
Name: txtAuthor
3: TextBox
TT. Visual Basic
Trang 80
Name: txtName
4: TextBox
Name: txtYear
5: TextBox
Name: txtISBN
6: CommandButton
Name: cmdDau
Caption: Đầu
7: CommandButton
Name: cmdCuoi

FROM Publishers, Titles, Authors, [title author]
WHERE ((((Authors.Au_ID = [title author].Au_ID)
AND ([title author].ISBN = Titles.ISBN))
AND (Titles.PubID = Publishers.PubID)))
TT. Visual Basic
Trang 81
ORDER BY Titles.Title
Bước 9: Đóng cửa sổ thiết kế câu truy vấn để lưu vào UserConnection.
VIẾT MÃ LỆNH CHO ỨNG DỤNG
Bước 10: Mở cửa sổ Code của Form1, trong phần [General]\[Declarations], định
nghĩa các biến sau cho đối tượng nối kết RDO và ResultSet.
Private m_noiket As UserConnection1
Private m_ketqua As RDO.rdoResultset
Bước 11: Ta sẽ tạo nối kết trong sự kiện Form_Load, sau khi nối kết được tạo, ta chạy
câu SQL vừa định nghĩa trong UserConnection. Thêm đoạn mã sau vào sự kiện
Form_Load để truy xuất đến nguồn dữ liệu:
Set m_noiket = New UserConnection1
m_noiket.EstablishConnection
' Lay ket qua
Set m_ketqua = _
m_noiket.rdoQueries("AllTitles").OpenResultSet(rdOpenDynamic)
' Dien vao Form
Call Hienthi

Thủ tục Hienthi dùng để hiển thị thông tin của các trường tương ứng của mỗi
mẩu tin lên TextBox, thủ tục này được viết như sau:
Public Sub Hienthi()
txtTitle.Text = m_ketqua!Title
txtAuthor.Text = m_ketqua!Author
txtName.Text = m_ketqua![Company Name]

Beep
m_ketqua.MoveFirst
Else
Call Hienthi
End If
End Sub

Bước 13: Lưu dự án và chạy chương trình.