Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
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 ADODB.Connection 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 App.Path BIBLIO.mdb cnn.Connectionstring - Provider-Microsoft Jet. OLEDB. 4.0 Data Source DatabasePath cnn.open kiểm tra kết nối CSDL If cnn.State 0 Then MsgBox Connecting database fail. Exit Sub End If Adodcl.Connectionstring cnn. Connectionstring Adodcl.Recordsource - Select from TITLES Adodcl.Refresh thi hành kết nõi CSDL 184 rsPublishers.Open Select PublD Name from Publishers cnn adopenstatic adLockOptimistic If Adodcl.Recordset.Recordcount 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 Adodcl.Recordset Set dcPublD.DataSource Adodcl.Recordset dcPublD. Data Field PublD Set dcPublD.RowSource rsPublishers dcPublD.ListFietd 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 ADODB.Recordset rsTemp.Open Select PubID Name from Publishers where PubID CLng .
