Kết nối Access, Excel, chia sẻ dữ liệu qua Internet (1 người xem)

thuyyeu99 · 14/4/20

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é.

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

Link Dowload

Kiều Mạnh · 17/4/20

đang Rảnh + Tò mò chút Mạnh test dùm cho Sư Phụ he ... có sao nói vậy ko hiểu sai lệch làm mất vui he

I/ Đang Rảnh
1/ đăng ký theo hướng dẫn ... Mà kể cả không hướng dẫn Mạnh cũng Mò ra .... cái này bỏ qua đừng keo là mạnh ko biết làm he
2/ khi chạy nó báo lỗi chưa đăng ký Class ???

II/ Tò mò
1/ Trên VB6 thấy Google nó cũng keo viết cái DLL x32 nếu chạy trên x64 thì
copy vào C:\Windows\SysWOW64 còn x32 thì C:\Windows\System32

Mạnh cũng đã từng làm thế mà Tịt ... sau đó Mạnh Mò cái Server + Client + Data.accdb thì vô tình thấy Google nó keo Lách viết xài cho x32 và x64 chung 1 file OK ... copy vào đâu trên PC ===> Ok

2/ Mạnh có xem *.OCX của Sư phụ thì nó là x32 mà thấy chạy trên Windows10x64 + Office2016x64 nên cũng đang tò mò chút làm sao để Mạnh Viết trên Delphi khi buil DLL x32 mà chạy cho x64 ???!!! .... Nếu được xin chỉ dùm mà kẹt không chỉ cũng ko sao cả !!!

3/ hay có thể mạnh làm sai cái gì ... khi nào Rảnh Check lại các cung đoạn sau!!

Mã:

Embarcadero Delphi(XE7)[-]
Turbo Linker(2.25*,Delphi)[DLL32]

ongke0711 · 17/4/20

kieu manh đã viết:
2/ khi chạy nó báo lỗi chưa đăng ký Class ???

Hình nó báo lỗi là bạn chưa đăng ký OCX. Copy xong chạy Regsvr32 nó. Chạy dưới quyền Administrator.

Kiều Mạnh · 17/4/20

ongke0711 đã viết:
Hình nó báo lỗi là bạn chưa đăng ký OCX. Copy xong chạy Regsvr32 nó. Chạy dưới quyền Administrator.

làm hết rồi

ongke0711 · 17/4/20

Uh. Vụ trên 64 bit là đúng bị lỗi, tôi tưởng bạn nói trên 32 bit cũng lỗi.
Chủ thớt xem lại cái OCX này, trên 64 bit không chia sẻ dữ liệu được nhé.

Kiều Mạnh · 17/4/20

ongke0711 đã viết:
Uh. Vụ trên 64 bit là đúng bị lỗi, tôi tưởng bạn nói trên 32 bit cũng lỗi.
Chủ thớt xem lại cái OCX này, trên 64 bit không chia sẻ dữ liệu được nhé.

Mạnh đang tò mò cái Vụ DLL x32 viết trên Delphi mà chạy chung cho x32 và x64 trên 1 File duy nhất ấy ... đó mới là cái Mạnh cần
Còn viết trên VB6 chạy 1 file chung cho x32 và x64 với Mạnh giờ nó nhẹ như cái KIM

ongke0711 · 17/4/20

kieu manh đã viết:
Mạnh đang tò mò cái Vụ DLL x32 viết trên Delphi mà chạy chung cho x32 và x64 trên 1 File duy nhất ấy ... đó mới là cái Mạnh cần
Còn viết trên VB6 chạy 1 file chung cho x32 và x64 với Mạnh giờ nó nhẹ như cái KIM

Vậy chia sẻ demo vài đường cho mọi người học hỏi đi bạn.

Kiều Mạnh · 17/4/20

ongke0711 đã viết:
Vậy chia sẻ demo vài đường cho mọi người học hỏi đi bạn.

1/ DLL viết trên VB6 chạy chung cho x32 và x64 mạnh úp trên GPE rồi mà

Microsoft Visual Basic 6.0 Viết Ứng Dụng Cho Office Excel_x32 Và Office Excel_x64

