• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tự động thêm hình vào attachment field hoặc OLE Object

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Table
  • Tự động thêm hình vào attachment field hoặc OLE Object
• Chủ đề đã đóng
• Tự động thêm hình vào attachment field hoặc OLE Object

• Tự động thêm hình vào attachment field hoặc OLE Object

  thanbai241090 > 23-04-14, 07:11 PM

  Mình đang kẹt chỗ này nhờ bạn nào pro chỉ giúp;
  
  + Mình có table như bên dưới ;
  + data hình tại c:\img\[ mã hàng ].jpg
  
  Yêu cầu: Mình muốn nhờ các bạn tạo Marco tự động chèn hình dựa trên mã hàng trong table vào cột attachmetns hoặc OLE object.
  Mong các bạn chỉ giúp. Xin cảm ơn
  
  [img][/img]

• RE: Tự động thêm hình vào attachment field hoặc OLE Object

  paulsteigel > 23-04-14, 09:35 PM

  (23-04-14, 07:11 PM)thanbai241090 Đã viết: Mình đang kẹt chỗ này nhờ bạn nào pro chỉ giúp;
  
  + Mình có table như bên dưới ;
  + data hình tại c:\img\[ mã hàng ].jpg
  
  Yêu cầu: Mình muốn nhờ các bạn tạo Marco tự động chèn hình dựa trên mã hàng trong table vào cột attachmetns hoặc OLE object.
  Mong các bạn chỉ giúp. Xin cảm ơn
  
  [img][/img]

  
  Mình có một bài trả lời cho bạn danhxetnghiem về việc có nên lưu ảnh trong csdl không. Theo mình, mặc dù access cho phép làm điều đó, nhưng không nên tính đến việc này vì nó nguy hiểm đến sự an toàn của csdl và làm cho csdl nảy nở nhanh lắm. Chưa kể đến việc bạn sẽ cần đến nhiều thủ tục đưa ảnh ra ngoài ổ đĩa, cập nhập ảnh ...vv.
  [quote thư gửi bạn Đinh Tiến Danh]
  
  Bạn Danh xem thủ tục này
  
  

  Mã PHP:

  Private Sub cmdCaptureImage_Click()
    txtLocation = Replace(txtLocation, "avi", "jpg")
    If Dir(AppFolders.WorkingFolder & "\" & txtLocation) <> "" Then Kill AppFolders.WorkingFolder & "\" & txtLocation
    vcx.SaveFrameJPG AppFolders.WorkingFolder & "\" & txtLocation, 90
    'show it on screen
    Image25.Picture = AppFolders.WorkingFolder & "\" & txtLocation
End Sub 


  Thủ tục này thực hiện việc lưu một ảnh Jpeg vào thư mục làm việc của chương trình. Nếu muốn, bạn chỉ cần tạo một thư mục chẳng hạn imgages sau đó lưu file vào đó, địa chỉ lưu sẽ là như thế này.
  AppFolders.WorkingFolder & "\images\" & txtLocation
  Địa chỉ tương đối sẽ là
  "\images\" & txtLocation
  Sau này khi chuyển chương trình đi đâu thì nó vẫn đúng đường dẫn thật.
  Khi mở file chỉ cần thêm đường dẫn chương trình đang chạy hiện tại CurrentProject.App là mở được ảnh!
  Còn việc lưu tên file dưới dạng ngày tháng
  thì bạn có thể thay thế thành
  "\images\" & format(now(),"hh_mm_mm_dd_yyyy") & ".jpg"
  Và bạn cập nhập đoạn này vào bảng dữ liệu với các thủ tục SQL thông thường!
  Khi cần thì mở ra!
  ....
  Xin chia sẻ như vậy!
  
  [/quote]
  Khuyến nghị Chỉ nên lưu đường dẫn của ảnh mà thôi, sau đó khi cần truy xuất ảnh, hãy dùng một picturebox để liên kết và hiển thị.
  Cách chèn đơn giản là dùng truy vấn append hoặc update.

• RE: Tự động thêm hình vào attachment field hoặc OLE Object

  changkhoonline77 > 24-04-14, 07:28 PM

  Bạn Danh xem thủ tục này
  
  

  Mã PHP:

  Private Sub cmdCaptureImage_Click()
    txtLocation = Replace(txtLocation, "avi", "jpg")
    If Dir(AppFolders.WorkingFolder & "\" & txtLocation) <> "" Then Kill AppFolders.WorkingFolder & "\" & txtLocation
    vcx.SaveFrameJPG AppFolders.WorkingFolder & "\" & txtLocation, 90
    'show it on screen
    Image25.Picture = AppFolders.WorkingFolder & "\" & txtLocation
End Sub 


  Thủ tục này thực hiện việc lưu một ảnh Jpeg vào thư mục làm việc của chương trình. Nếu muốn, bạn chỉ cần tạo một thư mục chẳng hạn imgages sau đó lưu file vào đó, địa chỉ lưu sẽ là như thế này.
  AppFolders.WorkingFolder & "\images\" & txtLocation
  Địa chỉ tương đối sẽ là
  "\images\" & txtLocation
  Sau này khi chuyển chương trình đi đâu thì nó vẫn đúng đường dẫn thật.
  Khi mở file chỉ cần thêm đường dẫn chương trình đang chạy hiện tại CurrentProject.App là mở được ảnh!
  Còn việc lưu tên file dưới dạng ngày tháng
  thì bạn có thể thay thế thành
  "\images\" & format(now(),"hh_mm_mm_dd_yyyy") & ".jpg"
  Và bạn cập nhập đoạn này vào bảng dữ liệu với các thủ tục SQL thông thường!
  Khi cần thì mở ra!
  ....
  Xin chia sẻ như vậy!
  
  [/quote]
  Khuyến nghị Chỉ nên lưu đường dẫn của ảnh mà thôi, sau đó khi cần truy xuất ảnh, hãy dùng một picturebox để liên kết và hiển thị.
  Cách chèn đơn giản là dùng truy vấn append hoặc update.
  [/quote]
  
  Bạn làm cho mình file demo được hong?
  Mình chỉ cần lưu đường dẫn file ảnh tương đối và cách truy xuất nó. Mình bí vụ này rổi.

• RE: Tự động thêm hình vào attachment field hoặc OLE Object

  paulsteigel > 24-04-14, 10:16 PM

  (24-04-14, 07:28 PM)changkhoonline77 Đã viết: Bạn làm cho mình file demo được hong?
  Mình chỉ cần lưu đường dẫn file ảnh tương đối và cách truy xuất nó. Mình bí vụ này rổi.

  Bạn không cần phải demo cụ thể đến thế, hãy xem ví dụ này nhé:
  1. Bạn có 1 trường trong CSDL là ImagePath
  2. Trong thư mục ứng dụng của bạn, có một thư mục chứa ảnh như là image chẳng hạn.
  Khi bạn cần tải ảnh vào một PictureBox thì đơn giản là đặt thuộc tính Picture của đối tượng PictureBox thành
  PictureABC.Picture=CurrentProject.Path & "\image" & ImagePath
  trong sự kiện tải ảnh.
  Trong đó ImagePath có cú pháp luôn là
  Tenanh.Jpg hoặc Thumuc1\Anh1.Jpg
  Đấy là các địa chỉ tương đối, khi di chuyển chương trình đi đâu thì nó cũng luôn cập nhập được đường dẫn tuyệt đối bằng thuộc tính CurrentProject.Path (Thuộc tính này trả về đường dẫn chương trình Access của bạn).
  Xin chia sẻ như thế nhé!
  Thân!

• RE: Tự động thêm hình vào attachment field hoặc OLE Object

  changkhoonline77 > 25-04-14, 08:06 PM

  (24-04-14, 10:16 PM)paulsteigel Đã viết:

  (24-04-14, 07:28 PM)changkhoonline77 Đã viết: Bạn làm cho mình file demo được hong?
  Mình chỉ cần lưu đường dẫn file ảnh tương đối và cách truy xuất nó. Mình bí vụ này rổi.

  Bạn không cần phải demo cụ thể đến thế, hãy xem ví dụ này nhé:
  1. Bạn có 1 trường trong CSDL là ImagePath
  2. Trong thư mục ứng dụng của bạn, có một thư mục chứa ảnh như là image chẳng hạn.
  Khi bạn cần tải ảnh vào một PictureBox thì đơn giản là đặt thuộc tính Picture của đối tượng PictureBox thành
  PictureABC.Picture=CurrentProject.Path & "\image" & ImagePath
  trong sự kiện tải ảnh.
  Trong đó ImagePath có cú pháp luôn là
  Tenanh.Jpg hoặc Thumuc1\Anh1.Jpg
  Đấy là các địa chỉ tương đối, khi di chuyển chương trình đi đâu thì nó cũng luôn cập nhập được đường dẫn tuyệt đối bằng thuộc tính CurrentProject.Path (Thuộc tính này trả về đường dẫn chương trình Access của bạn).
  Xin chia sẻ như thế nhé!
  Thân!

  Mình không hiểu ở chỗ màu đỏ.
  PictureBox là gì?
  sự kiện tải ảnh là onload ak?

• RE: Tự động thêm hình vào attachment field hoặc OLE Object

  Xuân Thanh > 25-04-14, 08:59 PM

  1/ Bài viết của anh paulsteigel là rất rõ ràng, chỉ là quên chưa nói khi ta thực hiện ở form vì ở table không thấy được ảnh, chỉ khi làm trên form ,mới chèn được ảnh và nhìn thấy nó
  2/ Loại bài này đã có rất nhiều trên diễn đàn, chỉ là các bạn không chịu tìm trước khi đặt câu hỏi
  Các bạn tham khảo tại đây
  
  http://thuthuataccess.com/forum/thread-81.html
  http://thuthuataccess.com/forum/thread-3227.html
  
  Thân mến
  Xin close topic
• Bài trước Bài tiếp