• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Lấy Dữ liệu Qua Internet - Phương Thức SQL TCP/IP

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • Lấy Dữ liệu Qua Internet - Phương Thức SQL TCP/IP
• Lấy Dữ liệu Qua Internet - Phương Thức SQL TCP/IP

• 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 đó
• Bài trước Bài tiếp