Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Demo Chèn và hiển thị hình ảnh bằng đường dẫn
#11
(06-07-15, 10:21 AM)changkhoonline77 Đã viết: Cũng hay nhưng tiếc là link ảnh không động. Tức là thay đổi tên folder hay đường dẫn folder chứa ảnh thì phải link lại, trên 1000 record mà link lại thì...

Thì bạn dùng hàm Replace để đổi tên. Dù cho 1 triệu Reocord cũng được. Bạn biết tại sao tôi không làm tham chiếu động theo ý bạn hỏi không. Vì như thế bạn sẽ không có nút lệnh chèn tự động. Không lẽ bạn tự đánh tên hình vào.

Đó là lý do, nếu bạn cần hỗ trợ về hàm replace mình xin giúp đỡ tiếp.


Thân mến!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#12
bạn maidinhdan thân mến, sao mĩnh tải về chỉ chèn được hìnhđầu tiên sao đó điều báo là hình quá lớn không chèn được nữa.
Chữ ký của tronghieu9792 Xin chào, mình là tronghieu9792, Tham gia http://thuthuataccess.com/forum từ ngày 10-01 -14.
Reply
Những người đã cảm ơn
#13
(06-07-15, 04:07 PM)tronghieu9792 Đã viết: bạn maidinhdan thân mến, sao mĩnh tải về chỉ chèn được hìnhđầu tiên sao đó điều báo là hình quá lớn không chèn được nữa.
Chữ ký của tronghieu9792 Xin chào, mình là tronghieu9792, Tham gia http://thuthuataccess.com/forum từ ngày 10-01 -14.
Reply
Những người đã cảm ơn
#14
(06-07-15, 04:08 PM)tronghieu9792 Đã viết:
(06-07-15, 04:07 PM)tronghieu9792 Đã viết: bạn maidinhdan thân mến, sao mĩnh tải về chỉ chèn được hìnhđầu tiên sao đó điều báo là hình quá lớn không chèn được nữa.

Xem lại bản office đăng chạy ( Hầu hết dùng bản cr@ck trên mạng hay lỗi lắm) kiếm mà xin ai bản trả phí ấy,..nếu cần tôi tặng 1 bản.

Mình chèn cả chục hình có thấy gì đâu, giả lại đây là Demo tách từ Quản lý nhân sự 1 của mình, chạy gần 5 năm rồi có thấy nó báo cái gì đâu, ( Tốt nhất là sử dụng file *.jpg nhé) về kích thức thì vô tư.

Thân mến.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#15
(06-07-15, 04:04 PM)maidinhdan Đã viết:
(06-07-15, 10:21 AM)changkhoonline77 Đã viết: Cũng hay nhưng tiếc là link ảnh không động. Tức là thay đổi tên folder hay đường dẫn folder chứa ảnh thì phải link lại, trên 1000 record mà link lại thì...

Thì bạn dùng hàm Replace để đổi tên. Dù cho 1 triệu Reocord cũng được. Bạn biết tại sao tôi không làm tham chiếu động theo ý bạn hỏi không. Vì như thế bạn sẽ không có nút lệnh chèn tự động. Không lẽ bạn tự đánh tên hình vào.

Đó là lý do, nếu bạn cần hỗ trợ về hàm replace mình xin giúp đỡ tiếp.


Thân mến!

Mình đã có làm tham chiếu link ảnh rồi. Chỉ lâu lâu nó lỗi chút thôi

http://thuthuataccess.com/forum/thread-8120.html
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#16
Hi Dân.
Mấy hôm rồi bị lún chân vào cuộc thi ảnh nghệ thuật của tỉnh mình nên không test được code chèn hình của bạn. Công việc chỉ mới xong tối qua. Giờ mới có thể “ngâm cứu được”.
Có mấy vấn đề như sau:
1/ Đối với các tập tin .jpg ảnh hiển thị rất tốt.
Ảnh gốc
 
[Hình: IX1tnbN.png]

Ảnh với ctrol DBPix

[Hình: MpihPQ7.png]

 Ảnh với code maidinhdan

[Hình: 6IsMH2B.png]
 
2/Nhưng ảnh .BMP thì hiển thị không đạt

Ảnh gốc

[Hình: r5qTMVS.png]

Ảnh với ctrol DBPix

[Hình: M9gADMf.png]

Ảnh với code maidinhdan

[Hình: lHPN3M8.png]
 
