tailieunhanh - Giáo trình cơ sở lập trình Visual Basic part 9

Tham khảo tài liệu 'giáo trình cơ sở lập trình visual basic part 9', 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ả | mỗi khi di chuyến mẫu tin. Sự kiện mỗi khi di chuyến mẫu tin hoàn lất trong A DO Data Control gọi là l MoveComplete Hàm Adodcl_MoveComplete . Bạn chì muổn cho xem dữ liệu trên DataGrid các thao tác thêm xóa. sửa thông qua các button New. Delete. Update do đó bạn phái set thuộc tính cùa DataGrid trong cửa số properties như sau AllowAddNevx False. AllowDelete False. AllowUpdate False Khai báo General Dim cnn As New Dim rsPublishers As New ADODB. Recordset Dim AddNewFlag As Boolean them mot record moi True cap nhat mot record false Đoạn code sự kiện Form_Load. ta dùng Adodc 1 .Recordset thay cho đoi tượng recordset rsTities đã dùng trong form frmTitles 3. do đó đoạn code trong các hàm Di splay Current Record và code xứ lý các chức năng thèm mới xóa cập nhật cũng thay đối theo. Private Sub Form_Load Dim Databasepath As string DatabasePath - Provider-Microsoft Jet. OLEDB. Data Source DatabasePath kiểm tra kết nối CSDL If 0 Then MsgBox Connecting database fail. Exit Sub End If cnn. Connectionstring - Select from TITLES thi hành kết nõi CSDL 184 Select PublD Name from Publishers cnn adopenstatic adLockOptimistic If 0 Then có mẫu tin Chuyển đẽn mẫu tin đầu tiên sau khi di chuyến sẽ thực hiện hàm Adodcl_MoveComplete Adodcl. Recordset. MoveFirst End If Set DataGridl. DataSource Set dcPublD. Data Field PublD Set rsPublishers PublD SetButtons False Khí FormJ-oad Item trong datacombo chưa được selected do đó vào sự kiện PubỉD_Change sẽ không lấy được Name ứng với PublD đó bạn phái dùng tạm một recordset rsTemp đê lấy Name cúa PubĩD trong datacombo. Bạn có thể bỏ đoạn code này đế kiếm tra sự khác biệt . Dim rsTemp As New Select PubID Name from Publishers where PubID CLng .

TỪ KHÓA LIÊN QUAN
crossorigin="anonymous">
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.