chuyên ra tôi đang ứng dụng trích xuất dữ liệu và query là lập trình như

Xin chào chuyên ra tôi đang ứng dụng trích xuất dữ liệu và query là lập trình như sau: Sub trichxuat()

Dim QueryS As String, dc As Long

dc = Timdongcuoi(Sheet7, "AA")

If (dc >= 2) Then Sheet7.Range("Z4:AN4" & dc).ClearContents

QueryS = "select datahs.Bien_Hieu, datahs.Ho_va_ten,datahs.Ngay_sinh,datahs.DC_Thuong_tru, datahs.XaPhuong_Thuong_tru,datahs.Quan_Thuong_tru,datahs.ThanhPho_Thuong_tru,datahs.DiaDiem_KD,datahs.Xa_Phuong_KD,datahs.Quan_Huyen_KD,datahs.Tinh_TP_KD,datahs.Nganh_nghe_KD,datahs.Hien_Trang_HS,datahs.Ngay_Ket_Thuc_HS,datahs.ChucVu " & _

"FROM datahs " & _

"WHERE datahs.Ngay_Ket_Thuc_HS <> """""

Dim Arr As Variant

Arr = QuerySQL(QueryS, ThisWorkbook.FullName, True)

If IsArray(Arr) = False Then

Sheet7.Range("Z4").Value = Arr

Else

Sheet7.Range("Z4").Resize(UBound(Arr, 1), UBound(Arr, 2)) = Arr

End If

End Sub

Câu lệnh đã chạy thành công với kết quả khác rỗng của datahs.Ngay_Ket_Thuc_HS nhưng tôi gặp 1 vấn đề khó khăn là khi muôn lấy toàn bộ dữ liệu bằng rỗng thì lại không có dữ liệu. vậy tôi cần phải sửa câu lệnh như thế nào để có thể lấy toàn bộ dữ liệu "Rỗng" trong datahs.Ngay_Ket_Thuc_HS

3 câu trả lời

86 lượt xem

vỗ tay

Nguyễn Văn Thành 15:06 - Jun 11, 2022

bạn bỏ phần where đi nhé. phần datahs.Ngay_Ket_Thuc_HS nếu rỗng có dữ liệu ở cột khác không bạn

vỗ tay

Nguyễn Văn Thành 11:06 - Jun 12, 2022

nếu bỏ where phần đó đi thì sẽ lấy toan bộ dữ liệu cần query . tôi muốn lấy dữ liệu với điều kiện khi datahs.Ngay_Ket_Thuc_HS khi rỗng hoặc khác rỗng. trong bảng cột datahs.Xa_Phuong_KD không có giá trị rỗng

vỗ tay

Nguyễn Văn Thành 18:06 - Jun 12, 2022

Bạn gửi file lên nhé

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

chuyên ra tôi đang ứng dụng trích xuất dữ liệu và query là lập trình như

Câu hỏi liên quan