Trình Tạo SQL và truy vấn Cơ Sở Dữ Liệu SQLite - SQLite Builder

Liên hệ QC

phuongnam366377

Thành viên hoạt động
Tham gia
25/10/19
Bài viết
107
Được thích
157
1/ Sau một thời gian nghiên cứu tham khảo từ VBA To VB6 To Delphi ... Cách truy vấn cơ sở dữ liệu SQLite thì Mạnh Viết Tools SQLite build ( là bản Demo chưa hoàn thiện đang thử nghiệm )

Úp tặng cho Bạn nào có như cầu sử dụng Build SQL và truy vấn cơ sở dữ liệu SQLite

2/ đang trong quá trình thiết kế và viết thêm chưa hoàn thiện ... Vì vậy lỗi phát sinh là đương nhiên vv ... nếu quá trình sử dụng có lỗi vui lòng mô tả lỗi + chụp hình úp lên đây càng tốt ===> Xin cảm ơn

3/ trong quá trình sử dụng bạn nào có mong muốn và yêu cầu gì cứ nêu ... nếu Mạnh xét thấy làm được và phù hợp sẻ điều chỉnh lại code

4/ Sau khi hoàn thiện mọi cái sẻ chuyển nó vào DLL COM Delphi buil thành 1 bản là Addins cho Excel và 1 bản là Tools EXE

Rất mong người sử dụng và các bạn tham gia ý kiếm thêm ... nếu trong khả năng code của Mạnh thì Mạnh sẻ viết thêm và điều chỉnh lại cho Phù hợp

5/ Giao diện của SQLite For Database như sauSQLForDatabase.PNG
 

File đính kèm

  • DB_SQLite_Tools.rar
    3.4 MB · Đọc: 211
Tiếp tục thử nghiệm Demos thứ 2

1/ Gộp SQLite + Access + Excel vào 1 ( Tức sử dụng 1 hàm cho 3 cở sở dữ liệu khác nhau )
2/ Thêm SQL Ms Server vào chung 1 Form
3/ Hoàn toàn ko sử dụng ADODB của Ms để truy xuất dữ liệu ....
.......
Mục số 3 nếu Bạn nào có máy Mac + Linux ... vui lòng thử dùm xem có sử dụng được hay không ...
Vì Mạnh ko có ( Nếu có lỗi vui lòng chụp hình + Mô tả lỗi )

Hình ảnh sơ bộ như sau

1/ SQL Cho SQLite + Access + Excel

SQL_Excel_Access_SQLite.PNG

2/ SQL cho Ms Server

SQL_Ms_Server.PNG

3/ Sẻ từng bước hoàn thiện SQL TCP/IP vào tiếp chung 1 Form sau ... vì lý do kỹ thuật còn nhiều thứ chưa thực hiện được
 

File đính kèm

  • SQLForDataBase.rar
    3.5 MB · Đọc: 102
Lần chỉnh sửa cuối:
Mới cập nhật thêm 1 tính năng hổ trợ tìm kiếm file trong Folder

File đã úp lại bài số 3 ... Tính úp lại files bài số 1 mà bị khóa ko cho úp ( quản lý kiểu chiếm dụng và đối phó thì ta sẻ úp Google Driver thôi ... xong ko thích thì Delete là xong)

Sau bài này sẻ ko bao giờ úp file lên đây nữa ... mọi files cho Úp Google là xong

Hình ảnh minh họa

SQL.png
 
Đang tên Kiều Mạnh dễ thương thế mà đổi sang cái tên lạ hoắc lạ huơ à --=0
 
Thông báo mới cập nhật thêm 1 tính năng mới tìm kiếm file Extension tại ComboBox

Hình Ảnh

sql.png

Vui lòng tải file mới nhất link sau ( Lưu ý : File có giá trị trong 1 khoãng thời gian nhất định xong sẻ Delete và thay thế File mới khi có tính năng mới)

 
Thông báo mới cập nhật thêm 1 tính năng mới tìm kiếm file Extension tại ComboBox
Công cụ tuyệt vời đó bạn, bạn học bên bờ lu sót á, học xong mà viết được như này là xuất sắc đó. Đang tính đi học một khóa về vê bê a, chắc bên đó dạy ổn lắm đây.
 
