Add-ins SQL VB6 cho Excel, Access Và SQL Server + TCPIP (1 người xem)

[Kiều Mạnh]

Mạnh thấy Trên GPE có hướng dẫn viết nhiều Add- ins cho Excel ....
Nên Mạnh cũng mày mò làm 1 cái Trên VB6 cho Vui chủ yếu sử dụng và Úp cho ai đó cần xài nếu thấy tiện ích !!!

I/ SQL cho Access và Excel ( Lấy dữ liệu File Excel và Access bất kỳ từ Excel 2003 To 2019 và Access *.mdb To *.accdb )

1/ Bấm vào SQL String Database là nổi lên cái Form ta có thể lấy dữ liệu File Excel và Access ( SheetName Or Tablename ) lên Sheet Ok
2/ Mục Get SQL String Database ta có thể thêm tùy chọn lấy dữ liệu vào đó ...
3/ Range Target mặc định là A1 nếu thích thay đổi gõ vào đó là Cells gán dữ liệu ...
4/ Get Tile là lấy có tiêu đề hay ko tiêu đề

II/ Mạnh Copy cái Form của @ongke0711 bài 15 cho vào VB6 và chỉnh sửa lại chút cho phù hợp và dễ xài hơn một chút ( có thời gian sẻ thêm nhiều thứ vào đó nữa )

Code VBA thực hiện SQL tự động trong Excel

Kính gửi Anh chị, Em có Code SQL từ Serve [VV_WH] như dưới đây. Giờ em muốn không vào SQL mà khi mở File Excel ra thì số liệu tự động cập nhật từ Sever khi em thay đổi BR_CODE = 'HN10169' and DATE = '20191130' and SEGMENT = 'KHCN'. Giả sử A1, B1, C1 lần lượt là các mã BR_CODE, DATE, SEGMENT và...

www.giaiphapexcel.com

Xin cảm Ơn @ongke0711 rất nhiều viết cái Form hay ... Mạnh Copy và điều chỉnh lại chút cho vào Add-Ins VB6 Thành công

III/ Mô hình Server + Client sẻ viết sau ... đại ý nó tương tự như cái SQL Access và Excel ( Còn lỗi nhiều thứ Fix ok Úp sau )

Làm phiền các Bạn ai rảnh test dùm có lỗi thì báo để Mạnh Fix lại

Xin cảm ơn


Video cài đặt và sử dụng
1/ Trên Windows10 gõ vào Hộp Tìm kiếm chữ Excel ==> Tìm File Excel.EXE xong Chuột Phải vào nó chạy Run As khi đó Windows sẻ hỏi thì Bạn thì Bạn chọn Yes

2/ Khi Excel mở lên Vào COM Add-Ins\Add... chọn File VBLibrary.exe\Ok xong ... nhìn thấy Nó check ExcelTools\Ok thêm lần nữa

3/ Hay Xem video Sau

Lưu Ý:
1/ File VBLibrary_Test.rar Ở bài số #1 này chỉ Áp dụng chạy trên máy tính có cài đặt VB6
2/ Nếu Máy Bạn nào chưa cài VB6 thì tải file SQLDatabase.rar
3/ File SQLDatabase.rar là 1 Tools chạy độc lập ko có Menu Ribbon Excel và không Phải đăng ký sử dụng
4/ Có thời gian Mạnh sẻ viết lại hết 1 File duy nhất chạy chung cho tất cả các máy Vui lòng xin chờ he ....

 

[Kiều Mạnh]

Thấy 9 lần tải tới thời điểm hiện tại mà chưa thấy Bạn nào ý kiếm gì .... Ko biết nó có chạy tốt trên máy ko cài VB6 không nữa ???
Nếu máy Bạn nào không cài VB6 mà chạy thử Ok ... báo Mình với
Xin cảm ơn

 

[Excel365]

Thấy 9 lần tải tới thời điểm hiện tại mà chưa thấy Bạn nào ý kiếm gì .... Ko biết nó có chạy tốt trên máy ko cài VB6 không nữa ???
Nếu máy Bạn nào không cài VB6 mà chạy thử Ok ... báo Mình với
Xin cảm ơn

Máy mình khi kéo file để đăng ký xuất hiện lỗi như hình, khi bấm Ok thì báo đăng ký thành công. Nhưng khi mở Excel thì vẫn không thấy xuất hiện trên Ribbon

 

[Kiều Mạnh]

Máy mình khi kéo file để đăng ký xuất hiện lỗi như hình, khi bấm Ok thì báo đăng ký thành công. Nhưng khi mở Excel thì vẫn không thấy xuất hiện trên Ribbon
View attachment 239189

Mai mình xem lại xem sao ... giờ chọc chọc trên điện thoại

 

[quanluu]

Mình cũng bị lỗi tương tự (win 8.1)

 

[Maika8008]

Mạnh thấy Trên GPE có hướng dẫn viết nhiều Add- ins cho Excel ....
Nên Mạnh cũng mày mò làm 1 cái Trên VB6 cho Vui chủ yếu sử dụng và Úp cho ai đó cần xài nếu thấy tiện ích !!!

I/ SQL cho Access và Excel ( Lấy dữ liệu File bất kỳ từ Excel 2003 To 2019 và Access *.mdb To *.accdb )

1/ Bấm vào SQL String Database là nổi lên cái Form ta có thể lấy dữ liệu File Excel và Access ( SheetName Or Tablename ) lên Sheet Ok
2/ Mục get SQL String Database ta có thể thêm tùy chọn lấy dữ liệu vào đó ...
3/ Range Target mặc định là A1 nếu thích thay đổi gõ vào đó là Cells gán dữ liệu...
4/ Get Tile là lấy có tiêu đề hay ko tiêu đề
.....

II/ Mạnh Copy cái Form của @ongke0711 bài 15 cho vào VB6 và chỉnh sửa lại chút cho phù hợp và dễ xài hơn một chút ( có thời gian sẻ thêm nhiều thứ vào đó nữa )

Code VBA thực hiện SQL tự động trong Excel

Kính gửi Anh chị, Em có Code SQL từ Serve [VV_WH] như dưới đây. Giờ em muốn không vào SQL mà khi mở File Excel ra thì số liệu tự động cập nhật từ Sever khi em thay đổi BR_CODE = 'HN10169' and DATE = '20191130' and SEGMENT = 'KHCN'. Giả sử A1, B1, C1 lần lượt là các mã BR_CODE, DATE, SEGMENT và...

www.giaiphapexcel.com

Xin cảm Ơn @ongke0711 rất nhiều viết cái Form hay ... Mạnh Copy và điều chỉnh lại chút cho vào Add-Ins VB6 Thành công

III/ Mô hình Server + Client sẻ viết sau ... đại ý nó tương tự như cái SQL Access và Excel ( Còn lỗi nhiều thứ Fix ok Úp sau )

Làm phiền các Bạn ai rảnh test dùm có lỗi thì báo để Mạnh Fix lại

Xin cảm ơn
View attachment 239173

Hay quá. Mình cần công cụ như thế này lắm. Sẽ test và thông báo kết quả.

 

[Kiều Mạnh]

Máy mình khi kéo file để đăng ký xuất hiện lỗi như hình, khi bấm Ok thì báo đăng ký thành công. Nhưng khi mở Excel thì vẫn không thấy xuất hiện trên Ribbon
View attachment 239189

Bạn thử lại như sau:
1/ Trên Windows10 gõ vào Hộp Tìm kiếm chữ Excel ==> Tìm Excel.EXE xong Chuột Phải vào nó chạy Run As khi đó Windows sẻ hỏi thì Bạn thì Bạn chọn Yes xong làm như hình sau
Vào COM Add-Ins\Add... chọn File VBLibrary.exe\Ok xong ... nhìn thấy Nó check ExcelTools\Ok thêm lần nữa


2/ Sau khi chọn Ok thì nó báo như hình sau

chọn Ok thêm lần nữa ... nếu gỡ bỏ nó thì vào lại COM Add-Ins ==> Chọn Nó xong Chọn Remove ==> Ok là xong

Lưu ý: Nếu thay đổi dường dẫn File VBLibrary,exe là phải đăng ký lại và File VBLibrary,exe ko để trong Folder là Tiếng Việt có dấu

Hoặc Bạn Có thể xem Video sau

 

[Nguyễn Duy Tuân]

Bạn gắng chuyển qua Delphi để xuất DLL ra 32 và 64 bit. Hiện nay VB6 chỉ 32 bit nên nhiều bạn sẽ gặp lỗi trên Office 32 bit.

 

[Kiều Mạnh]

Bạn gắng chuyển qua Delphi để xuất DLL ra 32 và 64 bit. Hiện nay VB6 chỉ 32 bit nên nhiều bạn sẽ gặp lỗi trên Office 32 bit.

Cái đích hướng tới nó là như vậy ... ban đầu Mạnh mò code thì phải mò trên VB6 cho nó hiểu và biết cách thức code Ok cái đã mọi thứ xong chuyển qua Delphi nữa là xong ... Vì Code trên Delphi Mạnh còn hạn chế nhiều thứ hơn VBA và VB6
Cảm ơn Bạn

 

[nguoiconxunui]

Có thể dùng VB.Net hoặc C#. Nó có thư viện hỗ trợ viết plugin cho office sẵn luôn.

 

[Kiều Mạnh]

chạy trên Officex64 thấy OK .. còn lỗi trên Officex32 ... vài ngày nữa rảnh Mạnh Fix sau
đang nghi ngờ check mấy cái Thư viện của Officex64 ... nên lỗi 1 vài cái trên Officex32

 

[Kiều Mạnh]

Có thể dùng VB.Net hoặc C#. Nó có thư viện hỗ trợ viết plugin cho office sẵn luôn.

Thực ra cái ý tưởng code bài 1 thì VBA dư sức viết ra như vậy ... có điều làm biếng Úp code VBA lên đó mà

 

[Kiều Mạnh]

Rảnh mới chỉnh sửa lại chút cho Nó lấy File trong Folder là Tiếng Việt có dấu và tên File cũng là tiếng Việt có dấu đấy
Mới Úp lại File bài 1 Bạn nào iU thì cứ thế tải về dùng thôi he
giao diện mới cho SQL Access và Excel như sau
Rảnh sẻ làm tiếp nhiều thứ nữa ....

 

[Excel365]

Bạn thử lại như sau:
1/ Trên Windows10 gõ vào Hộp Tìm kiếm chữ Excel ==> Tìm Excel.EXE xong Chuột Phải vào nó chạy Run As khi đó Windows sẻ hỏi thì Bạn thì Bạn chọn Yes xong làm như hình sau
Vào COM Add-Ins\Add... chọn File VBLibrary.exe\Ok xong ... nhìn thấy Nó check ExcelTools\Ok thêm lần nữa
View attachment 239194

2/ Sau khi chọn Ok thì nó báo như hình sau
View attachment 239195
chọn Ok thêm lần nữa ... nếu gỡ bỏ nó thì vào lại COM Add-Ins ==> Chọn Nó xong Chọn Remove ==> Ok là xong

Lưu ý: Nếu thay đổi dường dẫn File VBLibrary,exe là phải đăng ký lại và File VBLibrary,exe ko để trong Folder là Tiếng Việt có dấu

Hoặc Bạn Có thể xem Video sau

Mình làm theo hướng dẫn nhưng vẫn bị lỗi





Mình đang dùng bản Office này + Win 10 (64bit)

 

[Kiều Mạnh]

To huuduy.duy

1/ Khi Mình mở File Excel lên Bình thường thử Đăng ký thì nó cũng báo lỗi như bạn


2/ Khi Mình mở File Excel.EXE đăng ký thì Ok ( Lưu ý File Excel.EXE )
Thực hiện như bài 1 ấy

3/ Trên Windows10 gõ vào Hộp Tìm kiếm chữ Excel ==> Tìm Excel.EXE xong Chuột Phải vào nó chạy Run As khi đó Windows sẻ hỏi thì Bạn thì Bạn chọn Yes xong
4/ Khi File Excel mở lên thì làm theo hướng dẫn bài 1 hay bài 7

 

[Maika8008]

Bạn chạy excel với quyền Admin ấy run as xong chọn file Addin mới okXong khi quyền đòi hỏi thì chọn yes

Tôi dùng Win10 64bit, Office 2013 32bit. Tôi đã chạy Excel với quyền Admin nhưng khi add Add-Ins:
- Với file VBLibrary.exe thì bị lỗi như hình của bạn ở trên.
- Với file VBLibrary.dll thì nó im re, chẳng hiện ra cái gì trong hộp thoại COM Add-Ins đó.

 

[Kiều Mạnh]

Chịu chắc ít ngày nữa Mạnh Ghost lại cái máy kia ko cài VB6 xem sao xong test thử mới biết được
Rất nghi khả năng là máy ko cài VB6 là tịt quá

 

[Kiều Mạnh]

To @huuduy.duy và @Maika8008 + ...
Mình mới thử lại trên máy không cài VB6 là tịt toàn tập vì nó có liên quan tới mấy thư viện của VB6 .... quá phiền phức nên Mình bỏ Menu Ribbon
Mà viết thành 1 Tools chạy độc lập ko có Menu Ribbon Excel và ko phải đăng ký

Hướng dẫn sử dụng
1/ Mở 1 file Excel bất kỳ lên ( File mới hay gì đó tùy )
2/ Mở Tools SQLDatabase.exe lên chạy code chon File Excel Or Access
3/ Tùy chọn lấy dữ liệu như các bài trên
4/ Vui lòng Tải File ở bài Số # 1 Mình mới Úp lại

 

[Maika8008]

To @huuduy.duy và @Maika8008 + ...
Mình mới thử lại trên máy không cài VB6 là tịt toàn tập vì nó có liên quan tới mấy thư viện của VB6 .... quá phiền phức nên Mình bỏ Menu Ribbon
Mà viết thành 1 Tools chạy độc lập ko có Menu Ribbon Excel và ko phải đăng ký

Hướng dẫn sử dụng
1/ Mở 1 file Excel bất kỳ lên ( File mới hay gì đó tùy )
2/ Mở Tools SQLDatabase.exe lên chạy code chon File Excel Or Access
3/ Tùy chọn lấy dữ liệu như các bài trên
4/ nếu ko mở Office Excel lên Trước là báo Lỗi ( Mình sẻ bổ sung sau nếu chưa mở thì Mở nó lên ... xem xét sau )
5/ Có lỗi gì báo lại xin cảm ơn

Chạy thử OK, không lỗi gì. Cảm ơn nhiều!

 

[levanduyet]

Hi em,
Lỗi gì quá trời à. Thôi giờ VB6 hết thời rồi chuyển qua Delphi. Delphi công nhận GOOD vì đôi khi viết các phiên bản cũ lắm giờ vẫn chạy ngon lành à.

Lê Văn Duyệt

 

[Kiều Mạnh]

Hi em,
Lỗi gì quá trời à. Thôi giờ VB6 hết thời rồi chuyển qua Delphi. Delphi công nhận GOOD vì đôi khi viết các phiên bản cũ lắm giờ vẫn chạy ngon lành à.

Lê Văn Duyệt

Chụp dùm em hình lỗi lúc nào rảnh viết lại trên delphi

 

[Excel365]

To huuduy.duy

1/ Khi Mình mở File Excel lên Bình thường thử Đăng ký thì nó cũng báo lỗi như bạn
View attachment 239364

2/ Khi Mình mở File Excel.EXE đăng ký thì Ok ( Lưu ý File Excel.EXE )
Thực hiện như bài 1 ấy

3/ Trên Windows10 gõ vào Hộp Tìm kiếm chữ Excel ==> Tìm Excel.EXE xong Chuột Phải vào nó chạy Run As khi đó Windows sẻ hỏi thì Bạn thì Bạn chọn Yes xong
4/ Khi File Excel mở lên thì làm theo hướng dẫn bài 1 hay bài 7

Mình đã chạy Excel.exe với quyền Admin luôn, nhưng vẫn không được

 

[Kiều Mạnh]

Mình đã chạy Excel.exe với quyền Admin luôn, nhưng vẫn không được

bạn tải File ở bài 18 xài xem sao ... rảnh mình viết lại
có khả năng máy bạn chưa cài VB6 nên File bài 1 ko sử dụng được

 

[Kiều Mạnh]

File SQL Database Access & Excel ( SQLDatabase.rar ) Mới chỉnh sửa Fix lỗi xong .... Ai iU tải file bài Số #1 nhé
Mọi cái Free 100% Mình ko toan tính gì hơn chỉ mong ai sử dụng nó nếu thấy lỗi chụp hình và mô tả lỗi là Mình vui lắm rồi
...
Xong phần 1 .... sẻ còn nhiều phần nữa ... hồi sau sẻ biết
Xin cảm ơn

 

