Báo lỗi luôn tại dòng khai báo : Dim cn as ADODB.connection (2 người xem)

[maytinhvp01]

Mình khôg biết phải thiết lập gì không nhưng chưa lần nào làm được một cái kết nối bằng ADO vì khi chạy báo lỗi luôn tại dòng khai báo

Private Sub Form_Load()
Dim [COLOR=#ff0000]cn As ADODB.Connection[/COLOR]
Dim rs As ADODB.Recordset
    Set cn = New ADODB.Connection
    cn.Provider = "Microsoft.ACE.OLEDB.12.0"
    cn.ConnectionString = "Data Source= " & App.Path & "/Book1.xls; Extended Properties=Excel 12.0;"
    cn.CursorLocation = adUseClient
    cn.Open
End Sub

Xin chỉ dùm????

 

[ndu96081631]

Mình khôg biết phải thiết lập gì không nhưng chưa lần nào làm được một cái kết nối bằng ADO vì khi chạy báo lỗi luôn tại dòng khai báo

Private Sub Form_Load()
Dim [COLOR=#ff0000]cn As ADODB.Connection[/COLOR]
Dim [COLOR=#ff0000]rs As ADODB.Recordset
    Set cn = New ADODB.Connection[/COLOR]
    cn.Provider = "Microsoft.ACE.OLEDB.12.0"
    cn.ConnectionString = "Data Source= " & App.Path & "/Book1.xls; Extended Properties=Excel 12.0;"
    cn.CursorLocation = [COLOR=#ff0000]adUseClient[/COLOR]
    cn.Open
End Sub

Xin chỉ dùm????

Lỗi phải rồi
Nếu khai báo kiểu đó thì phải Reference tới "Microsoft ActiveX Data Object..."
Bời vậy, để chắc ăn xài trên mọi máy tính, người ta làm khác:

Private Sub Form_Load()
  Dim cn As [COLOR=#ff0000]Object[/COLOR]
  Dim rs As [COLOR=#ff0000]Object[/COLOR]
  [COLOR=#ff0000]Set cn = CreateObject("ADODB.Connection")[/COLOR]
  [COLOR=#ff0000]Set rs = CreateObject("ADODB.Recordset")[/COLOR]
  cn.Provider = "Microsoft.ACE.OLEDB.12.0"
  cn.ConnectionString = "Data Source= " & App.Path & "/Book1.xlsm; Extended Properties=Excel 12.0;"
  cn.CursorLocation = [COLOR=#ff0000]3[/COLOR] '(thay adUseClient bang so 3)
  cn.Open
End Sub

Tôi đã làm cho bạn đầy đủ ở đây rồi:
http://www.giaiphapexcel.com/forum/...-sách-từ-excel&p=533067&highlight=#post533067
Thì cứ "bắt chước" vậy mà khai báo chứ. Hỏi hoài vậy trời?
Tóm lại: Đường link ở trên là code dạng tổng quát rồi đấy! Cứ thế mà xài (đừng có chế bậy bạ)