Chia sẻ thư viện API ( SQLBuilderLibrary.dll ) - Trình tạo và truy vấn cở sở dữ liệu ... SQLite - Access - Excel & Ms Server

Blue Softs epl Liên hệ QC

Kiều Mạnh

IIIIIIIIIIIIIIIII
Tham gia
9/6/12
Bài viết
4,586
Được thích
3,227
Giới tính
Nam
1/ Quá trình hình thành và phát triển thư viện API SQLBuilderLibrary.dll được mô tả và trình bày bài link sau


2/ Như bài số #14 mục số 1 Tôi có nói chia sẻ miễn phí hoàn toàn và không cá nhân hóa hay giới hạn bất cứ cái gì có liên quan tới thư viện API trên

3/ Nay Tôi úp lên đây chia sẻ cho bạn nào có sở thích lập trình viết Add Ins cho Excel trên Delphi sử dụng lại thư viện SQL của tôi ứng dụng vào công việc của mình cho phù hợp

4/ được phát triển trên nền Addins có sẳn của nước ngoài mà tôi Copy về Úp lại link sau

Bài Số #1228

5/ Tôi vẫn để nguyên mọi thứ y trang bản gốc ... chỉ thay đổi viết thêm 1 chút là load Hàm API của tôi ... vì vậy các bạn có thể tải về chỉnh sửa sao đó thì tùy ...

6/ Code Mạnh viết thêm như sau

Mã:
procedure TCoMultipleUIThreadsDemo.ShowModelessForm(const Control: IDispatch);
begin { Create Another UI Thread }
  TThread.CreateAnonymousThread(
    procedure
    var
      LShowForm: TProcedure;
      LibHandle: THandle;
      PathDLL: string;
    begin
      PathDLL := ExtractFilePath(GetModuleName) + MyDLL;
      if FileExists(PathDLL) then
      begin
        LibHandle := LoadLibrary(PChar(PathDLL));
      end
      else
      begin
        LibHandle := LoadLibrary(PChar(MyDLL));
      end;
      { Show Form }
      if LibHandle <> 0 then
      begin
        @LShowForm := GetProcAddress(LibHandle, 'ShowForm');
        LShowForm;
      end
      else
      begin
        ShowMessage(MyDLL + ' Not Found');
      end;
      { Unload DLL }
      FreeLibrary(LibHandle);
    end).Start;
end;

7/ Hình ảnh sau khi load Form lên Addins như sau

SQL_Builder.PNG

8/ Toàn bộ mã nguồn Addins + SQLBuilderLibrary.dll


9/ Theo thời gian nếu rảnh + khả năng cho Phép tôi sẻ bổ sung thêm hàm + Tính năng cho SQLBuilderLibrary.dll

10/ Vui lòng theo dõi và cập nhật sử dụng thư viện SQLBuilderLibrary.dll

11/ quá trình sử dụng vui lòng đọc kỹ bài số #39 link mục số 1 bài này ... xin cảm ơn


Chúc các Bạn tùy biến vào công việc của mình cho phù hợp và hiệu quả nhất
 
Lần chỉnh sửa cuối:

Kiều Mạnh

IIIIIIIIIIIIIIIII
Tham gia
9/6/12
Bài viết
4,586
Được thích
3,227
Giới tính
Nam
Tham khảo thêm ý kiến của các Bạn

1/ Thư viện API SQLBuilderLibrary.dll .... tôi đang sử dụng FireDAC trên Delphi để viết truy xuất dữ liệu bao gồm 4 CSDL đã nêu trên

2/ Vì FireDAC có hổ trợ rất nhiều CSDL khác nhau nên đang rảnh tôi tính viết thêm 1 vài CSDL khác nữa vào thư viện API SQLBuilderLibrary.dll

3/ Vậy Tôi muốn hỏi trong List hổ trợ theo hình sau của FireDAC vậy tôi nên nghiên cứu viết thêm hàm cho CSDL nào nữa ( CSDL phổ biến nhất )

1626059618584.png


4/ Mô tả về hổ trợ FireDAC của Delphi link sau

5/ Về cơ bản đã biết sử dụng FireDAC trên Delphi ... giờ chỉ viết thêm vào thôi nên không quá khó
cái cực khó làm ban đầu khi tập viết nó ( khoãng 3 to 6 tháng chi đó mò mờ cả mắt )

6/ Tiện đây giới thiệu cho ai iu thích Delphi hãy bắt đầu đọc từ link sau ( Mạnh mất khoãng 6 tháng đấy ... có khi ai đó chỉ mất vài ngày thôi )

********************************************************
Hãy cố giắng và cố giắng ... không cần giỏi ( Nếu giỏi càng tốt ) mà hãy chăm chỉ và ko bỏ cuộc thì sẻ viết được thôi
 
Lần chỉnh sửa cuối:

Kiều Mạnh

IIIIIIIIIIIIIIIII
Tham gia
9/6/12
Bài viết
4,586
Được thích
3,227
Giới tính
Nam
Úng dụng này hay quá: em đang tìm kiểu này bác nào có cho em xin với ạ
Liên kết: https://www.youtube.com/watch?v=jkXHHwN5Tls
cái đó thường thôi ... tôi viết thêm chút là xong à
qua Linh sau xem cái SQL TCP/IP của tôi nó lấy tất cả các Sheet của File hoặc tất cả các Tablename của access tổng hợp lại xong gán nối xuống trên Sheet nè ... lấy qua Interntet đấy ... còn lấy trên PC ít quan tâm nữa


Hàm Sau nha
Mã:
Public Sub Main_TongHopSheetFiles()
    SQL = "select * from NhapXuatTon"
    Ip = GetMyLocalIP() ''Luu Y thay doi IP nay cho may tinh khac can lay qua Internet
    Cells.ClearContents
    Call TongHopSheetFiles(Ip, Port, "Data.xlsm", [A65536])     ''Su dung tot
End Sub

Nhớ thay cái File Data.xlsm thành file Access hay Excel khác mà chia sẻ ở Folder Server nha
 

Cá ngừ F1

( ͡° ͜ʖ ͡°)
Thành viên BQT
Moderator
Tham gia
1/1/08
Bài viết
2,513
Được thích
3,626
Donate (Momo)
Donate
Giới tính
Nam
Nghề nghiệp
Quan hệ.. và quan hệ..
Hay quá anh @Kiều Mạnh
Nhìn nhiều tính năng hơn cả DB browser for SQLite.
Cảm ơn anh !!!
 

Kiều Mạnh

IIIIIIIIIIIIIIIII
Tham gia
9/6/12
Bài viết
4,586
Được thích
3,227
Giới tính
Nam
Hay quá anh @Kiều Mạnh
Nhìn nhiều tính năng hơn cả DB browser for SQLite.
Cảm ơn anh !!!
cơ bản khó nhất mất trên 6 tháng viết ra nó rồi ... giờ viết thêm chút là Tổng hợp tất cả các Sheet trong 1 File ok ngay
hay tổng hợp tất cả các file trong Folder là ok hết

Thực ra cái khó nhất viết cho rồi ... phần còn lại từ VBA viết thêm hàm phụ là chạy thôi
Tải cái API đó về mà sử dụng .... cái đó độc tôn trên GPE này đấy .... nhiều người giỏi còn phải đi mua của tây Component xong sử dụng nó đấy ( kiểu như UniDAC )

Link sau có code mẫu khai báo VBA xong sử dụng đấy

 
Lần chỉnh sửa cuối:

kiendaide1

Thành viên chính thức
Tham gia
3/4/13
Bài viết
52
Được thích
3
cái đó thường thôi ... tôi viết thêm chút là xong à
qua Linh sau xem cái SQL TCP/IP của tôi nó lấy tất cả các Sheet của File hoặc tất cả các Tablename của access tổng hợp lại xong gán nối xuống trên Sheet nè ... lấy qua Interntet đấy ... còn lấy trên PC ít quan tâm nữa


Hàm Sau nha
Mã:
Public Sub Main_TongHopSheetFiles()
    SQL = "select * from NhapXuatTon"
    Ip = GetMyLocalIP() ''Luu Y thay doi IP nay cho may tinh khac can lay qua Internet
    Cells.ClearContents
    Call TongHopSheetFiles(Ip, Port, "Data.xlsm", [A65536])     ''Su dung tot
End Sub

Nhớ thay cái File Data.xlsm thành file Access hay Excel khác mà chia sẻ ở Folder Server nha
Bác có thể cho em xin cách cài đặt vào excel được ko ạ. em thấy hay vi có thể viết code SQL để lọc dư liệu EXCEl mà ko cần cài đặt SQL sever
 

Kiều Mạnh

IIIIIIIIIIIIIIIII
Tham gia
9/6/12
Bài viết
4,586
Được thích
3,227
Giới tính
Nam
Bác có thể cho em xin cách cài đặt vào excel được ko ạ. em thấy hay vi có thể viết code SQL để lọc dư liệu EXCEl mà ko cần cài đặt SQL sever
tải file bài số 1 có chỉ dẫn đó ... cứ thế mà sử dụng + đầy code mẫu ra đó rtong files Excel ấy
 

kiendaide1

Thành viên chính thức
Tham gia
3/4/13
Bài viết
52
Được thích
3
Bac Kiều Mạnh ơi bác có zalo ko cho em xin liên hệ với bác em nhờ bác chút dược ko ạ. em ko thấy chức năng gửi thư cho bác
 

Kiều Mạnh

IIIIIIIIIIIIIIIII
Tham gia
9/6/12
Bài viết
4,586
Được thích
3,227
Giới tính
Nam
Bac Kiều Mạnh ơi bác có zalo ko cho em xin liên hệ với bác em nhờ bác chút dược ko ạ. em ko thấy chức năng gửi thư cho bác
có gì cứ phơi bày hết lên đây cho khỏe ... Zalo tôi khóa hết các Mục kết bạn rùi vì hàng ngày nhiều tín đồ hỏi quá muốn ngất


Thời gian tới rảnh tôi sẻ xuất hàm song song API và COM chung 1 File ... khi ai đó thích COM thì check Refences từ VBE khi code chỉ chấm . nó có list hàm show ra như Dic của Ms ấy ... xong gán vào là dùng
 
Lần chỉnh sửa cuối:

Kiều Mạnh

IIIIIIIIIIIIIIIII
Tham gia
9/6/12
Bài viết
4,586
Được thích
3,227
Giới tính
Nam
đang Viết lại hết .... sử dụng COM và API chung Vào 1 File ... ai thích sử dụng API thì khai báo API sử dụng nó
ai ko thích API thì đăng ký DLL và sử dụng nó khi check từ VBE hay CreateObject điều được hết

Hình minh họa như sau ... là 1 DLL COM đa nền tảng ... sử dụng chung cho nhiều Tools lập trình

1/ khoanh màu xanh là thư viện COM
2/ khoanh màu vàng là Class
3/ khoanh màu đỏ là Hàm
4/ khoanh màu Tím là cách khai báo API và tham số của Hàm

1635734584908.png


Sẻ bổ sung các hàm tiện ích vào COM ... ta chỉ việc Call

Khi viết khai báo xong ta chỉ Việc chấm . là có list của hàm Show ra ... còn ta chỉ việc gán vào là xong

1635735892973.png

1635735997379.png

Và cuối cùng chỉ cá nhân hóa 1 chút ai là người viết ra nó thế thôi :p:D


1635738048689.png


Sẻ viết 1 thự viện COM và API vào 1 file với các hàm tùy chỉnh thân thiện nhất .... chạy đa nền tảng và hoàn toàn Free không giới hạn cho công chúng sử dụng nếu thích
 
Lần chỉnh sửa cuối:

Kiều Mạnh

IIIIIIIIIIIIIIIII
Tham gia
9/6/12
Bài viết
4,586
Được thích
3,227
Giới tính
Nam
Nếu Bạn nào yêu thích Delphi và test thử một chút link thớt sau bài số 1292

 

Kiều Mạnh

IIIIIIIIIIIIIIIII
Tham gia
9/6/12
Bài viết
4,586
Được thích
3,227
Giới tính
Nam
Tôi đang test COM trên nhiều môi trường khác nhau như, Access , Excel, VB6 và Delphi ... thấy chạy tốt
khi nào ổn định cơ bản Sẻ úp tặng cho bạn nào iU thích và sử dụng nó ... truy xuất dữ liệu Excel, Access, SQLite, Ms Server + vvv

Các hàm tùy chỉnh COM và API song song nhau và mở rộng tùy chọn gán dữ liệu lên Sheet + Control VBA Or VB6 ...
Hình sau là test COM SQLite + Access + Excel + vv trên VB6

Untitled.png
Hình sau là trên Access

access.png


Như vậy là viết 1 thư viện COM duy nhất sử dụng chung cho rất nhiều môi trường code khác nhau
1 thư Viện COM và API thân thiện tùy chỉnh và sử dụng đơn giản nhất

1636169283688.png

Sẻ Copy các kiến thức chung nhất , hay sử dụng nhất của GPE viết Vào COM Delphi ( Mục Tiện ích VBlib )
VD trong VBA có Hàm Dir mà ko hổ trợ Unicode ... thì Mạnh Sẻ viết 1 hàm tên DirW có hổ trợ Unicode và chức năng tương tự Dir của VBA .... thế thôi :D-0-0-0-

Xong trên GPE ai thích Copy DLL thì cứ Copy thoải mái đi .... Tôi lại cầu mong cho họ Copy lắm lắm ấy chứ ... chỉ sợ rằng code viết ra mà ko ai thèm Copy thôi :::"""><-0-0-0-
 
Lần chỉnh sửa cuối:
Web KT
Top Bottom