Получение данных из dbf. Кусок кода рабочий.
Через Microsoft OLE DB Provider for Visual FoxPro 9.0.
Конечная цель получить представление адреса (район, село) распарсив код окато.
Если КодАдреса2="92" тогда
StringConnection2 = "Provider=vfpoledb.1;Data Source=D:\Vpolvzr\ws\data\;
|Mode=Read;
|Extended Properties="";
|Exclusive = No;
|User ID="";
|Password="";
|Mask Password=False;
|Collating Sequence=RUSSIAN;
|DSN=""";
Com2= New COMОбъект("ADODB.Connection");
Query = "Select NAME from s_okator.dbf where s_okator.KOD1='201'";
//Query = "Select NAME from s_okator.dbf where s_okator.KOD1=@KodAdresa3";
//Com2.Parameters("KodAdresa3",КодАдреса3);
Com2.ConnectionString = StringConnection2;
Try
Com2.Open();
Except
Message("It was not possible to be connected : "+ErrorDescription());
Return;
EndTry;
record2 = New COMОбъект("ADODB.Recordset");
Try
record2.Open(Query, Com2);
Message("It was not possible to execute inquiry : "+ErrorDescription());
Return;
EndTry;
While record2.EOF() = 0 do
адрес=СокрЛП(record2.fields("NAME").value);
record2.MoveNext();
EndDo;
Com2.Close();