Kết nối Access, Excel, chia sẻ dữ liệu qua Internet

Liên hệ QC
Vậy bạn viết trong VB6 là gì, tới giờ này tôi thấy bạn chưa nghiệm ra được vấn đề ? :(
chịu ko biết nói gì

có thể là thế này: cái đích lấy lấy dữ liệu qua Internet Qua IP
Ông A là theo hướng này
Ông B là hướng x
Ông C là hướng Y

Mục đích ai làm gì kệ họ ... quan trong lấy dữ liệu qua IP về là OK

kiểu a nói này B hiểu kiểu Z nên có cái chi đó lệch nhau thôi
 
Lần chỉnh sửa cuối:
Muốn thành chánh quả phải trải qua kiếp nạn chứ. Nghiên cứu tiếp đi.
(Tôi thấy có nhiều người săm soi như phát hiện ra chân lý ấy)
mọi cái ko quan trọng có thế hôm nay là chân lý ngày mai cho nó vào thùng Rác
có thể hôm nay khẳng định là hay ... mai mốt mới thấy dỡ ẹc -0-0-0-

Bill viết Bộ Office mấy chục năm vẫn sửa đó thôi
 
mọi cái ko quan trọng có thế hôm nay là chân lý ngày mai cho nó vào thùng Rác
có thể hôm nay khẳng định là hay ... mai mốt mới thấy dỡ ẹc -0-0-0-

Bill viết Bộ Office mấy chục năm vẫn sửa đó thôi
;) vậy hen cố gắng nghiên cứu đi rồi bạn sẽ phát hiện ra nhiều thứ đáng để suy ngẫm, phải chi đừng biết thì hay hơn ;)
 
Thấy họ làm cũng bắt trước làm 1 cái trên VB6 ... em nó đang hình thành .... mò diết cũng ra thui -0-0-0- -0-0-0- phỏng biết nó có giống ai ko nữa
Giai đoạn 2 cho em nó vào Delphi mới Úp được .... cái giai đoạn 2 này mới cà chua đây ????
cái này lấy được data qua mạng internet á, cấu hình nó như thế nào bạn?
 
;) vậy hen cố gắng nghiên cứu đi rồi bạn sẽ phát hiện ra nhiều thứ đáng để suy ngẫm, phải chi đừng biết thì hay hơn ;)
Thì tò mò thấy họ làm cũng mò làm thôi ... chứ với Mạnh cũng chỉ là Trò chơi cho vui à
Mà ngày nay nhiều dịch vụ khác hay hơn nhiều có thể thay thế nó rồi

VD: Ms Server ... ai qua dược nó , Ứng dụng Office 365, Google Sheet vvv

... vậy thôi ko nói nữa .... nói nhiều ko vui lắm ( đừng hiểu sai câu này )
 
:unknw: Not related to me, so I don't care :unknw:
 
đơn giản chỉ có thế ... Mở kết nối ADODB từ Phía Client Tới Server
cách 1
Mã:
Public Sub GetDatabase_ServerVB6()
    Dim rst As ADODB.Recordset
    Dim Xnet As New Network
    Dim SQL As String
    SQL = "select * from DataBaseNhap"
    Set rst = Xnet.connect("192.168.1.9", 8181, SQL)
    Range("A10:M1000").ClearComments
    Range("A10").CopyFromRecordset rst
End Sub

Cách 2
Mã:
Public Sub GetDatabase2_VB6()
    Dim rst As ADODB.Recordset
    Dim Xnet As New Network
    Dim SQL As String, i As Long    
    SQL = "select * from DataBaseNhap"   
    Set rst = Xnet.connect("192.168.1.9", 8181, SQL)
    Range("A10:M1000").ClearComments
    For i = 0 To rst.Fields.Count - 1
        Cells(1, 1 + i).Value = rst.Fields(i).Name
    Next i  
    Range("A2").CopyFromRecordset rst  
End Sub

Túm lại trên VBA Mở kết nối sao thì nó thế ... rất đơn giản -0-0-0-
 
Lần chỉnh sửa cuối:
View attachment 235622

DATABASE HUB Tool v.1

Chia sẻ file dữ liệu (Excel, Access) qua mạng Internet, LAN

——————————————————————————————————————

Hiện nay có rất nhiều ứng dụng viết trên nền Ms Access nhưng có một điểm trở ngại là Access không thể chia sẻ cơ sở dữ liệu (CSDL) Back-end qua mạng Internet để các máy con có thể ngồi bất cứ đâu kết nối, nhập liệu, trực tiếp đồng bộ về CSDL trên máy chủ. Về mạng LAN, CSDL Access có thể chia sẻ để các máy con kết nối tới nhưng với điều kiện phải “Share folder full” quyền thì các máy con mới thao tác dữ liệu được. Điều này cũng gây nguy hiểm cho file CSDL nếu như có ai đó lỡ tay hay cố ý xoá mấy file CSDL back end. Hiện tại cũng có giải pháp là tận dụng các dịch vụ Cloud để đồng bộ dữ liệu qua internet như: Google Drive, One Drive…Đây cũng là cách hay nhưng có điểm hạn chế là file CSDL back-end cũng phải lưu một bản ở các máy con (chi nhánh) rồi sau đó mới định kỳ đồng bộ về file CSDL BE ở máy chính (Tổng Cty).
Công cụ nhỏ Database Hub Tool sẽ hỗ trợ các bạn, mở rộng thêm khả năng CSDL Access là có thể chia sẻ, kết nối trực tiếp CSDL qua mạng internet (WAN). Database Hub Tool dùng giao thức TCP/IP để chia sẻ file qua mạng, tốc độ truy xuất rất nhanh, các bạn có thể test ở file Demo đính kèm. Công cụ này có thể chia sẻ file Excel nhưng ở đây mình sẽ giới thiệu cách dùng riêng cho CSDL Access (.mdb, .accdb) thôi nhé.
Khi dùng Database Hub, máy tính nào cũng có thể dùng làm máy chủ để chia sẻ file CSDL, chỉ cần copy ứng dụng “Server.exe” vào máy (không cần cài đặt) là có thể tạo tài khoản đăng nhập, thao tác chia sẻ file database là xong.
Một số tính năng chính:
- Database Hub Tool có 2 lớp bảo mật cho CSDL của bạn đó là: 1. Tài khoản/mật khẩu đăng nhập Server; 2. Mật khẩu file Database Access.
- Bạn có thể thao tác trên dữ liệu dưới các hình thức như: Truy vấn (Select query), thao tác Thêm, Xoá, Sửa dữ liệu (các Action query: Insert, Update, Delete).
- Bạn có thể gọi chạy các Query cơ bản đã thiết kế sẵn (Saved Query) trên CSDL back-end trả về Recordset cho ứng dụng Front-end.
- Hiện tại Database Hub Tool chưa hỗ trợ dạng Linked Table (kể cả qua ODBC), các bạn chỉ có thể lập trình kết nối, xử lý qua thư viện ADODB thôi nhé.
View attachment 235619
View attachment 235620
View attachment 235621

Các bạn xem video hướng dẫn để nắm rõ hơn.

Link Dowload
AD có thể cho mình tải DATABASE HUB Tool được không
 
Web KT
Back
Top Bottom