0
MaximSh
22.06.16
✎
16:01
|
Здравствуйте.
Как в запрос передать параметр KodAdresa3 из 1С?
Получение данных из 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();
|
|