ĐẶNG MINH Ý
ĐẶNG MINH Ý
Thảo luận 22 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 156 lượt xem

Mình muốn file tài liệu Nowthing như sao tìm hoài không thấy chỗ downlo vậy

Mình muốn file tài liệu Nowthing như thầy sao tìm hoài không thấy chỗ download vậy



Thảo luận 22 câu trả lời
Lượt xem 156 lượt xem
Vỗ tay vỗ tay
ĐẶNG MINH Ý 10:01 - Jan 08, 2022

Chào bạn mọi tài liệu đều nằm trong phần tài liệu đính kèm bạn nhé.

https://gitiho.com/course/default_stu...

Vỗ tay vỗ tay
ĐẶNG MINH Ý 18:01 - Jan 25, 2022

cho mình hỏi code này nó bị lỗi ở đâu ạ

Sub UpdateDulieuTienDoVuViec()

    Dim cnn As ADODB.Connection

    Dim lrs As ADODB.Connection

    Dim SQLQuery As String

    Set cnn = New ADODB.Connection

    Set lrs = New ADODB.Connection

    cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & ThisWorkbook.FullName & ";Extended Properties=""Excel 8.0;HDR=YES"";"

    cnn.Open

    SQLQuery = "Select [Ten Vu Viec], [Nguoi Cung Cap], [Ngay Nhan], [Ngay Xac Minh], [Dia Chi] from sheet7"

    lrs.Open SQLQuery, cnn "Loi o phan nay"

    Sheet9.Range("B7").CopyFromRecordset lrs

    lrs.Close

    cnn.Close

End Sub

Vỗ tay vỗ tay
ĐẶNG MINH Ý 20:01 - Jan 25, 2022

Bạn có đặt tên sheet 7 không nhỉ?

Vỗ tay vỗ tay
ĐẶNG MINH Ý 20:01 - Jan 25, 2022

Dạ có ạ "KetThucVuViec"

Vỗ tay vỗ tay
ĐẶNG MINH Ý 20:01 - Jan 25, 2022
Nhưng mà sao vẫn không được ạ cứ báo lỗi chỗ đó lrs.Open SQLQuery, cnn
Vỗ tay vỗ tay
ĐẶNG MINH Ý 21:01 - Jan 25, 2022

Thầy giải đáp giúp em ạ

Vỗ tay vỗ tay
ĐẶNG MINH Ý 09:01 - Jan 26, 2022

Chào bạn bạn thử như sau nhé 

Sub UpdateDulieuTienDoVuViec()

    Dim SQLQuery  As String, ConnectionString As String

    Dim cnn As ADODB.Connection

    Dim lrs  As ADODB.Recordset

    Set cnn = New ADODB.Connection

    Set lrs = New ADODB.Recordset

        If Val(Application.Version) < 12 Then

            cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _

                              & "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=0"";"

        Else

            cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" _

                              & "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=0"";"

        End If

        cnn.Open

    SQLQuery  = "Select * from Ketthucvuviec"

   //hoac nhu sau  SQLQuery  = "Select * from [Tensheet1$]"

    lrs.Open SQLQuery, cnn 

    Sheet9.Range("B7").CopyFromRecordset lrs

    lrs.Close

    cnn.Close

End Sub

Vỗ tay vỗ tay
ĐẶNG MINH Ý 10:01 - Jan 26, 2022

Vẫn còn lỗi ạ

Vỗ tay vỗ tay
ĐẶNG MINH Ý 10:01 - Jan 26, 2022
Mong được giải đáp
Vỗ tay vỗ tay
ĐẶNG MINH Ý 10:01 - Jan 26, 2022
Lỗi chỗ lrs.Open SQLQuery, cnn
Vỗ tay vỗ tay
ĐẶNG MINH Ý 10:01 - Jan 26, 2022
code đã chạy được, tuy nhiên lấy dữ liệu qua chưa chính xác, cụ thể như sau:
Vỗ tay vỗ tay
ĐẶNG MINH Ý 10:01 - Jan 26, 2022
code đã chạy được, tuy nhiên lấy dữ liệu qua chưa chính xác, cụ thể như sau:
Vỗ tay vỗ tay
ĐẶNG MINH Ý 10:01 - Jan 26, 2022
dữ liệu ở sheet nguồn là như vậy
Vỗ tay vỗ tay
ĐẶNG MINH Ý 10:01 - Jan 26, 2022

Còn đây là Code chạy thành công

Sub UpdateDulieuTienDoVuViec()


    Dim SQLQuery  As String, ConnectionString As String

    Dim cnn As ADODB.Connection

    Dim lrs  As ADODB.Recordset

    Set cnn = New ADODB.Connection

    Set lrs = New ADODB.Recordset

        If Val(Application.Version) < 12 Then

    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=0"";"

        Else

    cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=0"";"

    End If

    cnn.Open

    'SQLQuery = "Select * from sheet7"

   SQLQuery = "Select * from [KetThucVuViec$]"

    lrs.Open SQLQuery, cnn

    Sheet9.Range("B7").CopyFromRecordset lrs

    lrs.Close

    cnn.Close

End Sub


Vỗ tay vỗ tay
ĐẶNG MINH Ý 11:01 - Jan 26, 2022

Chào bạn bạn đẩy file lên nhé

https://gitiho.com/blog/huong-dan-upl... 

Vỗ tay vỗ tay
ĐẶNG MINH Ý 11:01 - Jan 26, 2022
Có cách nào không ạ. Không cần đẩy file lên không ạ
Vỗ tay vỗ tay
ĐẶNG MINH Ý 11:01 - Jan 26, 2022

 SQLQuery = "Select * from [KetThucVuViec$ B6:K1000]"

bạn thay câu query sau và thử lại nhé.

Vỗ tay vỗ tay
ĐẶNG MINH Ý 08:01 - Jan 28, 2022

Vẫn còn lỗi ạ

Vỗ tay vỗ tay
ĐẶNG MINH Ý 09:01 - Jan 28, 2022
Bạn có ultraview không nhỉ?
Vỗ tay vỗ tay
ĐẶNG MINH Ý 09:01 - Jan 28, 2022

Dạ Không ạ

Vỗ tay vỗ tay
ĐẶNG MINH Ý 09:01 - Jan 28, 2022

Bạn tải phần mềm đó về rồi mình vào kiểm tra nhé.

Vỗ tay vỗ tay
ĐẶNG MINH Ý 09:01 - Jan 28, 2022
Câu hỏi liên quan
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
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