Công cụ tuyệt vời đó bạn, bạn học bên bờ lu sót á, học xong mà viết được như này là xuất sắc đó. Đang tính đi học một khóa về vê bê a, chắc bên đó dạy ổn lắm đây.
Nếu có thời gian và điều kiện cho phép ... cố giắng theo học 1 lớp nào đó của ai đó mà mình xét thấy 1 vài tiêu chí phù hợp thì học vvv
và quan trọng nhất là nổ lực cố giắng của bản thân .... Học Delphi ko khó lắm cố giắng bước qua cái cơ bản ban đầu là viết Ok
trên Delphi nó có hết mọi cái ... code nhìn diết thì nó gần như VBA vậy ... Delphi có 1 vài thứ hay mà trên các Tools khác không có hay chưa có

1/ Nó hổ trợ Viết API + Form + Control trên 1 Tools duy nhất vv...
2/ nó hổ trợ lập trình nhóm Or cộng đồng chia sẻ code với nhau = *.dcu ( Như Module trên VBA ) thành viên khác sử dụng ok mà ko mất bản quyền của mình
3/ nó hổ trợ đa nền tảng mà cộng đồng quốc tế hướng tới
4/ mã hóa tốt + bảo mật mạnh + mã máy vvv...
...
trên thế giới tới thời điểm hiện tại có 2 ngôn ngữ có thể lập trình ra API đó là C++ & Delphi ... C++ thì viết API thuần ko có hổ trợ Form +...
Học gì hay làm gì thì tùy vào khả năng và sở thích của Bạn + nổ lục cố giắng của bản thân thì sẻ vượt qua tất cả

Chúc Thành công
 
Tặng các Thành Viên GPE 1 hàm API duy nhất truy xuất 3 cở sở dữ liệu khác nhau
1/ Excel
2/ Access
3/ SQLite
4/ Copy File SQLBuilderLibrary.dll vào: C:\Windows\System32\ .... và sử dụng
5/ sử dụng DLL 32bit và DLL 64 bit ... theo Office_x32 Or Office_x64

Viết kiểu SQL chỉ thay đổi tham số SQL và sử dụng

Code Mẫu như sau
Mã:
Rem ==========
Declare PtrSafe Sub GetSQLDataBase Lib "SQLBuilderLibrary.dll" _
    (ByVal aPath As Variant, ByVal SQL As Variant, _
    ByVal Target As Variant, ByRef TieuDe As Boolean)
Rem ==========
Sub Excel_GetSQLDataBase()
    Dim aPath As Variant, SQL As Variant
    Dim Targer As Variant
    SQL = "select * from [NhapXuatTon$]"                ''Cho Excel
    aPath = "D:\Database_Server\Data.xlsx"
    Cells.Clear
    Call GetSQLDataBase(aPath, SQL, [A5], True)         ''True = lay Tieu de; False = Ko lay Tieu de
End Sub
Rem ==========
Sub SQLite_GetSQLDataBase()
    Dim aPath As Variant, SQL As Variant
    Dim Targer As Variant
    SQL = "select * from [NhapXuatTon]"
    aPath = "D:\Database_Server\DB_SQLite\QLBHPN.sqlite" ''Sho SQLite
    Cells.Clear
    Call GetSQLDataBase(aPath, SQL, [A5], False)        ''True = lay Tieu de; False = Ko lay Tieu de
End Sub
Rem ==========
Sub Access_GetSQLDataBase()
    Dim aPath As Variant, SQL As Variant
    Dim Targer As Variant
    SQL = "select * from [NhapXuatTon]"
    aPath = "D:\Database_Server\DataBase_4.accdb"       ''Cho Access
    Cells.Clear
    Call GetSQLDataBase(aPath, SQL, [A5], False)        ''True = lay Tieu de; False = Ko lay Tieu de
End Sub
Rem ==========
 
đang cố giắng hoàn thiện cái Addins cho Excel sẻ bao gồm như sau

năm ngoái cũng viết SQL mà viết thuần ADODB ... sang năm nay code khá hơn 1 chút bỏ luôn ADODB của Ms mà sử dụng FireDAC của Delphi viết chạy đa nền tảng cho phẻ

1/ SQL cho Excel
2/ SQL cho Access
3/ SQL cho SQLite
4/ SQL cho Ms Server

tất cả chỉ sử dụng 1 cái Form duy nhất
.....
đang từng bước cho tiếp SQL TCP/IP vào nữa mà lỗi + đơ .... U cả đầu vì nó ( sẻ xong thôi còn khi nào thì chưa biết .... Trên VB6 thì OK đấy, còn Delphi = U đầu )

Hình ảnh như sau ko biết có ai iu em nó ko Mạnh hoàn thiện xong cho ko biếu ko luôn mà sử dụng
nó rất thân thiện trong việc sử dụng chỉ tích chọn + Tìm kiếm files đệ quy trong Folder +...vv

1623726420003.png
 
Khỏi cần Addins được không anh. Tạo nó thành phần mềm chạy độc lập luôn.
nó sẻ có 3 Files trong 1 Folder như sau

1/ SQLBuilderLibrary.dll = là 1 thư viện hàm API Sẻ Exports 1 số hàm cơ bản ra ngoài cho ai đó thích thì xài Or các lập trinh viên xài miễn phí ko cá nhân hóa bất cứ cái gì chỉ Copy vào System là sử dụng như bài số 11

2/ ExcelTools.dll = Là 1 COM Delphi Addins cho Excel nếu ai đó ko biết lập trình thì đăng ký File này là cứ thế sử dụng như hình bài số 12

3/ SQLBuilderLibrary.EXE = là 1 file EXE chạy độc lập chỉ copy và sử dụng

Mục đích viết như vậy là cho phổ biến rộng + sâu tới mọi đối tượng sử dụng thôi mà

Ko biết ý tưởng như vậy có được không nữa ???
 
nó sẻ có 3 Files trong 1 Folder như sau

1/ SQLBuilderLibrary.dll = là 1 thư viện hàm API Sẻ Exports 1 số hàm cơ bản ra ngoài cho ai đó thích thì xài Or các lập trinh viên xài miễn phí ko cá nhân hóa bất cứ cái gì chỉ Copy vào System là sử dụng như bài số 11

2/ ExcelTools.dll = Là 1 COM Delphi Addins cho Excel nếu ai đó ko biết lập trình thì đăng ký File này là cứ thế sử dụng như hình bài số 12

3/ SQLBuilderLibrary.EXE = là 1 file EXE chạy độc lập chỉ copy và sử dụng

Mục đích viết như vậy là cho phổ biến rộng + sâu tới mọi đối tượng sử dụng thôi mà

Ko biết ý tưởng như vậy có được không nữa ???

Vậy hay đó anh.
 
Sẻ thống nhất là thế ...

1/ ko cá nhân hóa cái DLL API vì cái đó cho các lập trình viên sử dụng mà cá nhân hóa ... ai mà xài ???!!!

2/ chỉ cá nhân hóa cái File COM Addins cho Excel 1 chút để quãng cáo cho người dùng biết ai là tác giả viết ra nó như hình sau

1623728429561.png

Nói thẳng luôn mục đích mục số 2 là ... Nếu người dùng sâu + rộng mà xét thấy tiện ích họ sẻ liên hệ .... xong viết theo yêu cầu sẻ thu tiền cafe thôi
 
Addins cho Excel - SQL Builder bao gồm:
1/ Excel
2/ Access
3/ SQLite
4/ Ms Server
5/ Tiện ích Copy Files ( Vì sử dụng tìm kiếm tiện đó cho thêm vào Vì Form còn trống )
...
Exports ra 2 hàm API cơ bản chỉ Copy File SQLBuilderLibrary.dll vào

C:\Windows\System32\SQLBuilderLibrary.dll và sử dụng...

sẻ từng bước xuất thêm như hàm lấy List TableName + EXE + ...

Mã:
Rem ==========
Declare PtrSafe Sub GetSQLDataBase Lib "SQLBuilderLibrary.dll" _
    (ByVal aPath As Variant, ByVal SQL As Variant, _
    ByVal Target As Variant, ByRef TieuDe As Boolean)
Rem ==========
Sub Excel_GetSQLDataBase()
    Dim aPath As Variant, SQL As Variant
    Dim Targer As Variant
    SQL = "select * from [NhapXuatTon$]"                ''Cho Excel
    aPath = "D:\Database_Server\Data.xlsx"
    Cells.Clear
    Call GetSQLDataBase(aPath, SQL, [A5], True)         ''True = lay Tieu de; False = Ko lay Tieu de
End Sub
Rem ==========
Sub SQLite_GetSQLDataBase()
    Dim aPath As Variant, SQL As Variant
    Dim Targer As Variant
    SQL = "select * from [NhapXuatTon]"
    aPath = "D:\Database_Server\DB_SQLite\QLBHPN.sqlite" ''Sho SQLite
    Cells.Clear
    Call GetSQLDataBase(aPath, SQL, [A5], True)          ''True = lay Tieu de; False = Ko lay Tieu de
End Sub
Rem ==========
Sub Access_GetSQLDataBase()
    Dim aPath As Variant, SQL As Variant
    Dim Targer As Variant
    SQL = "select * from [NhapXuatTon]"
    aPath = "D:\Database_Server\DataBase_4.accdb"        ''Cho Access
    Cells.Clear
    Call GetSQLDataBase(aPath, SQL, [A5], False)         ''True = lay Tieu de; False = Ko lay Tieu de
End Sub
Rem ==========

Declare PtrSafe Sub GetSQLServer Lib "SQLBuilderLibrary.dll" _
    (ByVal IpServer As Variant, _
    ByVal UserId As Variant, _
    ByVal Password As Variant, _
    ByVal SQL As Variant, _
    ByVal Target As Variant, _
    ByRef TieuDe As Boolean)
Rem ==========

Sub Ms_GetSQLServer()
    Dim ServerName As Variant
    Dim DatabaseName As Variant
    Dim UserId As Variant
    Dim Password As Variant
    Dim SQL As Variant
 
    ServerName = "192.168.1.9"
    DatabaseName = "KieuManh"
    UserId = "KieuManh"
    Password = "KieuManh"
    SQL = " select * from [KieuManh ]"
    Cells.Clear
    Call GetSQLServer(ServerName, UserId, Password, SQL, [A5], True)      ''True = lay Tieu de; False = Ko lay Tieu de
End Sub
Rem ==========

Là bản Demo chưa Hoàn thiện sẻ từng bước hoàn thiện theo thời gian

Link tải File có giá trị trong 1 giai đoạn phát triển nhất định xong sẻ Delete thay thế cái mới khi cập nhật code mới


Hình ảnh Minh họa như sau mọi vấn đề lấy dữ liệu chỉ việc tích chọn nếu chưa thành thạo SQL
Hổ trợ tìm kiếm files trên PC rất nhanh .... lấy file nào chỉ việc kích chuột hay nháy đúp là Open Path files đó

1624352689179.png

Video Demo
Liên kết: https://youtu.be/JGQx3FmRehs
 
Lần chỉnh sửa cuối:
Mình cài đặt theo hường dẫn, nhưng bị lỗi như hình

1624412711469.png
1624412751783.png
 
Mình cài đặt theo hường dẫn, nhưng bị lỗi như hình

View attachment 261128
View attachment 261129
Cái File ExcelTools.dll nó ko tìm thấy File SQLBuilderLibrary.dll trong cùng Folder đó mà

khắc Phục

1/ nếu bạn muốn sử dụng mấy hàm API thì copy File SQLBuilderLibrary.dll này vào C:\Windows\System32\SQLBuilderLibrary.dll và sử dụng nó

2/ Nếu máy bạn là Officex32 thì Copy nguyên Folder Win32 vào đâu đó tùy bạn xong chay Files Register_ExcelTools_RunAs.vbs xong Chọn Yes là OK

3/ trường hợp của bạn Copy lại Files SQLBuilderLibrary.dll vào chung Folder với Files ExcelTools.dll là Ok


Lưu ý:
1/ File ExcelTools.dll là một COM Delphi Addins nên Phải đăng ký mới sử dụng OK

2/ SQLBuilderLibrary.dll là 1 API chỉ copy và sử dụng

3/ 2 Files trên luôn đi cùng nhau trong Một Folder mới sử dụng được

4/ Tôi mới úp lại File bài số 17 Fix lỗi Form ... Bạn có thể tải lại Copy vào Folder đã đăng ký thay thế Files củ là xong

giao diện Form thay đổi 1 chút so với trước

1624417505465.png
 
Lần chỉnh sửa cuối:
Web KT
Back
Top Bottom