Mạnh lang thang trên Google tìm tài liệu viết cái Server xài ( Database.accdb ) trên VB6 vô tình thấy Internet nó keo VB6 có thể viết cho Sub + Function cho Officex32 và Officex64 chạy tốt lỡ quậy rồi thì chơi tiếp .... Úp lên đây nhờ các Bạn test dùm trên Officex32 và Officex64 xem nó có chạy...

www.giaiphapexcel.com

2/ Server + Cilent + Data.accdb thì cũng úp trên GPE rồi mà ... chỉ khác là nó xài OCX của Bill

Lập trình Client/Server với NetForVAT – Caro Game

#1: Server mới tính toán công thức. Client chỉ hiển thị kết quả và nhập value (ở các ô không có công thức => không làm thay đổi không thức) Mình muốn client vẫn có công thức của sever mà không tính toán được không

www.giaiphapexcel.com

có hết còn tùy biến ứng dụng được hay ko phụ thuộc vào khả năng của từng Bạn

thuyyeu99 · 17/4/20

Gởi bạn Kiều Mạnh mình thì chưa có dịp để thử những cái bạn Post. Tuy nhiên theo như bạn nói "Còn viết trên VB6 chạy 1 file chung cho x32 và x64 với Mạnh giờ nó nhẹ như cái KIM " thì từ VB6 bạn qua Delphi cũng không khác gì nhé bạn cứ theo hướng đó của bạn mà nghiên cứu.
Thân

Kiều Mạnh · 17/4/20

thuyyeu99 đã viết:
Gởi bạn Kiều Mạnh mình thì chưa có dịp để thử những cái bạn Post. Tuy nhiên theo như bạn nói "Còn viết trên VB6 chạy 1 file chung cho x32 và x64 với Mạnh giờ nó nhẹ như cái KIM " thì từ VB6 bạn qua Delphi cũng không khác gì nhé bạn cứ theo hướng đó của bạn mà nghiên cứu.
Thân

Hướng sau này sẻ viết trên Delphi đó ... buil ra 2 file x32 và x64 thì có khả năng làm cái đơn giản ok chút .... Còn làm chung 1 file chạy chung cho x32 và x64 thì xin thua ... may có ai chỉ cho thì có thể làm được

thuyyeu99 · 17/4/20

Vậy thì chúc mừng bạn trước nhé. Cố gắng nghiên cứu thì cũng được thôi.
Thân

P/s trong diễn đàn có rất nhiều cái hay mà các anh chị đã post hoặc hỏi bạn nên tìm hiểu sẽ giải quyết được nhiều vấn đề khó khăn mà bạn sẽ gặp phải.

Kiều Mạnh · 17/4/20

thuyyeu99 đã viết:
Vậy thì chúc mừng bạn trước nhé. Cố gắng nghiên cứu thì cũng được thôi.
Thân

Kiểm tra lại mấy bài Mạnh ý kiến xem có đúng ko ??!! ... có chi Úp lại File Mạnh test cho mà xử lý he
Thân

thuyyeu99 · 17/4/20

mình đang sắp xếp lại các thư mục và file, sau khi xong mình sẽ Update lại link nhé.
Hiện tại mình Build OCX này trên Win64 + Office 32.
Thân

Nguyễn Duy Tuân · 17/4/20

Viết DLL, OCX thì cần phải build với hai phiên bản 32 và 64-bit nhé. Nếu làm chung được thì chỉ là một số tình huống nhỏ kết hợp với thủ thuật gì đó nhưng tiềm tàng lỗi ở ứng dụng chủ là rất lớn. Nói đơn giản này thì ta sẽ thấy rõ hơn. DLL, OCX là thư viện được chay trong chương trình chính (ở đây là Excel). Chương trình chính chạy theo 32-bit thì kiểu Long của nó là 4 byte, nếu 64-bit thì LongPtr là 8 byte. Các Handle các hàm Windows API phân biệt hai loại này. Ngay cả viết cho 64-bit mà khai báo biến nhận Hangle là Long cũng là tạch chứ đừng nói là platform khác nhau. Ngay cả Windows có hai đống DLL để trong hai thư mục System32, SysWow64 để phục vụ cho hai loại ứng dụng 32 và 64-bit đó.
Tóm lại là bạn cần cần build 2 phiên bản 32 và 64-bit cho DLL, OCX và test kỹ trên hai Office 32 và 64-bit.
Các copy DLL, OCX vào thư mục hệ thống mình làm rất nhiều hướng dẫn vì sản phẩm tôi phân phối đều là loại này.
(*) Đây là hướng dẫn của mình về copy thư mục hệ thống:
http://atoolspro.com/install-activex-controls-bsac-manually .html
(*) Trong video nầy tôi cũng có hướng dẫn phân phối DLL sang máy tính khác ở phần cuối: https://www.giaiphapexcel.com/diendan/threads/ai-muốn-lập-trình-dll-cho-excel-và-các-loại-bằng-delphi-thì-xem-video-này-nhé.137281/page-54#post-964081

