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
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é.
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
Bạn có đặt tên sheet 7 không nhỉ?
Dạ có ạ "KetThucVuViec"
Thầy giải đáp giúp em ạ
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ẫn còn lỗi ạ
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
Chào bạn bạn đẩy file lên nhé
SQLQuery = "Select * from [KetThucVuViec$ B6:K1000]"
bạn thay câu query sau và thử lại nhé.
Vẫn còn lỗi ạ
Dạ Không ạ
Bạn tải phần mềm đó về rồi mình vào kiểm tra nhé.