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

[Kiều Mạnh]

vài ngày nữa xong úp Video cho xem he

1/ cái Sever kết nối tới cái Data.accdb
2/ Tao Pass Data khi kết nối hay gì đó tùy thích
3/ Từ Client kết nối vào lấy dữ liệu theo Server Phần quyền ( Thêm , xóa,Lọc ...)
4/ Nhiều máy kết nối Ok ... gần như cái Video bài 1
5/ Chủ yếu xài ADO...Nhìn link bài đó coi thấy rối như phim kiếm hiệp vậy ... nhưng bản chất của nó ngắn gọn chỉ có thế

 

[thuyyeu99]

vài ngày nữa xong úp Video cho xem he

Cám ơn.
Nhưng tôi không quan tâm .
Hihihi từ điểm a đến điểm b có 1 đoạn thôi có gì đâu mà khó.
Cảm ơn

 

[Kiều Mạnh]

Thui he .... Mạnh 123 Chạy khởi thớt này ít ngày nữa lập thới mới Úp Video cho Bạn khác xem vậy

 

[thuyyeu99]

Thui he .... Mạnh 123 Chạy khởi thớt này ít ngày nữa lập thới mới Úp Video cho Bạn khác xem vậy

Vậy nhé chúc mừng.
Cảm ơn bạn nhiều.

 

[transongngocquan]

192.168.x.x cái IP là cái IP mạng nội bộ, không phải IP Publib, muốn dùng IP Publib phải mở port nha. Chưa có mở port mà đòi chia sẽ qua internet.

 

[Hai Lúa Miền Tây]

192.168.x.x cái IP là cái IP mạng nội bộ, không phải IP Publib, muốn dùng IP Publib phải mở port nha. Chưa có mở port mà đòi chia sẽ qua internet.

IP Publid là gì thế bạn? Mở port ra chưa đủ để cho phép kết nối từ bên ngoài vào. Ta còn phải cấu hình chuyển hướng đến máy chạy server.

 

[Kiều Mạnh]

Nhân tiện ké tẹo ai có code lấy IP Publid .... mà ko xài API ko nhỉ
Úp cho Mạnh tham khảo chút

 

[befaint]

Không cần mở port cũng được bình thường. Dùng VPN thì cứ gõ 192.168.x.x (IP LAN) là dùng được thôi.
Nhiều cách mà.

 

[Hai Lúa Miền Tây]

Không cần mở port cũng được bình thường. Dùng VPN thì cứ gõ 192.168.x.x (IP LAN) là dùng được thôi.
Nhiều cách mà.

Vậy VPN ta không cần mở port?

 

[thuyyeu99]

các anh, chị có gì hay cứ post lên nói qua nói lại làm chi
Làm gì thì thì cũng phải mở post, nếu có cách khác cứ post lên nhé

 

[thuyyeu99]

máy cái này em pó tay
@transongngocquan Cái video chỉ là demo ip lan, còn nếu conect qua mạng intecnet thì nhập ip pu pe lic

 

[truongvu317]

Ta còn phải cấu hình chuyển hướng đến máy chạy server.

Bản thân quy trình mở port đã bao hàm bước này rùi nhóe.

 

[yamakashi2003]

nếu nói theo kiểu phim kiếm hiệp hình như bạn bị tẩu hỏa rồi.
nếu làm được bạn cứ tạo topic hướng dẫn mọi người đi.
Cái này không mới ( trong diễn đàn này rất nhiều người giỏi tôi đọc comment là biết ......).
Toàn nói linh tinh. bạn càng nói tôi không thể hiểu bạn nói gì.
Vậy nhé. Thân

Công nhận đọc b Mạnh comment xong k hiểu đang nói gì, có câu đọc thì hiểu là khẳng định nhưng lại thêm dấu ???
Không biết đang hỏi hay đang trả lời nữa =]]

 

[thuyyeu99]

hihihi Cái này dễ mà chỉ từ điểm A đi tới điểm B thôi chứ có gì đâu nè

 

[thuyyeu99]