Ảnh bị vỡ nét, xuất hiện những vết màu lạ
Vì vậy nếu chỉ sử dụng hiện thị ảnh jpg thì được nhưng trong những cuộc thi ảnh nghệ thuật như không khống chế type ảnh như trường hợp của mình thì không được.
Nếu có hứng thú thì maidinhdan nghiên cứu thêm về vấn đề này nhé.
3. Còn về việc vấn đề link ảnh không động mà cangkhoonline77 đề cập thì cơ sở dữ liệu acess cần có dữ liệu ảnh chính xác và thư mục ảnh cố định nên cũng không cần việc linh động khi thay đổi tên thư mục chứa ảnh, ví dụ như ảnh học sinh hay CMND cần phải cố định đường dẫn (việc này bắt buột luôn à nha). Tất nhiên nếu cần thì viết code cũng rất dễ dàng. Có đều vấn đề là trong những cuộc thi ảnh với số lượng hàng ngàn ảnh ở vòng loại sau mỗi vòng phải load lại danh sách đường dẫn ảnh đạt vào vòng trong (thư mục mới) để chấm điểm thì việc xử lý kiểu cổ điển không thể đáp ứng tốc độ làm việc của cuộc thi được. Vì vậy phải viết code để import tên ảnh theo từng đợt chấm vào table.
Sẵn đây mình sẽ giới thệu luôn code này.
Mình lấy ngay data Code_Xem Anh của maidinhdan làm ví dụ trong table tbnhanvien 2 field. Field Hinh là đường dẫn ảnh, field Socmnd là số thứ tự, ảnh nằm trong folder "D:\AnhNgheThuat\"
Function DanhSachFile sẽ load danh sách đường dẫn ảnh theo thứ tự tên ảnh
 

Mã PHP:
Function DanhSachFile(TenFolder As StringTenTable As StringTenTruong1 As StringTenTruong2 As String)
Dim ThuTuFile As Integer
Dim TenFile 
As String
 
ThuTuFile 
0TenFile ""
  
With Application
.FileSearch
.LookIn TenFolder: .Filename "*.*"
If .Execute 0 Then
For ThuTuFile 1 To .FoundFiles.Count
TenFile 
= .FoundFiles(ThuTuFile)
 
CurrentDb
.Execute "IN_SERT INTO " TenTable " (" TenTruong1 "," TenTruong2 ")SELECT """ ThuTuFile """,""" TenFile """ ;"
 
Next
End 
If
End With
 
End 
Function 

 
Tạo một nút lệnh hoặc ctrol nào đó để xử lý event (ví dụ Command Button TaoDSAnh). Code.
 

Mã PHP:
Private Sub TaoDSAnh_Click()
DanhSachFile "D:\AnhNgheThuat\", "tbnhanvien", "Socmnd", "Hinh"
End Sub 

 
Nó sẽ tạo một danh sách đường dẫn đầy đủ để hiển thị số thứ tự và đường dẫn ảnh cho ctrol Hienthihinh trong demo Code_Xem Anh của maidinhdan.
 
Đối với Demo của mình vì danh sách chỉ lấy tên tập tin cho DBPix control DBPixMain nên hơi khó phải xử lý khác hơn một chút. Vả lại thư mục ảnh làm việc thay đổi liên tục nên phải xử lý theo thư mục chứ database và ảnh của nó.
 
Vì vậy phải thêm vào Function DanhSachFile
 
 

Mã PHP:
TenFile Right(TenFileLen(TenFile) - Len(CurrentProject.Path "\image") - 2)
 
CurrentDb
.Execute "IN_SERT INTO " TenTable " (" TenTruong1 "," TenTruong2 ")SELECT """ ThuTuFile """,""" TenFile """ ;" 

 
Và code TaoDSAnh_Click là
 

Mã PHP:
Private Sub TaoDSAnh_Click()
    DanhSachFile CurrentProject.Path "\Images""tbnhanvien""Socmnd""Hinh"
End Sub 

 
Tất nhiên thư mục chứa ảnh phải có tên là images nằm trong thư mục database Code_Xem Anh.
Do trong điều kiện của bác noname mình phải sửa thành từ IN_SERT khi khi đưa vào modum phải bỏ ký tự _
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , Binhxuan1903 , Noname
#17
Bạn maidinhdan thân mến. Chương trinh bạn rất hay. Mình đanh cần, thanks nhiều nhá. Bạn chỉ mình in ảnh ra report với. Cám ơn nhièu. 
P/s: vì là dân ko chuyên, hỏi có gì ngu các bác đừng cười.  :008:
Chữ ký của Binhxuan1903 Binhxuan1903,gia nhập Thủ Thuật Access từ 25-09 -15.
Reply
Những người đã cảm ơn
#18
(02-07-15, 05:31 PM)maidinhdan Đã viết: [i]maidinhdan to TranThanhAn1962[/i]

Đây là Demo hiển thị ảnh như dùng Window mở vậy, đã test nhìn là thấy mê

1. Code sử dụng gồm:

- Chèn vị trí file ảnh
- Hiển thị hình ảnh theo link được lưu trong table

2. Thư viên DLL tham chiếu: Không có ( Vì ưu điểm này mà có thể chạy trên tất cả các Hệ điều hành và tất cả các bản Office 2003,2007,2010,2013...

3. Quy định về Kích thước và kiểu file ảnh: Không có
+ Vì thế bạn đưa bất kỳ file ảnh nào lên dù kích thước lớn hay nhỏ nó tự động canh chỉnh theo khung Text vẽ, và hình mình xem trên Window đẹp như thế nào thì khi xem trên Access cũng như thế.

4. Hình minh họa khi Load file:

Hình thứ 1 ( nhấn vào hình để xem thực tế)
[Hình: Demoxemhinh1.png]


Hình thứ 2 ( nhấn vào hình để xem thực tế)
[Hình: Demoxemhinh2.png]


Demo tải phí dưới.

Ghi chú:
- Vì file ảnh khá nặng nên chỉ đính kèm Demo file thôi. Ảnh các bạn kiển và chèn lại nhé
-Anh TranThanhAn1962 sửa lại tiêu đề dùm em là: "Demo Chèn và hiển thị hình ảnh bằng đường dẫn"

Thân ái, chúc anh vui khỏe.
Bạn maidinhdan thân mến. Chương trinh bạn rất hay. Mình đang rất cần, thanks nhiều nhá. Bạn chỉ mình in ảnh ra report với. Cám ơn nhièu. 

P/s: vì là dân ko chuyên, hỏi có gì ngu các bác đừng cười.  008
Chữ ký của Binhxuan1903 Binhxuan1903,gia nhập Thủ Thuật Access từ 25-09 -15.
Reply
Những người đã cảm ơn
#19
Anh Maidinhdan cho em xin phần mềm quản lý nhân sự bản accde được không để em nghiên cứu, em mới mày mò access nên cần học tập. Email của em: hoangmaikb@gmail.com, em dùng Office 2013, 64bit
Chữ ký của hungle2006 hungle2006,gia nhập Thủ Thuật Access từ 10-10 -15.
Reply
Những người đã cảm ơn
#20
Câu hỏi thứ 1: từ bạn
(25-09-15, 04:16 PM)Binhxuan1903 Đã viết: Bạn maidinhdan thân mến. Chương trinh bạn rất hay. Mình đang rất cần, thanks nhiều nhá. Bạn chỉ mình in ảnh ra report với. Cám ơn nhièu. 

P/s: vì là dân ko chuyên, hỏi có gì ngu các bác đừng cười.  008

Xem bài này...Có cả Demo: Chèn ảnh vào report ( nếu không có ảnh thì thu gom lại )

Thân mến!


Câu hỏi thứ 2: từ bạn

(08-03-16, 10:24 PM)hungle2006 Đã viết: Anh Maidinhdan cho em xin phần mềm quản lý nhân sự bản accde được không để em nghiên cứu, em mới mày mò access nên cần học tập. Email của em: hoangmaikb@gmail.com, em dùng Office 2013, 64bit

Ứng dụng quản lý nhân sự mình chỉ mới hoàn thành 80% thôi, và chỉ viết trên Access 2003.

Bạn cần chức năng về vấn đề gì mình sẽ tách Demo gửi cho bạn,

Thân mến!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (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
  Tự động hiện Form khi loading hết thời gian ChiMai 1 20 9 Giờ trước
Bài mới nhất: ongke0711
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 197 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
  Query hiện lên trên form? feeling 4 160 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  Thay đổi hình ảnh theo mã feeling 3 149 04-11-16, 05:18 PM
Bài mới nhất: maidinhdan
  Chèn file văn bản word vào access danhxetnghiem 10 436 11-10-16, 03:42 PM
Bài mới nhất: danhxetnghiem

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ơ