-
Lấy Dữ liệu Qua Internet - Phương Thức SQL TCP/IP
kieu manh > 21-09-21, 11:23 AM
1/ đây là bản Demo lấy dữ liệu qua Internet ... Úp lên đây cho bạn nào dùng được thì dùng
2/ đọc file hướng dẫn kèm theo khi tải Files
3/ Nếu máy bạn nào cài Office 64 bít thì bắt buộc cài
Microsoft Access Database Engine 2010 Redistributable
của Ms link sau thì mới sử dụng được
Download Microsoft Access Database Engine 2010 Redistributable from Official Microsoft Download Center
www.microsoft.com www.microsoft.com
4/ Nếu máy bạn nào Office 32 bit thì bỏ qua mục số 3
5/ Trong file có sử dụng code của nước ngoài ( một Coder quốc tịch Đức Viết )
6/ Yêu cầu máy tính có kết nối internet thì mới sử dụng được
7/ Các bạn chuyên Access thì lấy dữ liệu Access về xong muốn làm gì thì tùy chỉnh lại cho phù hợp
8/ Xem video và cách sử dụng
https://youtu.be/P_DUG5DbLM0
9/ Link tải Files
https://drive.google.com/file/d/126R0YvM...sp=sharing -
RE: Lấy Dữ liệu Qua Internet - Phương Thức SQL TCP/IP
kieu manh > 25-09-21, 05:03 PM
Bật mí cho ai tò mò thử chút cái SQL TCP/IP nè ...nó ẩn trong đó là một tính năng đang thử nghiệm
1/ Lưu dữ liệu từ xa vào Data Server
2/ xóa dữ liệu từ xa tới Data Server
3/ cái hàm sau thay cho Cnn như trên VBA ==> Conn As ADODB.connection = đã kết nối tới CSDL
Mã:Function ConnectDataName(Ip As String, Port As Long, FileName As String, SQL As String) As ADODB.Recordset
Rem Ham ConnectDataName nay thay the cho ==> Conn As ADODB.connection = da ket noi toi CSDL
Rem Sau khi ket noi tra ve kieu du lieu la ADODB.Recordset
Set LoadCOM = RPC.NewInstance("VB6Library.cLoadCOM")
Set ConnectDataName = LoadCOM.ConnectDataName(Ip, Port, FileName, SQL)
If Not LoadCOM Is Nothing Then Set LoadCOM = Nothing
End Function
4/ Thử khai báo Public Rs As ADODB.Recordset mà ghi + xóa dữ liệu từ xa xem như thế nào
( Cách viết y trang trên VBA thôi )
5/ Lưu ý chức năng đó chưa hoàn thiện lắm nên tạm ẩn đó