Đánh giá chủ đề:
  • 1 Votes - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Chỉnh sửa lại dữ liệu trong access
#1
Trong form của em có một cái textbox lưu đường dẫn thế này
"Y:\Duoc\Database\Images\ZINC SULFATE MONO 98% ZN 35.7% -Lantian Chemical - Back (Large).jpg"
Nhưng vì bây giờ em chuyển cái Database của em sang chổ khác nên đường dẫn này không hoạt động được,em muốn thay "Y:\Duoc\" bằng "K:\QC QA database\VNGTD\" và giử lại toàn bộ đường dẫn thì em phải làm sao??
Rất mong nhận được giúp đỡ của các sư huynh sư tỷ.
Chữ ký của Hoanggiathanhsingles Xin chào! Mình là Hoanggiathanhsingles, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn
#2
Tham khảo cái này

Sample


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
#3
Cảm ơn Cafe Via He nhiều, nhưng cái này vẫn chưa đáp ứng được như mình mong muốn.
Mình mong muốn là khi nhấp chuột vào nút lệnh thì cái đường dẫn này
"Y:\Duoc\Database\Images\ZINC SULFATE MONO 98% ZN 35.7% -Lantian Chemical - Back (Large).jpg"
Sẽ tự động mất cái cụm "Y:\Duoc\" và tự động thế vào đó bằng cụm "K:\QC QA database\VNGTD\"
Mong nhận được sự chỉ dẫn của các sư huynh tỷ.
Chữ ký của Hoanggiathanhsingles Xin chào! Mình là Hoanggiathanhsingles, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn
#4
Mình chỉ đưa ví dụ minh họa thôi, còn việc áp dụng vào bài của bạn là do bạn làm chứ. Tự làm như thế mới nhớ và hiểu chứ ng khác làm dùm hết thì bạn sẽ k tiến bộ đâu

Câu query đại loại nó sẽ là:
Mã:
UPDATE Table SET table.path = "K:\QC QA database\VNGTD\" & Mid([table.path],8);
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
#5
Giải thuật thế này, bạn cố gắng thực hiện nhé, ví dụ đường dẫn bạn lưu vào field có tên duongdan.

1/ ta thấy "Y:\Duoc\" gồm 8 ký tự. Như vậy, để lấy đoạn còn lại, ta dùng:
mid(duongdan,8)

2/ ta ghép kết quả có được với đường dẫn mới:
"K:\QC QA database\VNGTD\" & mid(duongdan,8)

Cuối cùng, gọi 1 query update đường dẫn mới này vào duongdan cũ!

Chúc thành công!
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
#6
Hi..hi..hi
Cảm ơn các sư huynh tỷ đã chỉ dẫn và đưa em khẩu quyết, nương theo đó em đã làm và đã thành công.
Cảm ơn các sư huynh tỷ rất nhiều.
Em xinh gửi đoạn code của em cho sư huynh tỷ xem nhé!

Mã:
Private Sub Command60_Click()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("select duongdan from [Q-LayoutInputing]")
If Rs.RecordCount > 0 Then
Rs.MoveFirst

While Rs.EOF = False
Dim Str, Str2, Str3, Str4 As String
Str = Mid(Rs.Fields("duongdan"), 8) 'cat bo cum dau cua duong dan "Y:\Duoc\"
Str4 = "K:\QC QA database\VNGTD" 'gan cho mac dinh cho bien Str4 cum "K:\QC QA database\VNGTD\"
If Left(Rs.Fields("duongdan"), 8) = "Y:\Duoc\" Then
Dim Cancel As Boolean
Rs.Edit
Rs.Fields("duongdan") = Str4 & Str
Rs.Update
Else
Cancel = True
End If
Rs.MoveNext
Wend
If Rs.EOF = True Then
MsgBox "Update link completed", , "Updated All Completed"
Exit Sub
End If
End If
Chữ ký của Hoanggiathanhsingles Xin chào! Mình là Hoanggiathanhsingles, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
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
  [Help] Lỗi "A problem occurred while Microsoft Access was communicating with the OLE server thanhoai 1 109 03-11-16, 03:53 PM
Bài mới nhất: maidinhdan
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 229 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Lỗi] Cúp điện ---> lỗi access 2013 biencuong86 3 149 26-10-16, 04:30 PM
Bài mới nhất: maidinhdan
  [Help] Thiết kế form nhập và lưu trữ dữ liệu theo yêu cầu brianhuynh 16 624 20-10-16, 10:54 PM
Bài mới nhất: brianhuynh
  Xóa tất cả các dữ liệu ChiMai 3 145 15-10-16, 02:47 PM
Bài mới nhất: cpucloi

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ơ