Tùy chọn
[Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
- [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
-
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
thuyyeu99 > 25-03-20, 03:49 PM
hihi tới giờ mới mở máy được. Đây anh cái Type của em
fld.Name: Region - fld.Type: 202 - TypeName: Long -Size: 255 -TypeCovert: adWChar -DAOType(fld.Type): 10
fld.Name: Country - fld.Type: 202 - TypeName: Long -Size: 255 -TypeCovert: adWChar -DAOType(fld.Type): 10
fld.Name: Item Type - fld.Type: 202 - TypeName: Long -Size: 255 -TypeCovert: adWChar -DAOType(fld.Type): 10
fld.Name: Sales Channel - fld.Type: 202 - TypeName: Long -Size: 255 -TypeCovert: adWChar -DAOType(fld.Type): 10
fld.Name: Order Priority - fld.Type: 202 - TypeName: Long -Size: 255 -TypeCovert: adWChar -DAOType(fld.Type): 10
fld.Name: Order Date - fld.Type: 135 - TypeName: Long -Size: 16 -TypeCovert: Date/Time -DAOType(fld.Type): 0
fld.Name: Order ID - fld.Type: 5 - TypeName: Long -Size: 8 -TypeCovert: adInteger -DAOType(fld.Type): 7
fld.Name: Ship Date - fld.Type: 135 - TypeName: Long -Size: 16 -TypeCovert: Date/Time -DAOType(fld.Type): 0
fld.Name: Units Sold - fld.Type: 5 - TypeName: Long -Size: 8 -TypeCovert: adInteger -DAOType(fld.Type): 7
fld.Name: Unit Price - fld.Type: 5 - TypeName: Long -Size: 8 -TypeCovert: adInteger -DAOType(fld.Type): 7
fld.Name: Unit Cost - fld.Type: 5 - TypeName: Long -Size: 8 -TypeCovert: adInteger -DAOType(fld.Type): 7
fld.Name: Total Revenue - fld.Type: 5 - TypeName: Long -Size: 8 -TypeCovert: adInteger -DAOType(fld.Type): 7
fld.Name: Total Cost - fld.Type: 5 - TypeName: Long -Size: 8 -TypeCovert: adInteger -DAOType(fld.Type): 7
fld.Name: Total Profit - fld.Type: 5 - TypeName: Long -Size: 8 -TypeCovert: adInteger -DAOType(fld.Type): 7 -
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
ongke0711 > 25-03-20, 04:07 PM
Hàm DAOType() của anh thiếu cái 135. Thêm vào chút.
Mã PHP:Function DAOType(iADOType As Integer) As Integer
Select Case iADOType
Case 202
DAOType = 10 'dbText
Case 4
DAOType = 6 'dbSingle
Case 3
DAOType = 3 'dbInteger
Case 5
DAOType = 7 'dbDouble
Case 7
DAOType = 8 'dbDate
Case 135
DAOType = 23 'dbDateTime
End Select
End Function -
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
thuyyeu99 > 25-03-20, 04:28 PM
Nó vẫn lỗi fld.Type=135 anh -
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
ongke0711 > 25-03-20, 04:30 PM
Em đổi số 23 thành 8 xem. -
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
thuyyeu99 > 25-03-20, 04:33 PM
dbDate 8 ok rồi anh -
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
thuyyeu99 > 25-03-20, 04:46 PM
hehehe Fix 1 số lỗi nữa là xong
[img]![[Hình: ok.png]](https://www.upsieutoc.com/images/2020/03/25/ok.png)
[/img]
-
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
thuyyeu99 > 03-04-20, 11:09 PM
[color=var(--ytd-video-primary-info-renderer-title-color, var(--yt-spec-text-primary))]Lập trình Mạng trong VBA [excel, Access] voi T_DllClientServer ocx[/color]
-
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
ongke0711 > 03-04-20, 11:33 PM
Tuyệt vời quá em.
. Công cụ này triển khai ra là ngon đó.
Cái OCX này có tuỳ chọn ngắt kết nối với CSDL nhưng vẫn giữ kết nối tới Server không em?
Vì thực tế sẽ code sẽ có trường hợp kết nối CSDL xong ngắt để không bị chiếm băng thông hoặc khoá CSDL. -
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
thuyyeu99 > 03-04-20, 11:34 PM
Nhờ có anh đó hihihi -
RE: [Ứng dụng]Chia sẻ dữ liệu Access qua InterNet
thuyyeu99 > 03-04-20, 11:49 PM
(03-04-20, 11:33 PM)ongke0711 Đã viết: Tuyệt vời quá em.
Chỉ có Sever là giữ kết nối tới cơ sở dữ liệu thôi anh, còn Client mở xong lấy về rồi ngắt. . Công cụ này triển khai ra là ngon đó.
Cái OCX này có tuỳ chọn ngắt kết nối với CSDL nhưng vẫn giữ kết nối tới Server không em?
Vì thực tế sẽ code sẽ có trường hợp kết nối CSDL xong ngắt để không bị chiếm băng thông hoặc khoá CSDL.
Anh còn ý gì nữa không để em Fix luôn