tailieunhanh - Giáo trình cơ sở lập trình Visual Basic part 7
Tham khảo tài liệu 'giáo trình cơ sở lập trình visual basic part 7', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Private Sub cmdCancel_Click setcontrols False ìàm mờ 2 button OK và Cancel LockedControls True không cho người dùng edit các controls End Sub Private Sub cmdDeiete_Click On Error GoTo DeleteErr If False And False Then có mẫu tin cần xóa returnvalue MsgBox Do you want to delete this record vbOKCancel vbQuestion Notice If returnvalue vbOK Then Delete xóa mẫu tin hiện hành di chuyển đẽn mẫu tin kế If Then kiểm tra EOF End If Exit Sub End If DeleteErr MsgBox End Sub Private Sub cmdUpdate_Click SetButtons True LockedControls False cho người dùng edit các controls End Sub 138 Chạy chương trình và thực hiện thao tác thêm xóa sừa. Lưu ỷ khi thêm mới một mẫu tin bạn thêm giá trị PubỉD phải là giá trị có săn trong Database vì field PubỉD trong table Titles là khóa ngoại . III. SỬ DỤNG OBJECT INTERFACE Neu không dùng các Data Controls của ADO bạn vẫn có the giao tiếp với CSDL bên dưới thông qua các đối tượng có sẵn trong thư viện ADO. Với yêu cầu tương tự như trên xem. thêm xóa và sừa thông tin đe mục sách trong database BIBLIO bạn sẽ thiết kế một form thực hiện các chức năng này chọn nguồn dữ liệu để thao tác là table Titles Đề mục sách . Đầu tiên bạn phải tạo một kết nối đen CSDL sau đó chọn ra nguồn dữ liệu cần thao tác. ADO cung cấp đối tượng Connection để kết nối CSDL đổi tượng Recordset đê chứa tập các mẫu tin mà người dùng cần khai thác đồng thời cung cấp một số phương pháp cho người dùng truy cập và cập nhật dừ liệu ngoài ra còn có đối tượng Command đe thực thi một câu lệnh SQL hay gọi một thủ tục trong database. Khai báo thư viện A DO để sử dụng các đối tượng trên vào menu Project - References check vào Ô Microsoft Active Data Objects Library- có nhiều version chọn version mới nhất . Neu thấy thư viện này đã được check trước đó với version cũ hơn bạn có thể uncheck roi check version mới .
đang nạp các trang xem trước