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