Add-ins SQL VB6 cho Excel, Access Và SQL Server + TCPIP

Kiều Mạnh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
4,278
Được thích
2,979
Điểm
560
Nơi ở
IIIIIIIIIIIIIIIII
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
 

huuduy.duy

Thành viên tích cực
Tham gia ngày
29 Tháng mười 2010
Bài viết
828
Được thích
110
Điểm
720
Nơi ở
Cà Mau
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

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
4,278
Được thích
2,979
Điểm
560
Nơi ở
IIIIIIIIIIIIIIIII

Kiều Mạnh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
4,278
Được thích
2,979
Điểm
560
Nơi ở
IIIIIIIIIIIIIIIII
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 :D :p
Xin cảm ơn
 
Lần chỉnh sửa cuối:

hoahuongduong1986

Thành viên thường trực
Tham gia ngày
14 Tháng mười một 2018
Bài viết
254
Được thích
19
Điểm
185
Tuổi
33
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 )

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

Thành viên tiêu biểu
Tham gia ngày
7 Tháng chín 2006
Bài viết
772
Được thích
884
Điểm
860
Nơi ở
HCM
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

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
4,278
Được thích
2,979
Điểm
560
Nơi ở
IIIIIIIIIIIIIIIII
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 -0-0-0-
 

Kiều Mạnh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
4,278
Được thích
2,979
Điểm
560
Nơi ở
IIIIIIIIIIIIIIIII
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

Nghị Hách
Thành viên danh dự
Tham gia ngày
13 Tháng sáu 2006
Bài viết
4,366
Được thích
9,876
Điểm
860
Nơi ở
Hà Nội
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

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
4,278
Được thích
2,979
Điểm
560
Nơi ở
IIIIIIIIIIIIIIIII
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
1592448359363.png
 

Nguyễn Duy Tuân

Nghị Hách
Thành viên danh dự
Tham gia ngày
13 Tháng sáu 2006
Bài viết
4,366
Được thích
9,876
Điểm
860
Nơi ở
Hà Nội
đ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

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
4,278
Được thích
2,979
Điểm
560
Nơi ở
IIIIIIIIIIIIIIIII
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 -0-0-0-
 

File đính kèm

huuduy.duy

Thành viên tích cực
Tham gia ngày
29 Tháng mười 2010
Bài viết
828
Được thích
110
Điểm
720
Nơi ở
Cà Mau
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
1592461377767.png


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

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
4,278
Được thích
2,979
Điểm
560
Nơi ở
IIIIIIIIIIIIIIIII
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
 

Kiều Mạnh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
4,278
Được thích
2,979
Điểm
560
Nơi ở
IIIIIIIIIIIIIIIII
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 )

Untitled.png
 

Kiều Mạnh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
4,278
Được thích
2,979
Điểm
560
Nơi ở
IIIIIIIIIIIIIIIII
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 :p:D
Mò code chua thật ... mò ra rồi thấy nó cũng ko khó lắm -0-0-0-
Add-Ins Excel .... COM Delphi luôn đấy

Untitled.png
 

Tuanba1992

Thành viên mới
Tham gia ngày
8 Tháng mười hai 2015
Bài viết
17
Được thích
8
Điểm
165

Kiều Mạnh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
4,278
Được thích
2,979
Điểm
560
Nơi ở
IIIIIIIIIIIIIIIII

Kiều Mạnh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
4,278
Được thích
2,979
Điểm
560
Nơi ở
IIIIIIIIIIIIIIIII
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 đính kèm

Top Bottom