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

Liên hệ QC

Kiều Mạnh

I don't program, I beat code into submission!!!
Thành viên bị đình chỉ hoạt động
Tham gia
9/6/12
Bài viết
5,541
Được thích
4,121
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:
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:
Ú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
 
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 !!!
 
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:
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
 
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
 
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
 
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:
đ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:
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

 
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:
Nếu ai đó có ghé đây thăm thì vui lòng ghé lại link sau thăm 1 tí ... đại ý cũng thế thôi :::"""><
 
Mấy năm nay tôi vọc + học + viết linh tinh code mang tính khai phá các kiểu nó như 1 mớ bòng bong ...
Nay tôi đang từng bước tinh chỉnh lại các kiểu và lược bỏ những thứ ko cần thiết mà tạo ra lỗi

Sẻ cập nhật thư viện API + COM và hướng dẫn chi tiết lên Github
ai quan tâm vào link sau tải về sử dụng ... ko giới hạn và cá nhân hóa DLL
Tôi sẻ tách các thư viện API + COM ra các chuyên đề khác nhau

Bước đầu là thư viện API + COM song song mang tên FireMySQL.dll ( Sử dụng FireDAC truy xuất dữ liệu ....)
 
Nếu Bạn nào quan tâm tới thư viện này xem cách tùy biến và sử dụng nó link sau ... tôi làm biếng viết lại lắm


Bài 76 link sau
...
còn nhiều và hơn thế nữa nếu bạn biết vận dụng và tùy biến nó .... Tùy chọn phân phối mua bán lại cho ai đó nếu bạn thích ... tôi ko quan tâm

Hãy tận hưởng và thưởng thức thư viện hàm miễn phí ... duy nhất có trên GPE này cho 3 CSDL đó tới thời điểm hiện tại
 
Em xin file này với bác. Em cảm ơn
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

View attachment 261853

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
 
Em xin file này với bác. Em cảm ơn
Thong thả đi vài tháng sau sẽ có 1 thư viện mọi thể loại và code đã có em trợ lý ChatGPT hổ trợ fix các kiểu ... chạy bay vèo vèo

các file tôi Úp trước đây viết trong giai đoạn khám phá và chinh phục Delphi nên có nhiều phát sinh lỗi chưa điều chỉnh được
 
Web KT

Bài viết mới nhất

Back
Top Bottom