Доступ к Dbf 1c из Lotus

Тема в разделе "OLE технологии", создана пользователем root, 25 окт 2007.

  1. root

    root Гость

    Как получить данные из 1С(dbf) Не устанавливая 1С.
    1 Скачиваем Microsoft OLE DB Provider for Visual FoxPro с сайта производителя
    2. В 1Сv7.DD ищим нужный нам DBF файл
    Код (Text):
    #==TABLE no 91   : Справочник Сотрудники
    # Name  |Descr                       |Type[A/S/U]|DBTableName|ReUsable
    T=SC925]  |Справочник Сотрудники         |A      |SC925  |1      
    #-----Fields-------
    # Name    |Descr              |Type|Length|Precision
    F=ID          |ID object          |C  |9     |0    
    F=PARENTID  |ID parent obj    |C  |9     |0    
    F=CODE    |object code      |C  |8   |0    
    F=DESCR   |object description |C  |40   |0     
    и т.д
    3. в LotusScript пишим
    Код (Text):
    Dim r_recordset As Variant
    Dim sPath_to_dir As String
    Dim sDbfForSql As String
    Set conn=CreateObject("ADODB.Connection")
    sPath_to_dir ="C:\1C" 'Каталог БД
    sDbfForSql="sc925" ' "это файл можно и с расширением. В моем случае справочник сотрудники взятый из 1Cv7.DD файла
    conn.Open |Provider=VFPOLEDB.1;Data Source=|+sPath_to_dir+|;Extended Properties=""|
    Set r_recordset=CreateObject("ADODB.recordset")
    sql="select * from "+ sDbfForSql
    r_recordset.Open  sql , conn    
    While Not( r_recordset.eof)
    Msgbox (r_recordset("DESCR").value)
    r_recordset.movenext
    Wend
    3. И усе.
    P.S Никакой головной боли с HASP защитой и Юстициями. Все легально.
     
Загрузка...

Поделиться этой страницей