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

[Nguyễn Duy Tuân]

Đây là video hướng dẫn cách tạo DLL trên Delphi nhưng sử dụng trong VBA, Excel. Đây là phương pháp lập trình chuyên nghiệp nhưng không phải là khó. Giúp bạn bảo mật code của phần mềm tốt hơn.

Loạt video hướng dẫn lập trình Delphi cơ bản của mình tại đây:
https://www.giaiphapexcel.com/diend...-trình-delphi-cơ-bản-từ-bluesofts-net.138736/

 

[Kiều Mạnh]

Ủa chú manh lam ADO con nect dữ liệu không thống kê hả

có chứ cho nó vào Mảng mà tính
rảnh vô link sau mà coi xem tình hình sao ?!
https://www.devart.com/sdac/docs/direct_mode.htm

 

[thuyyeu99]

có chứ cho nó vào Mảng mà tính
rảnh vô link sau mà coi xem tình hình sao ?!
https://www.devart.com/sdac/docs/direct_mode.htm

Cái dụ này phai co cái SQL sever nữa, phiền phúc hichic.

Câu hỏi trên đưa vô mãng thì mình xử lý được nhưng muốn gôm vô câu SQL cho nó tiện ý mà.

 

[Kiều Mạnh]

Câu hỏi trên đưa vô mãng thì mình xử lý được nhưng muốn gôm vô câu SQL cho nó tiện ý mà.

Cái này trên GPE có mấy thành viên rành nó ... cách tốt nhất bạn viết trên VBA hỏi xong ... nhìn xem thuật toán người ta làm mà chuyển vô Delphi
Mình chuyển gần hết Mã nguồn từ VB6 vào delphi rồi ... còn khoãng 10 + n câu hỏi nữa làm kẹt tới đâu hỏi tới đó ???

Còn bạn hỏi = Delphi thì trên GPE này mấy ai biết mô mà giúp .... ngay tới tham gia thớt này hay thớt Mầm, trồi lá kia mới lập mấy ngày đó mà có ai tham gia mô

 

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

sSQL := 'Insert Into DMHS(MaHS, HoVaTen) ' + 'Values(' +
QuotedStr((trim(Edit2.Text)))

Bài đã được tự động gộp: 4/11/18

Anh cho em hoi them chút nhé, cũng là Câu SQL trên trong bang data co cột Dot.
ví dụ table data

MaHS---II---Dot
--T1--- 2--- 1
--T1--- 3--- 1
--T1--- 4--- 2

Em muốn lồng vào câu SQL ở trên để thêm cột Dots được kết quả như sau:
MaHS---II---Dot
--T1--- 9--- 1&2

không biết được không

Thử như sau nhé:

 

[Nguyễn Duy Tuân]

sSQL := 'Insert Into DMHS(MaHS, HoVaTen) ' + 'Values(' +
QuotedStr((trim(Edit2.Text)))

Bài đã được tự động gộp: 4/11/18

Anh cho em hoi them chút nhé, cũng là Câu SQL trên trong bang data co cột Dot.
ví dụ table data

MaHS---II---Dot
--T1--- 2--- 1
--T1--- 3--- 1
--T1--- 4--- 2

Em muốn lồng vào câu SQL ở trên để thêm cột Dots được kết quả như sau:
MaHS---II---Dot
--T1--- 9--- 1&2

không biết được không

Nếu là CSDL Excel thì phải đợi Add-in A-Tools 2019 bổ sung tính năng group và liệt kê cho ngôn ngữ SQL trong Excel. Còn ADO với Excel thuần túy không thể làm được.

Đây là video test tính anwng tổng hợp và liệt kê của A-Tools

https://www.facebook.com/video.php?v=10216533643028863

 

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

Nếu là CSDL Excel thì phải đợi Add-in A-Tools 2019 bổ sung tính năng group và liệt kê cho ngôn ngữ SQL trong Excel. Còn ADO với Excel thuần túy không thể làm được.

Đây là video test tính anwng tổng hợp và liệt kê của A-Tools

https://www.facebook.com/video.php?v=10216533643028863

Hoàn toàn có thể dùng ADO được chứ anh.

 

[Nguyễn Duy Tuân]

Hoàn toàn có thể dùng ADO được chứ anh.

ADO chỉ là phương tiện gửi ngôn ngữ SQL cho hệ quản trị CSDL xử lý, xử lý đc ở mức độ nào thì lại do loại CSDL đó. Nếu ADO select với dữ liệu EXCEL thì không đc. Với SQL Server thì có thể? MySQL ok.

 

[thuyyeu99]

Thử như sau nhé:

View attachment 207040

no báo lỗi Anh

 

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

ADO chỉ là phương tiện gửi ngôn ngữ SQL cho hệ quản trị CSDL xử lý, xử lý đc ở mức độ nào thì lại do loại CSDL đó. Nếu ADO select với dữ liệu EXCEL thì không đc. Với SQL Server thì có thể? MySQL ok.

Với CSDL là SQLServer thì ok anh

@thuyyeu99 : CSDL là SQLServer nhé bạn.

 

[Nguyễn Duy Tuân]

Với CSDL là SQLServer thì ok anh

@thuyyeu99 : CSDL là SQLServer nhé bạn.

ĐÚng rồi, ý mình là vậy. Khả năng chạy được SQL đến mức độ nào là quyết định bởi loại CSDL. ADO chỉ là phương tiện truyền dẫn.

 

[thuyyeu99]

ĐÚng rồi, ý mình là vậy. Khả năng chạy được SQL đến mức độ nào là quyết định bởi loại CSDL. ADO chỉ là phương tiện truyền dẫn.

hic potay dot trước em cung dung Case When tuong là nó thay cho iif ma có biết nó là của SQL sever đâu, Cái này mình viết hàm đưa vô câu SQL được không anh ?

 

[Nguyễn Duy Tuân]

Thử như sau nhé:

View attachment 207040

SQL Server không có hàm chuyên làm kiểu liệt kê nhỉ? Nếu dùng SELECT trong SELECT tốc độ chạy sẽ rất chậm! Nếu như kết quả SELECT mẹ lấy ra 1000 dòng thì SELECT con phải chay 1000 lần => Chậm. Giải thuật CSDL là chỉ chạy 1 lần thì tốc độ mới nhanh như group_concat.

Bài đã được tự động gộp: 5/11/18

hic potay dot trước em cung dung Case When tuong là nó thay cho iif ma có biết nó là của SQL sever đâu, Cái này mình viết hàm đưa vô câu SQL được không anh ?

Nếu CSDL Access, SQL Server, MySQL,... thì viế đươc hàm. Còn Nếu là Excel thì phải dùng với Add-in A-Tools cho phép viết hàm VBA lồng vào.

 

[Nguyễn Duy Tuân]

SQL Server không có hàm chuyên làm kiểu liệt kê nhỉ? Nếu dùng SELECT trong SELECT tốc độ chạy sẽ rất chậm! Nếu như kết quả SELECT mẹ lấy ra 1000 dòng thì SELECT con phải chay 1000 lần => Chậm. Giải thuật CSDL là chỉ chạy 1 lần thì tốc độ mới nhanh như group_concat.

Bài đã được tự động gộp: 5/11/18

Nếu CSDL Access, SQL Server, MySQL,... thì viế đươc hàm. Còn Nếu là Excel thì phải dùng với Add-in A-Tools cho phép viết hàm VBA lồng vào.

À, phải nói rõ thêm là là nếu CSDL là Access thì phải viết hàm trong Microsoft Access nhé, chứ không phải từ Delphi .

 

[thuyyeu99]

À, phải nói rõ thêm là là nếu CSDL là Access thì phải viết hàm trong Microsoft Access nhé, chứ không phải từ Delphi .

Còn nếu mình đếm không trùng bên Fiels Dợt của Table 2 được không ah

Cái điệu này chắc phải Connect rồi xử lý trên Recordset rồi mới đỗ dữ liệu vào List quá. Cám ơn các anh rất nhiều

 

[Nguyễn Duy Tuân]

Còn nếu mình đếm không trùng bên Fiels Dợt của Table 2 được không ah

Cái điệu này chắc phải Connect rồi xử lý trên Recordset rồi mới đỗ dữ liệu vào List quá. Cám ơn các anh rất nhiều

Nếu csdl là MySQL thì được nhé. Câu lệnh khi đó là
SELECT f1, sum(f2), count(distinct f3) FROM ...

 

[thuyyeu99]

Nếu csdl là MySQL thì được nhé. Câu lệnh khi đó là
SELECT f1, sum(f2), count(distinct f3) FROM ...

Cái này em làm trong Access hichic
(tạm thời xử lý tình huống là Max(dot))

Chắc em chuyển qua SQL Sever quá

 

[Kiều Mạnh]

To @thuyyeu99

Bạn có cái list Hàm dạng như sau cho Mình xin với ... hay trang nào có List đó cũng được ... Mình mới tập code Delphi nhiều khi kẹt mấy cái hàm xử lý đó lắm

QuotedStr
IntToStr

Mình có tìm thấy File list Function mà sao Tìm cái Hàm QuotedStr ko thấy có là sao ta ?!

 

[thuyyeu99]

To @thuyyeu99

Bạn có cái list Hàm dạng như sau cho Mình xin với ... hay trang nào có List đó cũng được ... Mình mới tập code Delphi nhiều khi kẹt mấy cái hàm xử lý đó lắm

QuotedStr
IntToStr

Mình có tìm thấy File list Function mà sao Tìm cái Hàm QuotedStr ko thấy có là sao ta ?!

http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.SysUtils.QuotedStr
http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.SysUtils.IntToStr

 

[Kiều Mạnh]

http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.SysUtils.QuotedStr
http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.SysUtils.IntToStr

ý mạnh hỏi nhiều ấy 1 list toàn bộ hàm mà Delphi có ấy
Như file mạnh úp đó cái Hàm bạn cho sao ko thấy

 

[thuyyeu99]

ý mạnh hỏi nhiều ấy 1 list toàn bộ hàm mà Delphi có ấy
Như file mạnh úp đó cái Hàm bạn cho sao ko thấy

Cái này thì mình hổng biết, mạnh dowload từ đâu có thể người ta biên soạn còn thiếu hoặc........, còn theo mình mình sài cái gì vọ trang đó kiếm là chắc ăn