thuyyeu99 · 18/4/20

Hiện tại bản cũ lập trình trong excel đang Disable, khi nào làm Clip kết nối làm báo cáo xong mình sẽ Upload bạn nào thích thử nghiệm thì liên hệ nhé. thuyyeu99@gmail.com

Kiều Mạnh · 2/5/20

Rảnh mới quậy một tẹo ...
1/ Code cơ bản thì copy của Google ...
2/ Mạnh chế thêm vài thứ cho phù hợp với Mạnh
3/ Chạy Server xong + Copy vài cái Client ra kết nối vào xem sao
4/ Không phải đăng ký chi hết mở là chạy thôi
5/ Code API ... VB6.... quậy tanh bành ra các kiểu xong viết thành DLL chạy cho Excel + Access + Win32 + Win64 chung 1 File duy nhất
6/ Thoát khỏi OCX của bill nhưng xài API của Bill
7/ Với code đó Copy vào VBA thì chạy nó cũng thế có điều khai báo kiểu API cho x32 & x64 thôi
8/ Code Server + Client + Data.accdb thì trên GPE Mạnh úp rồi .... ai iU cứ thế gắp ra mà xài thế thôi !!!????
....
....
9/ Rảnh viết Tiếp cái Database.accdb cho Server là xong
10/ Cơ bản rành VB6 xong ( Hiểu nguyên lý và phương thức của nó ) To ====> Delphi mò tiếp ... thế thôi

Trên Google có hết ... phần cơ bản nó chỉ cho là quá tốt ... còn lại xài được hay ko ... tùy biến được hay ko là phụ thuộc vào khả năng của từng người -0-0-0-

$===\.$
Chúc kỳ nghỉ vui vẻ và khám phá nhiều cái hay

thuyyeu99 · 2/5/20

Cứ vậy mà phát huy nhé
Dạo này mình có dự án khác nên hơi bận chưa có thời gian để Update.
thân

babyheomoi · 2/5/20

Cám ơn mấy bác! em save lại rồi vọc thử đây !!

Kiều Mạnh · 3/5/20

Nghỉ lễ mò diết 1 ngày nay cái Share Data Access & Excel Phương Thức TCP/IP ... đang hình thành

1/ Ai đam mê đọc bài 8 mục số 2 là làm được .... Link code bài #36

Lập trình Client/Server với NetForVAT – Caro Game

#1: Server mới tính toán công thức. Client chỉ hiển thị kết quả và nhập value (ở các ô không có công thức => không làm thay đổi không thức) Mình muốn client vẫn có công thức của sever mà không tính toán được không

www.giaiphapexcel.com

2/ Phải cài VB6 .... code VB6 nó có quá trình hình thành và phát triển lâu rồi nên rất phong phú và da rạng hơn vba
3/ Code VB6 như VBA vậy không khó lắm mà code trên Internet đầy ra ... cơ bản hiểu xong viết trên Tools khác tùy vào khả năng của từng bạn
4/ VB6 nó hổ trợ nhiều thứ hơn VBA ???!!
...
...

thuyyeu99 · 3/5/20

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

Kiều Mạnh · 3/5/20

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 · 3/5/20

kieu manh đã viết:
vài ngày nữa xong úp Video cho xem he

Cám ơn.
Nhưng tôi không quan tâm --=0

.
Hihihi từ điểm a đến điểm b có 1 đoạn thôi có gì đâu mà khó. --=0

Cảm ơn

Kiều Mạnh · 3/5/20

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

thuyyeu99 · 3/5/20

