[sdv79]

Загрузите ADOLisp252

Код:

[Выделить все]

 
(setq ConnectionObject
       (ADOLISP_ConnectToDB
    "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d:\\Specification_db.mdb;Persist Security Info=False" "" ""))


;|
Положите файл БД в корень диска D
----------------------------------------------------
 Программа поиска в БД типа оборудования(значение 0 атрибута)
 Автор:        Дмитрий Сологубов (Павел Сухов)
 Телефон:   
 E-mail:   
 Final 00.00.00
 [rev.1 от 04.10.11]
 Процедура_обращения    (c:Search_intro_DB "switches" "switches_type" "В_1Кл_ОУ_IP20_А1/10-003")
 Выдаст                          ("Выключатель однополюсный для открытой установки,\r\nодноклавишный IP20, 10 А, 250 В" "А1/10-003 (Россия)\r\nсерия \"Элеконти\"" "ЗАО \"Электромонтаж\"\r\nтел.: (495) 795-37-75" "шт." nil 5 nil)

 Выдаст            #<VLA-OBJECT _Connection 0bbe69b0>
 ----------------------------------------------------
|;
(defun c:Search_intro_DB    ; выходные данные данные по блоку из БД
       (
    table_name        ; -1- имя табл. в БД (корень) "switches"
    column_name        ; -2- имя столбца для поиска "switches_type"
    bl_name_by_count     ; имя блока "В_1Кл_ОУ_IP20_А1/10-003" (точно есть в БД)
        /
       )         
 (setq SQL_search (strcat "SELECT " "*" " FROM " table_name " WHERE " column_name "=" "'" bl_name_by_count "'")) ; выдаёт строку с этим светильником
;| примеры обращения к БД
  (setq SQL_search (strcat "SELECT " "block_counted_id" " FROM " "specification_created"))
  (setq SQL_search (strcat "SELECT " "qfs_type" " FROM " "qfs"))
|;
 (setq bl_for_write_down (cdr(cdr(cadr(ADOLISP_DoSQL ConnectionObject SQL_search))))); отбрасываем от выданного списка ненужные элементы
  ;|
  bl_for_write_down - переменная, готовая для записи в результирующую спецификацию в БД имеет вид:
  ("Светильник потолочный на две люминесцентные лампы\r\n18 Вт, IP20" "OPL/S 218" "ООО\"Световые технологии\"\r\nтел. (495) 995-55-95\r\n\r\n\r\n18 Вт, IP20." "шт." nil 4)
  |;
); /defun c:Search_intro_DB


(c:Search_intro_DB "switches" "switches_type" "В_1Кл_ОУ_IP20_А1/10-003")

[hwd]

Сообщение от sdv79 Положите файл БД в корень диска D

Хреновое начало.

[sdv79]

УГУ, интерес в том, что коннектится на х64
))
Я именно это хотел донести.