[hoahuongduong1986]

CHO

Mạnh thấy Trên GPE có hướng dẫn viết nhiều Add- ins cho Excel ....
Nên Mạnh cũng mày mò làm 1 cái Trên VB6 cho Vui chủ yếu sử dụng và Úp cho ai đó cần xài nếu thấy tiện ích !!!

I/ SQL cho Access và Excel ( Lấy dữ liệu File Excel và Access bất kỳ từ Excel 2003 To 2019 và Access *.mdb To *.accdb )

1/ Bấm vào SQL String Database là nổi lên cái Form ta có thể lấy dữ liệu File Excel và Access ( SheetName Or Tablename ) lên Sheet Ok
2/ Mục Get SQL String Database ta có thể thêm tùy chọn lấy dữ liệu vào đó ...
3/ Range Target mặc định là A1 nếu thích thay đổi gõ vào đó là Cells gán dữ liệu ...
4/ Get Tile là lấy có tiêu đề hay ko tiêu đề

II/ Mạnh Copy cái Form của @ongke0711 bài 15 cho vào VB6 và chỉnh sửa lại chút cho phù hợp và dễ xài hơn một chút ( có thời gian sẻ thêm nhiều thứ vào đó nữa )

Code VBA thực hiện SQL tự động trong Excel

Kính gửi Anh chị, Em có Code SQL từ Serve [VV_WH] như dưới đây. Giờ em muốn không vào SQL mà khi mở File Excel ra thì số liệu tự động cập nhật từ Sever khi em thay đổi BR_CODE = 'HN10169' and DATE = '20191130' and SEGMENT = 'KHCN'. Giả sử A1, B1, C1 lần lượt là các mã BR_CODE, DATE, SEGMENT và...

www.giaiphapexcel.com

Xin cảm Ơn @ongke0711 rất nhiều viết cái Form hay ... Mạnh Copy và điều chỉnh lại chút cho vào Add-Ins VB6 Thành công

III/ Mô hình Server + Client sẻ viết sau ... đại ý nó tương tự như cái SQL Access và Excel ( Còn lỗi nhiều thứ Fix ok Úp sau )

Làm phiền các Bạn ai rảnh test dùm có lỗi thì báo để Mạnh Fix lại

Xin cảm ơn
View attachment 239363

Video cài đặt và sử dụng
1/ Trên Windows10 gõ vào Hộp Tìm kiếm chữ Excel ==> Tìm File Excel.EXE xong Chuột Phải vào nó chạy Run As khi đó Windows sẻ hỏi thì Bạn thì Bạn chọn Yes

2/ Khi Excel mở lên Vào COM Add-Ins\Add... chọn File VBLibrary.exe\Ok xong ... nhìn thấy Nó check ExcelTools\Ok thêm lần nữa

3/ Hay Xem video Sau