kieu manh đã viết:
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 · 29/7/20

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 · 29/7/20

transongngocquan đã viết:
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 · 29/7/20

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 · 29/7/20

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 · 29/7/20

befaint đã viết:
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 · 29/7/20

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 · 30/7/20

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 · 30/7/20

Hai Lúa Miền Tây đã viết:
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 · 29/9/20

thuyyeu99 đã viết:
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 · 29/9/20

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è
:type:

thuyyeu99 · 4/10/20

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

Kiều Mạnh · 19/10/20

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-

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 · 19/10/20

thuyyeu99 đã viết:
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 · 19/10/20

Kiều Mạnh đã viết:
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

saobekhonglac đã viết:
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 · 19/10/20

thuyyeu99 đã viết:
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 ???!!!

Mã:

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 · 19/10/20

Kiều Mạnh đã viết:
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 ???!!!

Mã:

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

Kiều Mạnh · 19/10/20

thuyyeu99 đã viết:
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

thuyyeu99 · 19/10/20

Kiều Mạnh đã viết:
chịu ko biết nói gì

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)

Kiều Mạnh · 19/10/20

thuyyeu99 đã viết:
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

thuyyeu99 · 19/10/20

Kiều Mạnh đã viết:
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

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

truongvu317 · 19/10/20

Kiều Mạnh đã viết:
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 ????

cái này lấy được data qua mạng internet á, cấu hình nó như thế nào bạn?

Kiều Mạnh · 19/10/20

thuyyeu99 đã viết:
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 )

Kiều Mạnh · 19/10/20

truongvu317 đã viết:
cái này lấy được data qua mạng internet á, cấu hình nó như thế nào bạn?

thường thôi ... đang làm đó chi có điều chưa có úp được ... đang còn mò tiếp ... khi nào qua Delphi úp cho mà xem

thuyyeu99 · 19/10/20

Not related to me, so I don't care

Kiều Mạnh · 19/10/20

đơ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-

truongvu317 · 19/10/20

Kiều Mạnh đã viết:
thường thôi ... đang làm đó chi có điều chưa có úp được ... đang còn mò tiếp ... khi nào qua Delphi úp cho mà xem

Delphi chưa được học vì công việc không sài tới.

thongnhut · 20/10/21

thuyyeu99 đã viết:
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

Kết nối Access, Excel, chia sẻ dữ liệu qua Internet (1 người xem)

Người dùng đang xem chủ đề này

Trùm Nhiều Chuyện

I don't program, I beat code into submission!!!

Thành viên gắn bó

I don't program, I beat code into submission!!!

Thành viên gắn bó

I don't program, I beat code into submission!!!

Thành viên gắn bó

I don't program, I beat code into submission!!!

Trùm Nhiều Chuyện

I don't program, I beat code into submission!!!

Trùm Nhiều Chuyện

I don't program, I beat code into submission!!!

Trùm Nhiều Chuyện

Nghị Hách

Trùm Nhiều Chuyện

I don't program, I beat code into submission!!!

File đính kèm

Trùm Nhiều Chuyện

Thành viên thường trực

I don't program, I beat code into submission!!!

Trùm Nhiều Chuyện

I don't program, I beat code into submission!!!

Trùm Nhiều Chuyện

I don't program, I beat code into submission!!!

Trùm Nhiều Chuyện

Thành viên hoạt động

❆❆❆❆❆❆❆❆

I don't program, I beat code into submission!!!

|||||||||||||

❆❆❆❆❆❆❆❆

Trùm Nhiều Chuyện

Trùm Nhiều Chuyện

Thành viên tích cực

Thành viên mới

Trùm Nhiều Chuyện

Trùm Nhiều Chuyện

I don't program, I beat code into submission!!!

Thành viên mới

Trùm Nhiều Chuyện

I don't program, I beat code into submission!!!

Trùm Nhiều Chuyện

I don't program, I beat code into submission!!!

Trùm Nhiều Chuyện

I don't program, I beat code into submission!!!

Trùm Nhiều Chuyện

Thành viên tích cực

I don't program, I beat code into submission!!!

I don't program, I beat code into submission!!!

Trùm Nhiều Chuyện

I don't program, I beat code into submission!!!

Thành viên tích cực

Thành viên mới

Thời gian đếm ngược.