Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
thay xemdum e sai cho nao nha
.png)
3 câu trả lời
14 lượt xem
vỗ tay
thầy xem giup dùm , e tra duong dân đúng mà nó cú bao lỗi QuerySQL, lỗi trên đó thầy
vỗ tay
Sub laydulieu()
Dim Querys As String, dc As Long
dc = Timdongcuoi(Sheet4, "A")
If dc >= 2 Then Sheet4.Range("A2:K" & dc).ClearContents
Querys = "select * from data"
Dim arr As Variant
arr = QuerySQL(Querys, "", True)
If IsArray(arr) = False Then
Sheet4.Range("A3").Value = arr
Else
Sheet4.Range("A3").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End If
End Sub
thầy xem code nay dum nó báo loi QuerySQL
vỗ tay
Ý mình là cả file để gitiho check nhé.
vỗ tay
Câu hỏi liên quan
Top
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông