• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Kết nôi Excel với VB6.0 bằng ADO

Các bài viết hướng dẫn, giúp các bạn hiểu và tiếp cận với Visual Basic nhanh hơn
0035
Bài viết: 3
Ngày tham gia: T.Hai 21/11/2011 4:21 pm

Kết nôi Excel với VB6.0 bằng ADO

Gửi bàigửi bởi 0035 » T.Hai 21/11/2011 4:38 pm


Dim cn as ADODB.connection
With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\book1.xls;" & "Extended Properties=Excel 8.0;"
.CursorLocation = adUseClient
.Open
End With
End Sub
Các bạn cho mình hỏi tại sao mình viết code thế mà lại không thể kết nối được với Excel vậy?
Mình mới tìm hiểu về VB6.0 nên cũng còn nhiều thắc mắc lắm.Mong các bạn giúp mình với.Cảm ơn các bạn nhiều.



boy1234
Guru
Guru
Bài viết: 448
Ngày tham gia: T.Hai 13/10/2008 3:12 pm
Đến từ: Dĩ An - Bình Dương
Been thanked: 32 time

Re: Kết nôi Excel với VB6.0 bằng ADO

Gửi bàigửi bởi boy1234 » T.Hai 21/11/2011 6:54 pm

Dim cn as ADODB.connection

=> Dim cn as New ADODB.connection
Dạo này nghiện honda SS50

0035
Bài viết: 3
Ngày tham gia: T.Hai 21/11/2011 4:21 pm

Re: Kết nôi Excel với VB6.0 bằng ADO

Gửi bàigửi bởi 0035 » T.Hai 21/11/2011 9:33 pm

hi,mình đã sửa lại rồi mà vẫn chưa được bạn ah
public cn as new ADODB.connection
Private Sub Form_Load()
With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "c:\book1.xls;Extended Properties=Excel 8.0"
.CursorLocation = adUseClient
.Open
End With

End Sub

boy1234
Guru
Guru
Bài viết: 448
Ngày tham gia: T.Hai 13/10/2008 3:12 pm
Đến từ: Dĩ An - Bình Dương
Been thanked: 32 time

Re: Kết nôi Excel với VB6.0 bằng ADO

Gửi bàigửi bởi boy1234 » T.Ba 22/11/2011 6:09 pm

Không biết bạn add References chưa. Nếu không thể kết được bạn nên Up Project lên để mọi người hướng dẫn. :D
Tập tin đính kèm
Untitled.png
Untitled.png (40.43 KiB) Đã xem 4629 lần
Dạo này nghiện honda SS50

0035
Bài viết: 3
Ngày tham gia: T.Hai 21/11/2011 4:21 pm

Re: Kết nôi Excel với VB6.0 bằng ADO

Gửi bàigửi bởi 0035 » T.Ba 22/11/2011 6:38 pm

Hi,mình đã refrences rồi bạn à,mình cũng có xem mấy ví dụ và thử ví dụ đó cũng không kết nối được,mình cũng không biết lý do ở đâu nữa,chán thật.

thanhbinhkgg
Thành viên chính thức
Thành viên chính thức
Bài viết: 23
Ngày tham gia: T.Ba 01/07/2008 10:07 pm
Has thanked: 1 time
Been thanked: 5 time

Re: Kết nôi Excel với VB6.0 bằng ADO

Gửi bàigửi bởi thanhbinhkgg » T.Bảy 24/03/2012 10:36 am

Bạn phải gửi lỗi lên mọi người mới giúp được.

Tuy nhiên, nếu bạn không kết nối được là do máy bạn bị lỗi: Microsoft.Jet.OLEDB.4.0

Thử làm theo cách sau:
1. Vào thư mục C:\Program Files\Common Files\System\Ole DB.
2. Tại dấu nhắc lệnh, gõ lệnh sau đây: regsvr32 sqloledb.dll

Hoặc: lên gôgle tìm và tải về
mdac_repair.exe
jet40repl.exe

để cài lại rồi test


Quay về “[VB] Bài viết hướng dẫn”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách