Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: Noname 01-09-10, 09:27 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (7) |
Trên thực tế, rất nhiều dữ liệu ta cần lấy từ web, hoặc nhập liệu lên web site từ MS Access.
Bài viết dưới đây của mình nhằm hướng dẫn các bạn khái niệm cơ bản nhất để làm 1 ứng dụng tương tác Web server bằng Access thông qua thư viện winhttp
Để sự dụng thư viện này, các bạn phải khai báo trong khung soạn thảo code
Đầu tiên. Bạn tạo 1 file MDB mới. Tạo 1 form mới và vẽ
1 textbox tên texbox1
1 nút command button tên command1
1 đối tượng image tên pisture 1.
Trong khung soạn VBA, nhập đoạn code sau vào.
Mã:
Sub getPicture(url As String)
Set WinHttpReq = New WinHttpRequest
' Tạo một mảng chứa dữ liệu trả về
Dim d() As Byte
' Mở 1 thủ tục một yêu cầu lấy dữ liệu
WinHttpReq.Open "GET", url, False
' Gửi yêu cầu đó tới server
WinHttpReq.Send
' Lấy về tiến trình tải về .
Text1.Value = WinHttpReq.Status & " - " & WinHttpReq.StatusText
' Đưa dữ liệu nhận được vào mảng đã khai báo với file tạm là temp.gif trong bộ nhớ
Open "temp.jpg" For Binary As #1
d() = WinHttpReq.ResponseBody
Put #1, 1, d()
Close
' gán file vào giá trị đối tượng picture tạo sẵn
Picture1.Picture = "temp.jpg"
End SubMã:
Private Sub Command1_Click()
getPicture "http://i39.photobucket.com/albums/e193/duytuan2002/Access/Thuthuataccess.jpg"
End SubGiờ bạn xem điều kì diệu xảy ra.
Down load demo ở đây: Click
Về tương lai có lẽ các bài hướng dẫn của mình sẽ hướng tương tác web. Mình sẽ cập nhật những gì học được sau.
các bạn có thể tham khảo các hàm của thư viện winhttp trên trang web của microsoft:
http://msdn.microsoft.com/en-us/library/...85%29.aspx
|
|
Viết bởi: Noname 31-08-10, 10:53 PM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (37) |
Xuân Thanh- Dân kế Toán Đã viết:Hôm trước đã giới thiệu với các bạn một file quan lý Nhập Xuất Tồn đơn giản bằng Excel,. Hôm nay xin gửi các bạn một file quản lý như thế nhưng viết bằng Access. Nội dung chủ yếu cũng vẫn là Nhập xuất vật tư, tính tồn kho và tính thẻ kho. File này tương đối đầy đủ hơn file viết bằng Excel.DownLoad
.................................................. .................................
Do đường dẫn cũ bị lỗi, bạn nào chưa download được file hãy dow theo file phía dưới. Mật khẩu mở file là : xuan
Lưu ý : File viết đã lâu, dùng font VNI, các bạn chú ý kẻo lỗi font
Thân
|
Viết bởi: The Wind 31-08-10, 10:47 AM Chuyên mục: Query - Bài trả lời (2) |
Mình rất dốt về SQL nên các bạn giúp mình nhé:
Mình có 2 table:
tb_ThietBi:ThietBi_ID,TenThietBi....
tb_BanGiao:banGiao_ID,ThietBi_ID,NgayBanGiao,NhanVien_ID,PhongBan_ID...
tb_ThietBi liên kết 1 nhiều với tb_Bangiao qua khoasThietBi_ID.
Mình muốn lọc ra danh sách tất cả các thiết bị cùng với ngày bàn giao cuối cùng(lớn nhất), cùng NhanVien_ID,PhongBan_ID nếu nó đã được bàn giao.
Noname và các bạn giúp mình nhé.
Xin lỗi, nếu mình thông minh hơn chút... đọc hoài hok hiểu các dùng total query để làm được cái này
|
|
Viết bởi: Noname 31-08-10, 09:19 AM Chuyên mục: Thư Viện Hàm - Bài trả lời (2) |
Mã:
Function TypeField(T As String, F As String)
'T: tên table, F: tên Field
TypeField = FieldType(CurrentDb.TableDefs(T).Fields(F).Type)
End FunctionMã:
Function FieldType(intType As Integer) As String
Select Case intType
Case dbBoolean
FieldType = "dbBoolean"
Case dbByte
FieldType = "dbByte"
Case dbInteger
FieldType = "dbInteger"
Case dbLong
FieldType = "dbLong"
Case dbCurrency
FieldType = "dbCurrency"
Case dbSingle
FieldType = "dbSingle"
Case dbDouble
FieldType = "dbDouble"
Case dbDate
FieldType = "dbDate"
Case dbText
FieldType = "dbText"
Case dbLongBinary
FieldType = "dbLongBinary"
Case dbMemo
FieldType = "dbMemo"
Case dbGUID
FieldType = "dbGUID"
End Select
End FunctionSửa Dụng:
Giải sử ta có 1 field trong table và muốn biết nó có kiểu dữ liệu là gì , ta có thể gọi hàm này kiểm tra
Mã:
Private Sub Command0_Click()
MsgBox TypeField("Table1", "MASO")
End Sub
|
|
Viết bởi: Noname 31-08-10, 09:12 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (7) |
| Chủ đề Mới nhất |
| Discussing diesel generat... -Chuyên mục: MS Word-Đăng bởi lần cuối: Murraymoife-31 Phút trước- » Bài trả lời: 0- » Lượt xem: 1 |
| uZ8rlF0ykP7dzW5kxD3zdJ6ng... -Chuyên mục: MS Word-Đăng bởi lần cuối: Robertkeeby-8 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,255 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 125 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 142 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 7,849 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 146 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 566 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 166 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 475 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |