Tùy chọn
Demo Phần 1_Compact & Repaire nhiều file Back End
- Demo Phần 1_Compact & Repaire nhiều file Back End
-
RE: Demo_Compact & Repaire nhiều file Back End
maidinhdan > 06-04-17, 07:55 PM
(06-04-17, 10:49 AM)thanhtruong Đã viết: Nếu áp dụng vào sẽ có vấn đề sau:
Không thể nén file back_end: Nếu file font_end đang link table đến nó
Do đó nếu vậy thì có tác dụng gì? không lẽ khi muốn nén phải đi nói tất cả máy con đều thoát phần mềm, vậy thì áp cái tự động nén 1 tháng 1 lần nó sẽ làm được gì?
Xin mọi người cho ý kiến!
Bạn có xem ghi chú trên hình này chưa?
![[Hình: demoNenfileBackend.jpg]](https://sites.google.com/site/thuthuataccess2003/home/demo-hinh/demoNenfileBackend.jpg)
Tin chắc là chưa, nên mới nói thế.
Cứu từ từ bạn ạh, Võ công cần tập luyện, suy xét, áp dụng, suy nghĩ.... nhưng đó cũng là 1 hướng tốt để bạn phải viết thêm lệnh để giải quyết với ý kiến này.
Ngoài ra, Bạn cần hiểu là nếu file đó mở bạn có thể xóa file chia sẽ đó không.
* Như vậy khi bạn thiết kế ứng dụng, bạn phải tạo 1 hàm để ngắt kết nối không cho máy con mở table. Chuyện đó thì mình nghĩ bạn từ từ tìm hiểu sẽ có 1 giải pháp cho bạn.
* Còn nhanh hơn bạn chỉ cần viết 1 lệnh Ngắt kết nối Internet trên máy chủ là xong. ( Hầu hết người ta dùng phương pháp này, cho đỡ mất công sức) -
RE: Demo_Compact & Repaire nhiều file Back End
thanhtruong > 30-06-17, 12:03 PM
(06-04-17, 07:55 PM)maidinhdan Đã viết:
(06-04-17, 10:49 AM)thanhtruong Đã viết: Nếu áp dụng vào sẽ có vấn đề sau:
Không thể nén file back_end: Nếu file font_end đang link table đến nó
Do đó nếu vậy thì có tác dụng gì? không lẽ khi muốn nén phải đi nói tất cả máy con đều thoát phần mềm, vậy thì áp cái tự động nén 1 tháng 1 lần nó sẽ làm được gì?
Xin mọi người cho ý kiến!
Bạn có xem ghi chú trên hình này chưa?
Tin chắc là chưa, nên mới nói thế.
Cứu từ từ bạn ạh, Võ công cần tập luyện, suy xét, áp dụng, suy nghĩ.... nhưng đó cũng là 1 hướng tốt để bạn phải viết thêm lệnh để giải quyết với ý kiến này.
Ngoài ra, Bạn cần hiểu là nếu file đó mở bạn có thể xóa file chia sẽ đó không.
* Như vậy khi bạn thiết kế ứng dụng, bạn phải tạo 1 hàm để ngắt kết nối không cho máy con mở table. Chuyện đó thì mình nghĩ bạn từ từ tìm hiểu sẽ có 1 giải pháp cho bạn.
* Còn nhanh hơn bạn chỉ cần viết 1 lệnh Ngắt kết nối Internet trên máy chủ là xong. ( Hầu hết người ta dùng phương pháp này, cho đỡ mất công sức)
Lỗi như hình bên dưới, nếu test trên access 2010
![[Hình: Untitled85c91.png]](http://sv1.upsieutoc.com/2017/06/30/Untitled85c91.png)
-
RE: Demo_Compact & Repaire nhiều file Back End
maidinhdan > 01-07-17, 12:50 PM
(30-06-17, 12:03 PM)thanhtruong Đã viết:
(06-04-17, 07:55 PM)maidinhdan Đã viết:
(06-04-17, 10:49 AM)thanhtruong Đã viết: Nếu áp dụng vào sẽ có vấn đề sau:
Không thể nén file back_end: Nếu file font_end đang link table đến nó
Do đó nếu vậy thì có tác dụng gì? không lẽ khi muốn nén phải đi nói tất cả máy con đều thoát phần mềm, vậy thì áp cái tự động nén 1 tháng 1 lần nó sẽ làm được gì?
Xin mọi người cho ý kiến!
Bạn có xem ghi chú trên hình này chưa?
Tin chắc là chưa, nên mới nói thế.
Cứu từ từ bạn ạh, Võ công cần tập luyện, suy xét, áp dụng, suy nghĩ.... nhưng đó cũng là 1 hướng tốt để bạn phải viết thêm lệnh để giải quyết với ý kiến này.
Ngoài ra, Bạn cần hiểu là nếu file đó mở bạn có thể xóa file chia sẽ đó không.
* Như vậy khi bạn thiết kế ứng dụng, bạn phải tạo 1 hàm để ngắt kết nối không cho máy con mở table. Chuyện đó thì mình nghĩ bạn từ từ tìm hiểu sẽ có 1 giải pháp cho bạn.
* Còn nhanh hơn bạn chỉ cần viết 1 lệnh Ngắt kết nối Internet trên máy chủ là xong. ( Hầu hết người ta dùng phương pháp này, cho đỡ mất công sức)
Lỗi như hình bên dưới, nếu test trên access 2010
Lỗi này do không tìm thấy đường dẫn file cần nén.
Bạn vào table xóa hết đường dẫn file trong Demo rồi chọn file nén nào của bạn, rồi nén thử xemlà hết lỗi.
Thân mến! -
RE: Demo_Compact & Repaire nhiều file Back End
thanhtruong > 05-07-17, 10:35 AM
Có vấn đề rồi đây. mà hình như không ai để ý
Ta có: File Data dung lượng 10MB
Nén bằng chương trình dọn rác 1 tháng 1 lần thì còn 8MB , nghĩa là nó nén được có 2MB
Mà nén bằng tay thì giảm còn 5MB, nghĩa là nén được 5 MB
Vậy thì sao, làm sao để nó nén như nén bằng tay.??????? -
RE: Demo_Compact & Repaire nhiều file Back End
maidinhdan > 07-07-17, 12:10 PM
(05-07-17, 10:35 AM)thanhtruong Đã viết: Có vấn đề rồi đây. mà hình như không ai để ý
Ta có: File Data dung lượng 10MB
Nén bằng chương trình dọn rác 1 tháng 1 lần thì còn 8MB , nghĩa là nó nén được có 2MB
Mà nén bằng tay thì giảm còn 5MB, nghĩa là nén được 5 MB
Vậy thì sao, làm sao để nó nén như nén bằng tay.???????
Có vài điều sâu xa về Demo này mà không thể nói hết, nhiều khi người ta không chịu khó đọc mà cứ nhảy vào ôm cái demo rồi cứ la lên là nó lỗi... vì thế Demo fix lỗi mình không bổ sung để các bạn đọc từng bài trong chuyên mục này. Biết là bất tiện, nhưng ngược lại mình thấy đó là điều tốt nhất cho các bạn.
Đối với riêng bạn cần xem thêm một số cái như sau:
1. Xem thêm bài số #7 phía trên ( để fix lỗi)
2. Khi chọn xong file nén, nên chèn thêm lệnh Save or requery để link đó lưu vào table.
Riêng máy của mình Access 2003 + Access 2010, nó nén file y chang như nén bằng tay. ( riêng kiểu *.accdb thì chưa test)
Thân mến! -
RE: Demo_Compact & Repaire nhiều file Back End
ongke0711 > 07-07-17, 03:16 PM
Do cái DAO.DBEngine 3.6 không làm việc được với các file .accdb đời sau này nên phải đổi lại cái DBEngine thành 120.
Dim objEngine As Object
Set objEngine = CreateObject("DAO.DBEngine.120")
Thay thế cái DBEgine hiện tại trong code với cái objEngine mới tạo ở trên thì lệnh CompactDatabase sẽ chạy tốt.
Giữa chạy bằng code và menu tôi thấy như nhau cả.
(06-04-17, 10:49 AM)thanhtruong Đã viết: Nếu áp dụng vào sẽ có vấn đề sau:
Không thể nén file back_end: Nếu file font_end đang link table đến nó
Do đó nếu vậy thì có tác dụng gì? không lẽ khi muốn nén phải đi nói tất cả máy con đều thoát phần mềm, vậy thì áp cái tự động nén 1 tháng 1 lần nó sẽ làm được gì?
Theo mình biết thì cho đến hiện nay thì chưa có cách nào nén được một file mà file đó đang được sử dụng (nói chung cho tất cả cả CSDL). Đối với các CSDL lớn như SQL Server thì các nhà quản trị dữ liệu sẽ thiết lập một hệ thống dự phòng, khi cần thì chuyển toàn bộ kết nối người dùng đến Server dự phòng này rồi sau đó mới thực hiện sửa chữa, nén niết gì đó trên các Server kia. Sau khi xong lại phải đồng bộ dữ liệu lại rồi tiếp tục trả lại kết nối ban đầu. Việc này không cũng đòi hỏi nhà quản trị trình độ cao chứ lơ tơ mơ là dữ liệu chạy tầm bậy tầm bạ hết.
Còn kỹ thuật thực hiện chuyển kết nối, ngắt kết nối như thế nào thì lại là một vấn đề cũng lớn để thảo luận nữa đó. Đối với CSDL Access thì đơn giản hơn SQL Server nhiều. Đâu có ứng dụng Access nào có qui mô lớn đến nỗi ứng dụng phải mở 24/24 để Users kết nối liên tục đâu mà bạn sợ không ngắt kết nối FE với BE để bảo trì CSDL.
Chiều thứ 7, IT ở lại thêm nữa tiếng nữa để chạy bảo trì CSDL không được à? Hoặc Remote Desktop chạy ban đêm v.v..
Ngay cả hệ điều hành Windows của bạn cũng thực hiện tương tự. Khi bạn chạy Defragment ổ cứng không phải là nó yêu cầu defrag tốt nhất ở chế độ safe mode, không có thao tác, truy xuất gì trên ổ cứng để nó sắp xếp hiệu quả và nhanh hơn. Nếu dùng lịch trình Defragment của Windows nó cũng gợi ý mặc định chạy Defrag lúc 1:00 sáng đó.
Nói túm lại chỉ bảo trì được CSDL khi nó không được sử dụng thôi. -
RE: Demo_Compact & Repaire nhiều file Back End
ongke0711 > 07-07-17, 07:30 PM
(07-07-17, 04:46 PM)thanhtruong Đã viết:
(07-07-17, 03:16 PM)ongke0711 Đã viết: Do cái DAO.DBEngine 3.6 không làm việc được với các file .accdb đời sau này nên phải đổi lại cái DBEngine thành 120.
Mình tìm hoài mà không ra cái code này
Cái lệnh DBEngine.CompactDatabase nằm trong mdlCompactFunctions và nằm trong cái hàm CompactFile đó bạn.
Mã PHP:Public Function CompactFile(ByVal strSource As String, _
ByVal strDest As String, _
ByVal vntDestinationPath As Variant, _
ByVal vntPassword As Variant) As Boolean
If (conHandleErrors) Then On Error GoTo ErrorHandler
Dim objEngine As Object
Set objEngine = CreateObject("DAO.DBEngine.120")
' Access cannot compact a file into itself, so we must work around this.
' If strDest is an empty string, this file is to be compacted into itself.
If strDest = "" Then
' Add the name of a temporary file to the Access Directory.
' This will be the path of the file we will compact into.
strDest = SysCmd(acSysCmdAccessDir) & "TEMPCOMP.MDB"
If IsNull(vntPassword) Then
objEngine.CompactDatabase strSource, strDest, conDbLangGeneral
Else
objEngine.CompactDatabase strSource, strDest, conDbLangGeneral, , ";pwd=" & vntPassword
End If
' Delete the original (source) file.
Kill strSource
' Rename the temporary file to the original (source) file.
Name strDest As strSource
Else
' This is where we compact into a new file if Replace was false.
' Again, Access cannot compact into the same file, so work around this.
' The Err_Compact: section (below) handles this.
If IsNull(vntPassword) Then
objEngine.CompactDatabase strSource, strDest, conDbLangGeneral
Else
objEngine.CompactDatabase strSource, strDest, conDbLangGeneral, , ";pwd=" & vntPassword
End If
End If
CompactFile = True
ExitProcedure:
Exit Function
ErrorHandler:
' Do not display errors here as it would halt the process.
' If appropriate, log the errors for the report and continue.
Select Case Err.Number
Case conDbExists
' If the file already exists, then delete it and resume at the same line.
' Since the file no longer exists, we can compact without error (hopefully).
Kill strDest
Resume
Case conDbIsOpen, conDbUnknown, conDbNotFound, conDiskOrNetworkError
' Mark file as unusable.
If IsNull(vntDestinationPath) Then
CurrentDb.Execute " Update tbNenfileBackend" & _
" Set Nenfilenaykhong = False" & _
" Where Duongdanfile = " & Chr$(34) & strSource & Chr$(34)
Else
CurrentDb.Execute " Update tbNenfileBackend" & _
" Set Nenfilenaykhong = False" & _
" Where Tenfilemoi = " & Chr$(34) & vntDestinationPath & Chr$(34)
End If
End Select
' Except for conDbExists, add a new record to the Error Log Table,
' containing the FileName and the actual Access error string.
With CurrentDb.OpenRecordset("tblErrorLog", conDbOpenDynaset)
.AddNew
!Duongdanfile = strSource
!ErrorMessage = Err.Description
.Update
.Close
End With
blnCompactError = True
Resume ExitProcedure
End Function -
RE: Demo_Compact & Repaire nhiều file Back End
ongke0711 > 07-07-17, 07:35 PM
(01-07-17, 12:50 PM)maidinhdan Đã viết: Lỗi như hình bên dưới, nếu test trên access 2010
Lỗi này do không tìm thấy đường dẫn file cần nén.
Bạn vào table xóa hết đường dẫn file trong Demo rồi chọn file nén nào của bạn, rồi nén thử xemlà hết lỗi.
Thân mến!
[/quote]
Không tìm thấy file thì nó sẽ báo lỗi nhưng khi có lỗi rồi nó cũng không tìm thấy table để ghi các lỗi đó vào nên báo lỗi là "không tìm thấy tblErrorLog".
Do vậy chi cần bạn tạo thêm cái table đặt tên tblErrorLog có 2 trường đều là dạng Text là: [Duongdanfile], [ErrorMessage]. -
RE: Demo_Compact & Repaire nhiều file Back End
minhminh25767 > 04-01-19, 10:02 AM
Cho em hỏi với. em làm mãi mà cái file vẫn không nén được. mọi người xem nó bị lỗi chổ nào chỉ giúp em với.
file tải về
Nó báo không thể nén trong mục table : tblErrorLog