Базы данных

Вопрос

Как считать данные из файлов dbf с помощью ADO?

Ответ

Код помещает данные из таблицы d:\region.dbf в Recordset rs.

Option Explicit
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click()
   Dim strSql As String
   cnn.Open "Driver={Microsoft Visual FoxPro Driver};" & _
     "SourceType=DBF;" & _
   "SourceDB= d:\a;" & _
       "Exclusive=Yes;"
   strSql = "select * from region"
   rs.Open strSql, cnn, adOpenDynamic, adLockBatchOptimistic, adCmdText
End Sub

Alexey_Naichuk