Đánh giá chủ đề:
  • 5 Votes - 2.6 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Cách lấy (copy)database tại một máy trên mạng Lan
#1
Hỏi:
Mong được sự giúp đỡ của các cao thủ lập trình Access :
_ Đến 1 ngày nhất định trong tháng phải copy database Access từ một máy tính trên mạng Lan; tên máy tính là computerA và địa chỉ IP tĩnh 192.168.1.30, máy tính A share thư mục với tên "Baocao" và tên file cần lấy là "Nhaplieu.mdb".
( tức là \\computerA\Baocao\nhaplieu.mdb hoặc \\192.168.1.30\Baocao\nhaplieu.mdb )
+ Mình muốn tạo một button khi click vào sẽ tự động lấy file ấy về và để tại máy tính mình tại thư mục gốc ổ D.

Đáp:

Trong sự kiện Click, bạn cho dòng lệnh sau vào
Mã:
Dim RCopy as String
    Rcopy= "Copy \\computerA\Baocao\nhaplieu.mdb D:\nhaplieu.mdb"

    Shell RCopy,vbHide

Hoặc:

Mã:
Call FileCopy("\\computerA\Baocao\nhaplieu.mdb", "D:\nhaplieu.mdb")

Nếu vẫn không được thì dùng cách sau
b1. Tạo 1 file nội dung là
Mã:
Copy D:\CSDL\DATA.mdb D:\CSDLLUU\DATA.mdb
lưu thành file d:\csdl\copy.bat
b2. gọi hàm
Mã:
Shell "d:\csdl\copy.bat", vbHide

Trong trường hợp máy copy yêu cầu nhập userName/ pass để được vào copy thì bạn dùng cách Map 1 ổ đĩa mạng, rồi copy từ đó về máy.
Xem thêm cách map ổ đĩa mạng với UserName/ Pass

Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cafe Via He , chihienphuco , maidinhdan
#2
Anh Noname cho hỏi sử dụng hàm trên phải mở thêm thư viện nào trong References. Nó báo lỗi.
Mong anh giúp!
Chữ ký của chihienphuco Xin chào! Mình là chihienphuco, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn
#3
Bạn chụp hình lỗi post lên mình xem thử
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
Câu lệnh:
Private Sub Command371_Click()
FileCopy ("D:\CSDL\DATA.mdb", "D:\CSDLLUU\DATA.mdb")
End Sub

Viết xong xuống dòng nó báo thế này:

Compile error:
Expected:=

Chữ ký của chihienphuco Xin chào! Mình là chihienphuco, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn
#5
(06-12-10, 03:34 PM)chihienphuco Đã viết: Câu lệnh:
Private Sub Command371_Click()
FileCopy ("D:\CSDL\DATA.mdb", "D:\CSDLLUU\DATA.mdb")
End Sub

Viết xong xuống dòng nó báo thế này:

Compile error:
Expected:=

Bạn khai báo thư viện này thử xem:
[Hình: OfficeLib.jpg]
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
Bác thêm chữ Call khi viết lệnh đó

Call FileCopy ("D:\CSDL\DATA.mdb", "D:\CSDLLUU\DATA.mdb")
Chữ ký của Cafe Via He Ở nhờ nhà mẹ mình big green
ღღღღღTài sản của Cafe Via He (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , haquocquan
#7
(06-12-10, 03:47 PM)Cafe Via He Đã viết: Bác thêm chữ Call khi viết lệnh đó

Call FileCopy ("D:\CSDL\DATA.mdb", "D:\CSDLLUU\DATA.mdb")

Đổi câu lệnh này cho chạy giờ báo lỗi là:
Trích dẫn:Run-timer Error '70':
Permission denied

Còn cách nào ko mấy lão huynh, giúp với!
Chữ ký của chihienphuco Xin chào! Mình là chihienphuco, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn
#8
Bạn thử với file khác và đường dẫn khác coi nó hoạt động không rồi mới đoán được bệnh!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
Đổi file khác thì câu lệnh cho copy, nhưng file DATA.mdb đang hoạt động thì câu lệnh báo lỗi. Mà em mở cửa sổ copy bằng tay như thông thường paste chổ khác nó vẫn thực hiện được?
Có cách nào khắc phục giúp em với!
Chữ ký của chihienphuco Xin chào! Mình là chihienphuco, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn
#10
Đúng rồi, câu lệnh đó làm sao copy được file đang mở (trong khi dùng lệnh copy của WIN vẫn bình thường).
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Một số kinh nghiệm khi viết ứng dụng truy xuất dữ liệu qua mạng internet lehongduc 4 355 24-06-16, 02:31 PM
Bài mới nhất: lehongduc
  Kết nối với web database access hoanbhxhls 1 399 04-05-16, 10:18 PM
Bài mới nhất: quanghoasla
  [Hỏi] Ứng dụng quản lý trên web hugox03 2 236 10-04-16, 12:42 PM
Bài mới nhất: ongke0711
  [Lỗi] Mail Merge trong mạng Lan phamngocsang 2 242 23-02-16, 08:06 PM
Bài mới nhất: phamngocsang
  [Lỗi] Phần mềm Access format 2003 chạy bằng Access 2010 trên win 7 bị lỗi leminh 0 232 05-01-16, 03:49 PM
Bài mới nhất: leminh

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