Hướng dẫn kết nối ADO và file *.DBF của VS Foxpro. (2 người xem)

[sealand]

Từ VBA trên Excel, mình đã cố tìm cách dùng ADODB kết nối với 1 file *.DBF trong 1 database *.DBC của Visual Foxpro nhưng đều bị lỗi.
Mọi người hướng dẫn mình thực hiện với. Nếu có ví dụ cụ thể càng tốt.
Mình muốn dùng ADO để rút dữ liệu, sử lý dữ liệu trên file *.DBF. Chức năng Export dữ liệu bị hạn chế bản ghi không đáp ứng được. Công việc chính mình cần là trích rút dữ liệu ra file Excel để sử lý sau đó update trở lại Mình cũng đã đọc và làm theo file ADO toàn tập của anh Duyệt nhưng không biết sai sót ở đâu mà không có kết quả.

 

[Nguyễn Duy Tuân]

Từ VBA trên Excel, mình đã cố tìm cách dùng ADODB kết nối với 1 file *.DBF trong 1 database *.DBC của Visual Foxpro nhưng đều bị lỗi.
Mọi người hướng dẫn mình thực hiện với. Nếu có ví dụ cụ thể càng tốt.
Mình muốn dùng ADO để rút dữ liệu, sử lý dữ liệu trên file *.DBF. Chức năng Export dữ liệu bị hạn chế bản ghi không đáp ứng được. Công việc chính mình cần là trích rút dữ liệu ra file Excel để sử lý sau đó update trở lại Mình cũng đã đọc và làm theo file ADO toàn tập của anh Duyệt nhưng không biết sai sót ở đâu mà không có kết quả.

Anh download và cài VFP ODBC Driver xem thế nào.

 

[sealand]

Anh download và cài VFP ODBC Driver xem thế nào.

Không được anh Tuân à. Sealand đã cài file VFPODBC.msi rồi. Code của Sealand như sau:

Sub NoiFox1()
Dim Cn As ADODB.Connection, Rec As ADODB.Recordset
Set Cn = New Connection
 Set Rec = New Recordset
Cn.Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;" & _
        "SourceDB=" & ThisWorkbook.Path & "\2010A\KTV.DBC;Exclusive=No"
Rec.Open ThisWorkbook.Path & "\2010A\Ct.DBF", Cn
MsgBox Rec.RecordCount
Rec.Close
 Set Rec = Nothing
Cn.Close
Set Cn = Nothing
End Sub

Khi chạy nó báo lỗi như sau: