Đố vui về ADO, DAO.

Liên hệ QC
Anh lưu ý là những câu lệnh trên không hỗ trợ hết cho Excel nhé.


Xin lưu ý thêm: Có lần nói anh về cái chuỗi kết nối kiểu này nó sẽ không hỗ trợ kiểu UTF-8 nhé.
chính xác là nó đấy ... có điều code mẫu họ viết sao Úp y trang vậy ... sau này ai đó mò ngộ ra họ tìm + hỏi thì nó mới Vui
Học là thế ko lẻ cứ gắp lên xong ha ha ròi đút sao -0-0-0-
 
chính xác là nó đấy ... có điều code mẫu họ viết sao Úp y trang vậy ... sau này ai đó mò ngộ ra họ tìm + hỏi thì nó mới Vui
Học là thế ko lẻ cứ gắp lên xong ha ha ròi đút sao -0-0-0-
Người mới sẽ bị tẩu quả khi đọc vì thế nên chọn lọc, hoặc ghi chú rõ ràng hơn. Có quá nhiều thông tin chưa cần thiết.

Xét những câu lệnh anh liệt kê chỉ thỏa được yêu cầu đề bài là 50%, còn vụ đưa dữ liệu vào nếu như dùng câu lệnh mà anh liệt kê sẽ không thỏa yêu cầu đề bài. Vì nếu dùng câu lệnh này chắc chắn anh sẽ phải dùng vòng lặp.
 
Lần chỉnh sửa cuối:
Xét những câu lệnh anh liệt kê chỉ thỏa được yêu cầu đề bài là 50%, còn vụ đưa dữ liệu vào nếu như dùng câu lệnh mà anh liệt kê sẽ không thỏa yêu cầu đề bài. Vì nếu dùng câu lệnh này chắc chắn anh sẽ phải dùng vòng lặp.
Căng nhỉ ... tại đang bị U đầu hack não vì Delphi nên Mạnh tạm tới đó 50% còn 50% để lại cho Bạn khác vậy
 
Tiếp đến tôi có câu đố như sau:
Tôi có file rỗng A.xlsx

View attachment 241731

File B.xlsm chứa code, file này có dữ liệu như sau:

View attachment 241735

2 file này chung 1 thư mục. Hỏi làm sao ta không dùng vòng lặp mà có thể ghi toàn bộ dữ liệu từ Sheet1 của file B.xlsm, với 1 sheet mới có tên là DuLieuTu_Sheet1.

Kết quả file A.xlsx

View attachment 241737
Máy ngày rồi không thấy ai giải hết nhỉ.
 
Vụ này em làm hay nhỉ. Có dùng ADO không đó? Có dùng copy vô Notepad không?:)
Cái copy giá trị là toàn bộ ADO, không dùng copy vô Notepad ?
---- cái này dễ lắm khi nào không ra em đưa code lên chỉ dùng 1 Connect , nếu bẫy lỗi thì dùng thêm 1 cái connect nữa (copy cái này nhiều cách làm lắm)

Còn cái định dạng kia làm cho vui thôi hihi
 
Cái copy giá trị là toàn bộ ADO, không dùng copy vô Notepad ?
---- cái này dễ lắm khi nào không ra em đưa code lên chỉ dùng 1 Connect , nếu bẫy lỗi thì dùng thêm 1 cái connect nữa (copy cái này nhiều cách làm lắm)

Còn cái định dạng kia làm cho vui thôi hihi

Anh thì đơn giản chỉ dùng HDR=No là nó bê luôn cái dòng tiêu đề dán xuống sheet.
Cái hay là em lấy luôn công thức đó.
 
Anh thì đơn giản chỉ dùng HDR=No là nó bê luôn cái dòng tiêu đề dán xuống sheet.
Cái hay là em lấy luôn công thức đó.
Hihi các anh là trùm SQL rồi.
tới giờ em biết thì ADO không lấy được công thức anh, mà phải qua 1 số bước trung gian chuyển đổi mới lấy được định dạng và công thức (còn gán vào sheet thì khỏi cần ADO cũng được hihihihi)
 
Anh em cho mình hỏi cách để đếm được số lượng các giá trị trùng nhau trong ADO với. Mình dùng count(distinct [tên cột]) mà không được. Có phải là ADO chưa hỗ trợ chức năng này phải không và xin được chỉ giải pháp bằng ADO ạ
 
Lần chỉnh sửa cuối:
Anh em cho mình hỏi cách để đếm được số lượng các giá trị trùng nhau trong ADO với. Mình dùng count(distinct [tên cột]) mà không được. Có phải là ADO chưa hỗ trợ chức năng này phải không và xin được chỉ giải pháp bằng ADO ạ (Ngoài cách count từ 1 Subquery Select Distinct thì còn cách khác không)
Bạn dùng:

Mã:
SELECT TenCot, Count([TenCot]) AS TongSo FROM Table1 GROUP BY [TenCot]
 
Các member cho hỏi sao tôi sử dụng ADO của VBA Excel để import dữ liệu từ file .csv vào file xlsx thì bị lỗi font dữ liệu nhỉ? Ai biết chỉ cách khắc phục với
Bài đã được tự động gộp:

Các member cho hỏi sao tôi sử dụng ADO của VBA Excel để import dữ liệu từ file .csv vào file xlsx thì bị lỗi font dữ liệu nhỉ? Ai biết chỉ cách khắc phục với
 
Web KT
Back
Top Bottom