-
Tự động liên kết các table
Noname > 13-08-10, 10:07 PM
Hỏi: Tôi có một cơ sở dữ liệu Access và thực hiện split thành backend
File QLVB đặt trong thư mục Run (thư mục Run nằm trong thư mục QLVB) chứa form, repost, ...
File QLVB_en đặt trong thư mục Data (thư mục Data trong thư mục QLVB) chứa các table
Khi tôi di chuyển (hoặc đồng bộ) thư mục QLVB (từ USB vào máy và ngược lại) là các liên kết của các table không còn nữa.
Bạn nào rành về Access có thể viết đoạn mã giúp tôi tự động nối lại các liên kết đó không.
Đáp:
Với T là tên table, Bạn cho gọi đoạn code sau để link. Có bao nhiêu table thì bạn gọi bấy nhiêu lần với tên table T tương ứng.
Code:
.Mã:Sub LinkTable(T As String)
' xoa table link cu~
DoCmd.DeleteObject acTable, T
'link lai tablelink moi
DoCmd.TransferDatabase acLink, "Microsoft Access", CurrentProject.Path & "\" & "QLVB_en.mdb", acTable, T, T
End Sub
Chú ý, đọan code này chỉ áp dụng trong trường hợp file chương trình và dữ liệu bạn chung 1 thư mục. Còn khác thư mục thì mình sẽ đưa giải pháp khác. Ví dụ bạn phải khai báo thư mục chứa dữ liệu. -
RE: Tự động liên kết các table
mrtoanbin > 30-10-18, 02:15 PM
Mình đang cần kiểu khai báo thư mục chứa dữ liệu, sẽ linh hoạt hơn khi di chuyển từ chỗ này sang chỗ khác -
RE: Tự động liên kết các table
maidinhdan > 03-11-18, 02:44 PM
(30-10-18, 02:15 PM)mrtoanbin Đã viết: Mình đang cần kiểu khai báo thư mục chứa dữ liệu, sẽ linh hoạt hơn khi di chuyển từ chỗ này sang chỗ khác
Bạn đang dùng code nào không nói rõ nếu dùng code trên thì thêm tham số sau
Mã PHP:Sub LinkTable(T As String, DuongDanFileData as string)
' xoa table link cu~
DoCmd.DeleteObject acTable, T
'link lai tablelink moi
DoCmd.TransferDatabase acLink, "Microsoft Access", DuongDanFileData, acTable, T, T
End Sub -
RE: Tự động liên kết các table
mrtoanbin > 25-02-19, 02:13 PM
(03-11-18, 02:44 PM)maidinhdan Đã viết:
(30-10-18, 02:15 PM)mrtoanbin Đã viết: Mình đang cần kiểu khai báo thư mục chứa dữ liệu, sẽ linh hoạt hơn khi di chuyển từ chỗ này sang chỗ khác
Bạn đang dùng code nào không nói rõ nếu dùng code trên thì thêm tham số sau
Mã PHP:Sub LinkTable(T As String, DuongDanFileData as string)
' xoa table link cu~
DoCmd.DeleteObject acTable, T
'link lai tablelink moi
DoCmd.TransferDatabase acLink, "Microsoft Access", DuongDanFileData, acTable, T, T
End Sub
Hiện mình chưa dùng code nào cả, chỉ mới có ý tưởng thế nhưng chưa làm được. File chứa dữ liệu mình sử dụng mỗi máy một đường dẫn khác nên cần có nút chọn đường dẫn và relink lại (file data có pass). BÁC CỤ THỂ DÙM Ạ!! -
RE: Tự động liên kết các table
ongke0711 > 25-02-19, 04:41 PM
(25-02-19, 02:13 PM)mrtoanbin Đã viết: Hiện mình chưa dùng code nào cả, chỉ mới có ý tưởng thế nhưng chưa làm được. File chứa dữ liệu mình sử dụng mỗi máy một đường dẫn khác nên cần có nút chọn đường dẫn và relink lại (file data có pass). BÁC CỤ THỂ DÙM Ạ!!
Chia sẻ bạn cái demo kiểm tra đường dẫn file data backend, nếu bị thay đổi sẽ hiện hộp thoại để chọn lại.
link: http://www.mediafire.com/file/ufn34x59h5...d.rar/file
-
RE: Tự động liên kết các table
mrtoanbin > 28-02-19, 02:01 PM
(25-02-19, 04:41 PM)ongke0711 Đã viết:
(25-02-19, 02:13 PM)mrtoanbin Đã viết: Hiện mình chưa dùng code nào cả, chỉ mới có ý tưởng thế nhưng chưa làm được. File chứa dữ liệu mình sử dụng mỗi máy một đường dẫn khác nên cần có nút chọn đường dẫn và relink lại (file data có pass). BÁC CỤ THỂ DÙM Ạ!!
Chia sẻ bạn cái demo kiểm tra đường dẫn file data backend, nếu bị thay đổi sẽ hiện hộp thoại để chọn lại.
link: http://www.mediafire.com/file/ufn34x59h5...d.rar/file
Cái này không tùy thuộc vào Data Backend có pass hay không phải k ạ? Nếu nhiều linktable ở nhiều file Backend thì khai báo sao ạ?