Cuối cùng cũng Demo tạm được cái phân quyền

 

[Kiều Mạnh]

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 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 ????

 

[saobekhonglac]

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

Không tải được file thớt ơi.

 

[thuyyeu99]

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 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 ????

ráng đi

Không tải được file thớt ơi.

File cũ tôi phát hiện có nhiều cái dở quá, đang Update phiên bản mới mà dạo này việc nhiều quá thở không ra hơi nên chưa có thời gian tập trung vào viết tiếp được

 

[Kiều Mạnh]

ráng đi


File cũ tôi phát hiện có nhiều cái dở quá, đang Update phiên bản mới mà dạo này việc nhiều quá thở không ra hơi nên chưa có thời gian tập trung vào viết tiếp được

Vô tình phát hiện ra cách mới là Con String tới Server Luôn
1/ cách thứ nhất là Server gửi từng dòng 1 tới Client cho tới hết
2/ là Server gửi 1 Array qua Client
3/ cách cuối này mới hay là Mở kết nối từ Client qua Server ... thì mợi thứ như làm trên cùng máy vậy

Hãy nhìn code Atools nha ... hình như là thế đấy ... họ mở kết nối ADODB từ client tới Server ???!!!

Sub YourCodeStruct()
    On Error GoTo lbEndProc
    Dim XNet As New BSNetwork, cnn As BSConnection
    Dim rst As Object  'Recordset
    
    If Not ConnectToServer Then Exit Sub 'Connect to server
    
    'Connect to database in server and get instance to BSConnection
    Set cnn = XNet.OpenConnection("MDB") 'MDB is Dbkey code that added in "Dbkey Manager in server"
    
    'Get recordset by execute SQL statement
    Set rst = cnn.ExecSql("select * from dmkh")
    'Get column header
    For I = 0 To rst.Fields.Count - 1
        Cells(5, 7 + I).Value = rst.Fields(I).Name
    Next I
    'Paste values from recordset to sheet
    Range("G6").CopyFromRecordset rst
    
lbEndProc:
    If Not rst Is Nothing Then
        If rst.State = adStateOpen Then
            rst.Close
        End If
    End If
    Set rst = Nothing
    cnn.Close 'Close connection
    Set cnn = Nothing
    Set XNet = Nothing
    If Err <> 0 Then
        MsgBoxW2 Err.Description, vbCritical, Application.Name
    End If
End Sub

 

[thuyyeu99]

Vô tình phát hiện ra cách mới là Con String tới Server Luôn
1/ cách thứ nhất là Server gửi từng dòng 1 tới Client cho tới hết
2/ là Server gửi 1 Array qua Client
3/ cách cuối này mới hay là Mở kết nối từ Client qua Server ... thì mợi thứ như làm trên cùng máy vậy

Hãy nhìn code Atools nha ... hình như là thế đấy ... họ mở kết nối ADODB từ client tới Server ???!!!

Sub YourCodeStruct()
    On Error GoTo lbEndProc
    Dim XNet As New BSNetwork, cnn As BSConnection
    Dim rst As Object  'Recordset
   
    If Not ConnectToServer Then Exit Sub 'Connect to server
   
    'Connect to database in server and get instance to BSConnection
    Set cnn = XNet.OpenConnection("MDB") 'MDB is Dbkey code that added in "Dbkey Manager in server"
   
    'Get recordset by execute SQL statement
    Set rst = cnn.ExecSql("select * from dmkh")
    'Get column header
    For I = 0 To rst.Fields.Count - 1
        Cells(5, 7 + I).Value = rst.Fields(I).Name
    Next I
    'Paste values from recordset to sheet
    Range("G6").CopyFromRecordset rst
   
lbEndProc:
    If Not rst Is Nothing Then
        If rst.State = adStateOpen Then
            rst.Close
        End If
    End If
    Set rst = Nothing
    cnn.Close 'Close connection
    Set cnn = Nothing
    Set XNet = Nothing
    If Err <> 0 Then
        MsgBoxW2 Err.Description, vbCritical, Application.Name
    End If
End Sub

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 đề ?