THIẾT KẾ BIỂU MẪU DÙNG CÁC ĐIỀU KHIỂN - CHỈ ĐỊNH VỊ TRÍ CƠ SỞ DỮ LIỆU - 7

Tham chiếu đến thư viện ADO bằng cách chọn ProjectReferencesActiveX Data Object 2.0 Library. Chọn OK. Bước 4: Đặt một điều khiển ListBox lên Form (Name: lstName) Bước 4: Xử lý sự kiện Form_Load như sau: Set m_Connection = New ADODB.Connection m_Connection.ConnectionString = _ "File Name=C:Program FilesCommon FilesSystemOle DBBiblio.udl" m_Connection.Open Set m_RecordSet = New ADODB.Recordset m_RecordSet.Open "Select Name FROM Publishers", m_Connection Do While Not m_RecordSet.EOF lstName.AddItem m_RecordSet!Name m_RecordSet.MoveNext Loop Bước 5: Chạy chương trình, điều gì xảy ra? Đoạn mã trên là một ví dụ điển hình về việc sử dụng phương thức Open để nhận về một tập hợp...
Nội dung trích xuất từ tài liệu:
THIẾT KẾ BIỂU MẪU DÙNG CÁC ĐIỀU KHIỂN - CHỈ ĐỊNH VỊ TRÍ CƠ SỞ DỮ LIỆU - 7 TT. Visual BasicBước 3: Tham chiếu đến thư viện ADO bằng cách chọn ProjectReferencesActiveXData Object 2.0 Library. Chọn OK.Bước 4: Đặt một điều khiển ListBox lên Form (Name: lstName)Bước 4: Xử lý sự kiện Form_Load như sau:Set m_Connection = New ADODB.Connectionm_Connection.ConnectionString = _ File Name=C:Program FilesCommon FilesSystemOle DBBiblio.udlm_Connection.OpenSet m_RecordSet = New ADODB.Recordsetm_RecordSet.Open Select Name FROM Publishers, m_ConnectionDo While Not m_RecordSet.EOF lstName.AddItem m_RecordSet!Name m_RecordSet.MoveNextLoopBước 5: Chạy chương trình, điều gì xảy ra?Đoạn mã trên là một ví dụ điển hình về việc sử dụng phương thức Open để nhận vềmột tập hợp các Records từ cơ sở dữ liệu.Bước 6: Thay vì khởi tạo đối tượng Connection nhờ đặt thuộc tính ConnectionStringnhư trên (dùng tập tin DataLink), hãy khởi tạo đối tượng này như trong phần mô tả ởlý thuyết (sử dụng thuộc tính Provider & ConnectionString). Sau đó chạy chươngtrình. Nhận xét. Bài tập 6-4 LƯU RECORSET RA TẬP TINBước 1: Trước khi bắt đầu, cần kiểm tra tập tin DataLink của bài 6-2 có được tạo rahay là không?Bước 2: Tạo một dự án mới trong VB ở thư mục BasicBt6-4.Bước 3: Tham chiếu đến thư viện ADO bằng cách chọn ProjectReferencesActiveXData Object 2.0 Library. Chọn OK.Bước 4: Thêm một điều khiển mở rộng vào hộp công cụ Toolbox nhờ chọnProjectComponents. Chọn Microsoft Common Dialog Control 6.0 và MicrosoftDataGrid Control 6.0. Chọn OK.Bước 5: Tạo giao diện như sau: Trang 91 TT. Visual Basic 1 Hình VI.8: Lưu Recordset ra tập tin 2 3 5 4 1: TextBox: Name: txtSQL; MultiLine: True. 2: CommandButton: Name: cmdTT; Caption: Thực thi. 3: CommandButton: Name: cmdLuu; Caption: Lưu tập tin 4: CommandButton: Name: cmdMo; Caption: Mở tập tin 5: DataGrid: Name: grdResult Ngoài ra, chương trình còn có sử dụng hộp thoại mở & lưu tập tin; do đó, tathêm vào một Common Dialog vào ứng dụng với thuộc tính Name: dlgFile.Bước 6: Khi chương trình thực thi, mỗi khi người dùng nhập vào một câu lệnh SQLvào TextBox rồi nhấp chọn Thực thi, câu SQL này sẽ thực thi và hiển thị kết quả ởlưới bên phải. Do đó sự kiện cmdTT_Click dược xử lý như sau:Private Sub cmdTT_Click() Dim m_RecordSet As ADODB.Recordset Set m_RecordSet = New ADODB.Recordset m_RecordSet.CursorLocation = adUseClient m_RecordSet.CursorType = adOpenStatic m_RecordSet.Open txtSQL.Text, _ File Name=C:Program FilesCommon FilesSystemOLE DBBiblio.udl Set grdResult.DataSource = m_RecordSetEnd SubBước 7: Lưu RecordSet vào tập tin sẽ được thực hiện nhờ hàm Save. Ở đây, ta sửdụng hộp thoại CommonDialog để mở và lưu tập tin. Sự kiện cmdLuu_Click được xửlý:Private Sub cmdLuu_Click() On Error GoTo xuly Dim m_RecordSet As ADODB.Recordset Set m_RecordSet = grdResult.DataSource Trang 92 TT. Visual Basic Set grdResult.DataSource = Nothing Dim strFileName As String dlgFile.Filter = Record Set Files (*.dat)|*.dat dlgFile.ShowSave strFileName = dlgFile.FileName Luu cac mau tin m_RecordSet.Save strFileName Exit Subxuly: MsgBox Err.Description, vbCritical + vbSystemModal, LoiEnd SubBước 8: Mỗi khi tập hợp mẩu tin được lưu lên tập tin, chúng sẽ không phụ thuộc vàovào các nối kết với nguồn dữ liệu. Để mở dữ liệu được lưu, sử dụng hàm Open với têntập tin là đối số. Sự kiện cmdOpen_Click được xử lý:Private Sub cmdMo_Click() On Error GoTo xuly Dim strFileName As String dlgFile.Filter = Record Set Files (*.dat)|*.dat dlgFile.ShowOpen strFileName = dlgFile.FileName Dim m_RecordSet As ADODB.Recordset Set m_RecordSet = New ADODB.Recordset m_RecordSet.Open strFileName Set grdResult.DataSource = m_RecordSet Exit Subxuly: MsgBox Err.Description, vbCritical + vbSystemModal, LoiEnd SubBước 9: Chạy chương trình, nhập câu lệnh SQL vào TextBox, nhấp Thực thi. Sau đólưu tập mẩu tin này lên đĩa. Mỗi khi muốn mở lại tập tin nào đó, sử dụng Mở tập tin.II. BÀI TẬP TỰ LÀM1) Sử dụng ADO, thiết kế Form nhập liệu cho bảng THangHoa (hình dưới). Ở đâythay vì hiển thị MaLoai, ta lại hiển thị TenLoai: Trang 93 TT. Visual Basic ...