Mình có đoạn code này
Đang bị phát sinh lỗi, khi copy ra excel nó chỉ copy dữ liệu đầy đủ với row đầu tiên tương ứng với ID, G_chen,G_user, còn các rows sau đó là chỉ copy được ID còn G_chen, G_user không copy, anh chị ai biết lỗi fix giúp mình với. (Có đính kèm hình kết quả paste vô excel và query từ localhost
Mã:
Sub Check_info123()
Dim objAdoConn As Object, objAdoRcSet As Object
Dim strAdoConn As String, strSQL1 As String, input_name As String
'check_ngay = (select max(d_dl) from data_qlhui)
input_name = Worksheets("Checkinfo").Range("B1")
Application.ScreenUpdating = False
Set objAdoConn = CreateObject("ADODB.Connection")
Set objAdoRcSet = CreateObject("ADODB.RecordSet")
strAdoConn = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=data_hui;" & _
"User=root;Password=root;Option=3;"
objAdoConn.Open strAdoConn
With objAdoRcSet
strSQL1 = "SELECT * FROM `data_qlhui` WHERE user ='" & input_name & " ' " & _
" Order BY chen"
.Open objAdoConn.Execute(strSQL1)
If .EOF Then 'neu khong ton tai
MsgBoxUni UNC("ko co")
Else
Dim i As Long
For i = 0 To objAdoRcSet.Fields.Count - 1
Worksheets("Checkinfo").Cells(6, i + 1).Value = objAdoRcSet.Fields(i).Name
Next i
Worksheets("Checkinfo").Range("A4").CopyFromRecordset objAdoRcSet
Worksheets("Checkinfo").Columns("A:S").AutoFit
End If
objAdoRcSet.Close
End With
objAdoConn.Close
Set objAdoRcSet = Nothing
Set objAdoConn = Nothing
Application.ScreenUpdating = True
End Sub
Đang bị phát sinh lỗi, khi copy ra excel nó chỉ copy dữ liệu đầy đủ với row đầu tiên tương ứng với ID, G_chen,G_user, còn các rows sau đó là chỉ copy được ID còn G_chen, G_user không copy, anh chị ai biết lỗi fix giúp mình với. (Có đính kèm hình kết quả paste vô excel và query từ localhost