4
shuhard
06.02.09
✎
12:39
|
(1) + MyCon = Новый COMОбъект ("ADODB.Connection"); MyCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\111.xls;Extended Properties=""Excel 8.0;HDR=No;IMEX=1"""); MyRst = Новый COMОбъект ("ADODB.Recordset"); MyStr = "select * from [Лист1$]"; MyRst.Open (MyStr, MyCon, 2, 3);//adOpenDynamic, adLockOptimistic
|
|