Đ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 lập trình cơ sở dữ liệu với 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ả | 59 SP adstatus As ADODB.EventStatusEnum ByVai pRecordset As ADO DB. Recordset If Adodcl. Re cordset BOF False And Adodcl. Recordset EOF False Then If Adodcl. Recordset Ed itMode - adEditAdd Then Exit Sub nẽu recordset đang ở tình trạng thêm mới exit sub DisplayCurren tRecord Adodcl.Caption Mau tín thu CStr Adodcl.RecordsetAbsolutePosition tren CStr Adodcl. Recordset. RecordCount hiển thị thứ tự mẩu tin trên tiêu đê của điều khiến Adodcl. End If End Sub Đoạn code cho năm nút New Edit Delete OK Cancel có sửa đổi . Private Sub cmdCancel_CNck SetButtons False If Adodcl.RecordsetBOF False And Adodcl.Recordset.EOF False Then DisplayCurrentRecord End If End Sub Private Sub cmdNew_Click AddNewFlag True bật cờ thêm một record true ClearAlì gan giá trị rỗng lên các control. SetButtons True End Sub Private Sub cmdDelete_ClickO On Error GoTo DeleteErr If Adodcl.Recordset.BOF False And Adodcl.Recordset.EOF False Then recordset có mẩu tin cân xóa retumvalue MsgBoxf Do you want to delete this record vbOKCancel vbQuestion Notice If returnvalue vbOK Then Adodcl.Recordset.Delete xóa mẩu tin hiện hành 194 Adodcl. Recordset. Move Next chuyển đẽn mầu tin kẽ If Adodcl.Recordset. EOF True Then Adodcl.Recordset.MoveLast kiểm tra EOF End If Exit Sub End If DeleteErr Msg Box Err. Description End Sub Private Sub cmdUpdate_Click AddNewFlag False Me.Caption Cập nhật đê mục sách đổi tiêu đề form cho người dùng biẽtđang cập nhật mẩu tin SetButtons True End Sub Private Sub cmdNew_Click AddNewFlag True bật cờ thêm một record true ClearAll gán giá tri rỗng lên các control. Me.Captíon Thêm mới đề mục sách đổi tiêu đề form cho người dùng biẽt đang thêm mâu tin mới SetButtons True End Sub Private Sub cmdOK_Click kiểm tra các Ràng buộc toàn vẹn ở đây nẽu không thỏa Exit Sub If AddNewHag True Then người dùng nhãn nút New giữ lại giá tộ dcPublD mà người dùng đã chọn vào biên PublD vì khi gọi method AddNew giá trị datacombo dcPublĐ sẽ rỗng Dim PublD As Long PublD CLng dcPublD.Text Ad odd. Recordset. Add .