Lưu Ý:
1/ File VBLibrary_Test.rar Ở bài số #1 này chỉ Áp dụng chạy trên máy tính có cài đặt VB6
2/ Nếu Máy Bạn nào chưa cài VB6 thì tải file SQLDatabase.rar
3/ File SQLDatabase.rar là 1 Tools chạy độc lập ko có Menu Ribbon Excel và không Phải đăng ký sử dụng
4/ Có thời gian Mạnh sẻ viết lại hết 1 File duy nhất chạy chung cho tất cả các máy Vui lòng xin chờ he ....
[/QUOTE

Cho em hỏi chút là cái ô DatabaseName lấy ở một Server như thế nào ạ? Ở cơ quan e đang dùng một Serve mà không rõ lấy tên là ở đâu ạ

 

[ongke0711]

File SQL Database Access & Excel ( SQLDatabase.rar ) Mới chỉnh sửa Fix lỗi xong .... Ai iU tải file bài Số #1 nhé
Mọi cái Free 100% Mình ko toan tính gì hơn chỉ mong ai sử dụng nó nếu thấy lỗi chụp hình và mô tả lỗi là Mình vui lắm rồi

Bạn Mạnh nên dùng tiếng Việt trên công cụ, Form luôn cho rõ nghĩa chứ thấy bạn dùng tiếng Anh ráp lại cho các đề mục nó không có ý nghĩa gì cả.
- SQL Database là cái gì? --> SQL Server Database, hay MS Access Database...
- Get SQL String Database? --> SQL string to get data.
- Get Title? --> Get Header Row/ Field Name

 

[Kiều Mạnh]

Bạn Mạnh nên dùng tiếng Việt trên công cụ, Form luôn cho rõ nghĩa chứ thấy bạn dùng tiếng Anh ráp lại cho các đề mục nó không có ý nghĩa gì cả.
- SQL Database là cái gì? --> SQL Server Database, hay MS Access Database...
- Get SQL String Database? --> SQL string to get data.
- Get Title? --> Get Header Row/ Field Name

OK ... cảm ơn nhiều .... đang làm thử nghiệm xem tình hình sao đó mà ... có nhiều thứ nữa lắm
làm hết xong giáp lại nhờ ai đó giỏi tiếng Anh viết cho xong làm Tooltip tiếng việt vào đó vậy là xài song ngữ đấy

 

[Kiều Mạnh]

To @huuduy.duy thấy cái Tools SQL Access & Excel đó sử dụng sao cho ý kiến
1/ cần viết thêm cái Gì ???
2/ Thiết kế sao ???
3/ Cái tools đó bạn sử dụng thấy có tiện không
4/ Bạn thích xài Tools như vậy hay xài Add-ins có menu Ribbon Excel ( Mạnh xử Ok Tất )
....
...

Mạnh định làm thêm như sau
1/ duyệt 1 file Access Or Excel ... chọn Sheet hay TableName ( tùy chọn nha ) xong tổng Hợp nó lại gán nối nhau xuống dòng
2/ Tổng họp nhiều File lại với nhau có tùy chọn Sheet Or TableName
3/ Tùy chọn lọc duy nhất theo Cột VD cho vào texbox1 là 2 thì nó lọc cột số 2 vv...
....

 

[Nguyễn Duy Tuân]

Mình tải về xem thử thì bị Norton kill luôn. Bạn nên xem xét có hay không nên dùng các tool compact hay mã hóa, rất hay bị Norton diệt.

 

[Kiều Mạnh]

Mình tải về xem thử thì bị Norton kill luôn. Bạn nên xem xét có hay không nên dùng các tool compact hay mã hóa, rất hay bị Norton diệt.

đang luyện trên VB6 cho nó thành thạo chút ... xong cho nó qua Delphi chắc ko bị vậy quá
Tính copy cái ý tưởng code sau cho vào để tạo SQL cho nó phong phú chút
chọn các Field Name là nó cho vào câu Lệnh SELECT [TenHang], [SoLuong], [CK(%)], [DonGia] FROM [DataBaseNhap] Where

 

[Nguyễn Duy Tuân]

đang luyện trên VB6 cho nó thành thạo chút ... xong cho nó qua Delphi chắc ko bị vậy quá
Tính copy cái ý tưởng code sau cho vào để tạo SQL cho nó phong phú chút
chọn các Field Name là nó cho vào câu Lệnh SELECT [TenHang], [SoLuong], [CK(%)], [DonGia] FROM [DataBaseNhap] Where
View attachment 239468

Chiến thẳng Delphi đi, làm từ VB6 rồi lại chuyển qua nữa mất nhiều thời gian. Làm ngay trên Delphi cũng là thêm độc cơ học nó luôn.

 

[Kiều Mạnh]

Chiến thẳng Delphi đi, làm từ VB6 rồi lại chuyển qua nữa mất nhiều thời gian. Làm ngay trên Delphi cũng là thêm độc cơ học nó luôn.

1/ đang làm tạm Ok cái Ribbon cho Excel ... COM Delphi đó

2/ đăng ký sử dụng như bài số #1
3/ kẹt lóng ngóng trên Form Delphi quá mò diết chưa ra

 

[Excel365]

To @huuduy.duy thấy cái Tools SQL Access & Excel đó sử dụng sao cho ý kiến
1/ cần viết thêm cái Gì ???
2/ Thiết kế sao ???
3/ Cái tools đó bạn sử dụng thấy có tiện không
4/ Bạn thích xài Tools như vậy hay xài Add-ins có menu Ribbon Excel ( Mạnh xử Ok Tất )
....
...

Mạnh định làm thêm như sau
1/ duyệt 1 file Access Or Excel ... chọn Sheet hay TableName ( tùy chọn nha ) xong tổng Hợp nó lại gán nối nhau xuống dòng
2/ Tổng họp nhiều File lại với nhau có tùy chọn Sheet Or TableName
3/ Tùy chọn lọc duy nhất theo Cột VD cho vào texbox1 là 2 thì nó lọc cột số 2 vv...
....

Theo ý kiến cá nhân của mình thì

1/ cần viết thêm cái Gì ???
2/ Thiết kế sao ???

=> Thêm Form check các cột cần xuất ra báo cáo



Thêm tùy chọn đưa câu truy vấn xuống 1 Cell, khi đó người dùng sẽ dễ tùy biến câu truy vấn nhu cầu

4/ Bạn thích xài Tools như vậy hay xài Add-ins có menu Ribbon Excel ( Mạnh xử Ok Tất )

Theo ý kiến cá nhân của mình thì tạo ra Add-in sẽ thuận tiện hơn ạ

 

[Kiều Mạnh]

Theo ý kiến cá nhân của mình thì

=> Thêm Form check các cột cần xuất ra báo cáo
View attachment 239485


Thêm tùy chọn đưa câu truy vấn xuống 1 Cell, khi đó người dùng sẽ dễ tùy biến câu truy vấn nhu cầu

Theo ý kiến cá nhân của mình thì tạo ra Add-in sẽ thuận tiện hơn ạ

1/ Cái Tô đậm như bài số 30 đó ... chắc OK thôi
2/ Thêm tùy chọn đưa câu truy vấn xuống 1 Cell ===> cái này trên Form có rồi mà
3/ Theo ý kiến cá nhân của mình thì tạo ra Add-in sẽ thuận tiện hơn ===> Cái này nhẹ như cái Kim

 

[Excel365]

2/ Thêm tùy chọn đưa câu truy vấn xuống 1 Cell ===> cái này trên Form có rồi mà

Cái hiện tại là Kiều Mạnh đưa kết quả xuống Cell, còn ý của mình đưa Câu lệnh SQL vào Cell ạ

 

[Kiều Mạnh]

Cái hiện tại là Kiều Mạnh đưa kết quả xuống Cell, còn ý của mình đưa Câu lệnh SQL vào Cell ạ

Muốn gì Viết vào Mục khoanh đỏ đó tiện hơn chứ ... SQL cho xuống Cells mạnh làm ok tuy nhiên nó kéo theo nhiều thứ rắc rối ( Bỏ )
Hoặc Mạnh sẻ cho thêm Tùy chon SQL trên Cells nữa vì khi tạo SQL trên Cells ta có thể lưu lại OK ( cái này hay ... duyệt )

 

[Kiều Mạnh]

Delphi nó đang hình thành ... Mò diết cuối cùng Mạnh cũng đã ngộ ra khai báo sử dụng IDispatch* COM Delphi
Mò code chua thật ... mò ra rồi thấy nó cũng ko khó lắm
Add-Ins Excel .... COM Delphi luôn đấy

 

[Tuanba1992]

Theo ý kiến cá nhân của mình thì

=> Thêm Form check các cột cần xuất ra báo cáo
View attachment 239485


Thêm tùy chọn đưa câu truy vấn xuống 1 Cell, khi đó người dùng sẽ dễ tùy biến câu truy vấn nhu cầu

Theo ý kiến cá nhân của mình thì tạo ra Add-in sẽ thuận tiện hơn ạ

Cái này là devexpess mà

 

[Kiều Mạnh]

Cái này là devexpess mà

chuyển qua cái Delphi này rồi

AI muốn lập trình DLL cho Excel và các loại bằng Delphi thì xem video này nhé!

mấy cái đó mạnh sẻ thêm và Fix sau ... quan trọng có chạy ko cái đã Files sau Mạnh mới sửa lại code 1 tẹo và cho Form hiện góc trên bên tay Phải Chạy rồi Kiều Mạnh ơi Access   Excel

www.giaiphapexcel.com

 

[Kiều Mạnh]

Vậy là 1 thời gian ngắn được sự chỉ thêm của @Nguyễn Duy Tuân , Anh @batman1 + HLMT Mạnh đã chuyển cái SQL từ VBA lên VB6 xong từ VB6 vào Delphi thành công ...

Úp lên đây tặng cho Bạn nào iU nó ... lấy dữ liệu File Excel + Access rất đơn giản chỉ việc tích chon ===> thế là xong
Thời gian tới nếu Rảnh Mạnh sẻ viết mấy phần còn lại và bổ sung thêm các tùy chọn nữa ... vui lòng chờ he

 

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

Vậy là 1 thời gian ngắn được sự chỉ thêm của @Nguyễn Duy Tuân , Anh @batman1 + HLMT Mạnh đã chuyển cái SQL từ VBA lên VB6 xong từ VB6 vào Delphi thành công ...

Úp lên đây tặng cho Bạn nào iU nó ... lấy dữ liệu File Excel + Access rất đơn giản chỉ việc tích chon ===> thế là xong
Thời gian tới nếu Rảnh Mạnh sẻ viết mấy phần còn lại và bổ sung thêm các tùy chọn nữa ... vui lòng chờ he

File chọn CSDL nên cho nằm phía trên, hoặc ẩn form kia đi, sau khi chọn xong cho hiện lên lại. Như vậy sẽ đở rối hơn.

 

[Kiều Mạnh]

đang viết cái SQL Server Ms trên Delphi mà cà chua quá .... không có ra mà hết hướng mò ... chán như con dán

 

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

đang viết cái SQL Server Ms trên Delphi mà cà chua quá .... không có ra mà hết hướng mò ... chán như con dán

Nối chuỗi nó vào để kết nối.

 

[Kiều Mạnh]

Nối chuỗi nó vào để kết nối.

View attachment 241654

Mạnh viết lấy OK rồi có điều cái tạo SQL ấy nó ko biết lấy List TableName sao ... trên VBA + VB6 ok còn Delphi nó ko chịu cái chuỗi đó
cái chuỗi sau có cách gì viết khác không chỉ dùm Mạnh

 sSQL = "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES " & _
           "WHERE TABLE_TYPE = 'BASE TABLE' AND TABLE_CATALOG='" & Me.cboDatabaseName & "'"

hay là do xài TADOConnection.Create(nil)... nó Ứ chịu cái chuỗi đó ta ????
mà cái chuỗi đó chỉ xài cho

cnn := CreateOleObject('ADODB.Connection');

mai mốt rảnh mò theo hướng đó xem sao

 

[ongke0711]

 sSQL = "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES " & _
           "WHERE TABLE_TYPE = 'BASE TABLE' AND TABLE_CATALOG='" & Me.cboDatabaseName & "'"

Còn một yếu tố thực tế bạn nên nghĩ đến để test code là người quản trị Server có cho quyền bạn vô toàn bộ các Table không mà liệt kê Table để chọn.

 

[Kiều Mạnh]

Còn một yếu tố thực tế bạn nên nghĩ đến để test code là người quản trị Server có cho quyền bạn vô toàn bộ các Table không mà liệt kê Table để chọn.

Mạnh lấy OK có nghĩa là vô ok chứ ... mà cái Server Mạnh ko hiểu lắm ... giờ mới mò tới
Thấy Bạn viết hay quá nên mới quyết tâm mò nó cho vào Addins Delphi đó
Suy cho cùng nếu viết thành công thì nó rất tiện ích cho ai đó truy xuất dữ liệu chỉ việc tích chọn ===> thế là xong

 

[ongke0711]

Mạnh lấy OK có nghĩa là vô ok chứ ... mà cái Server Mạnh ko hiểu lắm ... giờ mới mò tới
Thấy Bạn viết hay quá nên mới quyết tâm mò nó cho vào Addins Delphi đó

Lần trước mình viết cho một trường hợp riêng của một bạn nên mới viết chạy được như vậy. Giờ bạn làm cái tool cho nhiều người dùng chung thì nên tính tới các trường hợp có thể xảy ra: người dùng bị phân quyền chỉ cho xem 1, 2 table, không truy cập được các table hệ thống v.v.. thì cái tool nên xử lý như thế nào cho phù hợp, không gây bối rối cho người dùng khi gặp các lỗi trên. Chỉ vậy thôi.

 

[Kiều Mạnh]

Lần trước mình viết cho một trường hợp riêng của một bạn nên mới viết chạy được như vậy. Giờ bạn làm cái tool cho nhiều người dùng chung thì nên tính tới các trường hợp có thể xảy ra: người dùng bị phân quyền chỉ cho xem 1, 2 table, không truy cập được các table hệ thống v.v.. thì cái tool nên xử lý như thế nào cho phù hợp, không gây bối rối cho người dùng khi gặp các lỗi trên. Chỉ vậy thôi.

cái đó dễ à ... nếu gặp lỗi thoát và thông báo lỗi thế thôi

 

[Kiều Mạnh]

Cái SQL Server của Mạnh đang hình thành ... đạn đã lên nòng ... chờ ngày bóp cò là xong
Các bạn GPE lại có 1 cái SQL Server xài không giới hạn ... chỉ đăng nhập tùy chọn ===> thế là xong

 

[Kiều Mạnh]

đã xong mai mốt test lại các kiểu xong Úp tặng cho ai Iu nó
quậy code Delphi diết .... Trình Delphi của Mạnh lại tăng thêm một cấp code viết ngắn lại vài mét mà toàn xài hàm chung cho 2 cái SQL
cơ bản 2 cái như nhau chỉ khác nhau cái kết nối

 

[Kiều Mạnh]

Mấy ngày nay mãi mê vui vẻ với Cái Google Sheet ... nay mới coi lại và làm tạm xong cái SQL Server Ms
Như Mạnh đã nói mấy bài trước nay úp Tặng cho ai iU Em nó cứ thế mà xài ... nếu có lỗi phát sinh thì mô tả lỗi + chụp hình báo lỗi úp lên đây dùm Mạnh là vui rồi

Nếu Bạn nào có yêu cầu gì thêm cứ nêu ra nếu Ok trong khả năng code của Mạnh thì Mạnh làm cho he

vậy là các Bạn có cái Add-ins mà có 2 cái SQL cơ bản rồi đó 1 cái cho Excel + Access và 1 cái cho Server Ms
lấy dữ liệu chỉ việc tích chọn thế là =========> xong ========= > rất đơn giản

 

[Kiều Mạnh]

Cái hàm sau check chọn Folder Anh @batman1 cho Năm ngoái giờ xem lại ứng dụng nó Tổng hợp File trong Folder với tích chọn
Giờ mới thấy giá trị của nó nè .... tìm mờ mắt trên Google ko thấy luôn
Cảm ơn Anh cho Em cái hàm hay

 

[ongke0711]

Như Mạnh đã nói mấy bài trước nay úp Tặng cho ai iU Em nó cứ thế mà xài ... nếu có lỗi phát sinh thì mô tả lỗi + chụp hình báo lỗi úp lên đây dùm Mạnh là vui rồi

Gửi mấy cái hình lỗi lên cho vui nhé.

1. Cái tool hiện tại của bạn chỉ "tự động" lấy cái Database đầu tiên trong SQL Server chứ không lấy theo tên database nhập trên tool của bạn.
Cụ thể tôi muốn truy xuất Database "danhba" nhưng tool lại lấy database "abc" nằm đầu tiên trong danh sách database.




2. Khi mở tool lên, chưa nhập tham số gì mà bấm nút [Kết nối] sẽ hiện ra cái list các Table của Database "master" của cái SQL Server (local) tôi đang cài trên máy.
Bấm [Lấy dữ liệu] thì báo lỗi như hình dưới.





3. Khi chọn Table rồi mà chưa click chọn tên field nào trong listbox kế bên mà bấm nút [Lấy dữ liệu] sẽ bị lỗi như hình dưới.
Nó không mặc định lấy dữ liệu như câu lệnh SQL mà bạn cho hiển thị ở textbox bên dưới.



4. Khi chọn một table có vài cột (field) thì không cần click chọn tên Field bên listbox -> chương trình vẫn chạy trả về dữ liệu. Nhưng sau đó khi bấm chọn qua Table khác có hơn 10 field là báo lỗi như hình dưới đây.




5. Hiện thông báo bên dưới Userform (do lỡ tay kéo userform ra giữa màn hình) là chịu chết, không đọc được nó khuyến cáo nên làm gì chỉ có cách bấm Tab đại cho con trỏ nó tự di chuyển trên cái message box đó rồi bấm Enter để nó thoát tình trạng Popup Dialog.




6. Đặc biệt là các báo lỗi trên đều gây treo máy, chứ không tự giải phóng, trả lại hiện trạng ban đầu.
7. Con trỏ chuột có lúc mất kiểm soát, tự nhảy qua lại giữa Userform và Sheet. Đang gõ pass trên userform thì nó nhảy vô một cell nào đó trên sheet.
8. Che dùm cái textbox nhập Password nhé.

 

[Kiều Mạnh]

1/ cái mục này đã biết tại sao ... xử lý sau tạm thời chỉ lấy cái Database đầu tiên trong SQL Server
2/ cái mục này cũng chưa biết xử lý sao .... ghi nhớ đó làm sau
3/ cái mục này mạnh cho thế nếu ko chọn cột nào thì mặc định nó lấy hết theo SQL trên Form .. còn lỗi sao máy mạnh thấy Ok mà
xem lại sau
4/ có thể thao tác trước lỗi thoát ra làm lại xem sao dùm !!! ... xem lại sau
5/ cái đó do Excel nó ngăn cản chuột ... trên cái SQL Excel + Access mạnh làm trên TEdit thì ok ... qua SQL Server cho lên LabeoEdit thì bị cái đó
trên máy mạnh cũng thế ( cái này sửa sau chắc Ok thôi)
6/ cái này do tạo duy trì kết nối chạy đa luồng khi kết nối tới Server lỗi đó chưa tìm ra cách xử lý
7/ cái này mạnh biết như mục số 5
8/ cái này chuyện nhỏ ... căn bản chạy và fix lỗi xong sẻ tính cái đó ( cho tùy chọn Show pass Or Pass hoa thị hay mã hóa pass)
......

ý tưởng làm thêm như sau vì thấy mỗi lần đăng nhập khai báo mất công quá đi

1/ Khi đăng nhập lần đầu sẻ có 1 cái checkbox tùy chọn lưu Pass + IP + Use ... lại
2/ khi đăng nhập lại lần thứ 2 nó sẻ lấy cái cái thông tin mục số 1 tự động điền vào chỉ việc nhấn nút là xong
3/ nếu thay đổi thông tin đăng nhập thì chọn checkbox xong khai báo mới lại thì nó sẻ update lại luôn
.....
...........
1/ Lưu thông tin đăng nhập lần đầu vào Registry ???
2/ Lưu ra 1 cái File x nào đó trên máy ????
3/ Tùy chọn lưu ra 1 file x nào đó do người dùng chọn dường dẫn lưu ( cái này lại phát sinh thêm là khi đăng nhập lại chọn lại file đó )
4/ Pass + IP sẻ mã hóa hết

Các Bạn tham gia cho ý kiếm bổ sung thêm và nên làm như thế nào và ko nên làm ???

Xin cảm ơn

 

[Kiều Mạnh]

Ối dào cái mục che cái pass kia làm cho nó thành ngôi sao tưởng khó mà dễ như ăn kẹo mút
Ngày nay khi nào rảnh mò 1 chút cuối cùng cũng bắt trước xong cái Mục lưu password lần đầu đăng nhập Server như Anh Google
lần thứ 2 trở đi là nó tự điền vào .... Lưu vào files x trên máy luôn xong cho nó ẩn luôn đi ... mò hết trên máy là ra thôi nhưng cái Pass đã mã hóa rùi vãi lắm ... giải mã ra cũng nhọc đấy

Mục Lưu CSDL là lưu pass + đấy... nếu check là nó lưu luôn lần sau khỏi khai báo cứ thế bay vào Server cái vèo
( tại cái tật làm biếng nên nghỉ ra trò mà chơi cho nó vui vẻ vậy )

 

[ongke0711]

Mục Lưu CSDL là lưu pass + đấy... nếu check là nó lưu luôn lần sau khỏi khai báo cứ thế bay vào Server cái vèo
( tại cái tật làm biếng nên nghỉ ra trò mà chơi cho nó vui vẻ vậy )

Tham khảo thêm nè bác. Góp ý là dùng từ cho rõ nghĩa chút chứ bạn ghi "lưu CSDL" lại nghĩ là backup CSDL ra chỗ khác.

 

[Kiều Mạnh]

Tham khảo thêm nè bác. Góp ý là dùng từ cho rõ nghĩa chút chứ bạn ghi "lưu CSDL" lại nghĩ là backup CSDL ra chỗ khác.

View attachment 242387

View attachment 242388

Mạnh ghi nhận sự tham gia đóng góp chân thành và nhiệt tình của Bạn ... sẻ điều chỉnh sau

Có cái Form = cái bàn tay vẻ đủ thứ lên đó mà viết : dùng Files INI chứa thông số kết nối .... dài quá ko còn chỗ ghi ( Tính sau )

Cái quan trọng hàng đầu là:
1/ chạy code ok
2/ Fix lỗi code
3/ Tinh chỉnh code ... Fix các code thừa + tăng tốc cho nó xử lý nhanh chút
4/ thêm các tùy chọn khác vvv
5/ hoàn thiện trang trí màu mè câu từ hoa lá vvv
....
Còn phê lắm ... rảnh nghiên cứu viết chơi thôi mà có làm gì mà vội với vàng cơ chứ

 

[Kiều Mạnh]

Rảnh mới viết thêm như sau ( Mọi thứ lỗi vẫn như mô tả của bài 53 và trả lởi bài 54 ... thong thả Mạnh fix sau )
1/ Thêm tự động lưu thông tin đăng nhập lần đầu tới Server ( lần sau là nó tự điền luôn ... Lưu ý chọn cái Checkbox đó dùm )
2/ Thêm cái List Database Server ... cái này ko biết nó lấy có chính xác không nữa ...????!!!!
....
....
cái con đường code két nhọc quá cứ mò hoài rồi có ngày nó sẻ ra thôi
Nhờ các bạn test dùm Xin cảm ơn

 

[Kiều Mạnh]

Khó khăn quá mò không ra mới hỏi tây nó chỉ cho xong ... vậy cơ bản cái SQL Server của Mạnh đang hoàn thiện
Lưu tấm hình hỏi Tây lên đây và cũng là chia sẻ cho thế hệ sau ai đam mê code trên Delphi xài khi cần đến

 

[Kiều Mạnh]

lâu này à ơi làm biếng quá .... mới ngó viết thêm 1 tẹo Úp cho Bạn nào đó iu thì xài thử ... SQL Server chưa có hoàn thiện nó còn lỗi và chỉnh sửa nhiều
Ngay Cả Bill viết bộ Office mấy chục năm còn sai tè le ấy chứ là Mạnh he
Thêm List Database trên Server lấy nó lên xong iU cái nào chọn cái đó là xong

 

[Kiều Mạnh]

kết quả đóng cửa né Covid - 19 lâu ngày ... Nó đẻ ra cái SQL TCP/IP