Импортирование библиотеки типов ADO

(defun ru-ado-import-tlb (/ ado_clsid ado_dll_file_name)
  ;;(ru-ado-import-tlb)
;|
После импорта библиотеки типов станут доступными константы:
(setq ru-ado-const-adaddnew 16778240)
(setq ru-ado-const-adaffectall 3)
(setq ru-ado-const-adaffectallchapters 4)
(setq ru-ado-const-adaffectcurrent 1)
(setq ru-ado-const-adaffectgroup 2)
(setq ru-ado-const-adapproxposition 16384)
(setq ru-ado-const-adarray 8192)
(setq ru-ado-const-adasyncconnect 16)
(setq ru-ado-const-adasyncexecute 16)
(setq ru-ado-const-adasyncfetch 32)
(setq ru-ado-const-adasyncfetchnonblocking 64)
(setq ru-ado-const-adbigint 20)
(setq ru-ado-const-adbinary 128)
(setq ru-ado-const-adbookmark 8192)
(setq ru-ado-const-adbookmarkcurrent 0)
(setq ru-ado-const-adbookmarkfirst 1)
(setq ru-ado-const-adbookmarklast 2)
(setq ru-ado-const-adboolean 11)
(setq ru-ado-const-adbstr 8)
(setq ru-ado-const-adchapter 136)
(setq ru-ado-const-adchar 129)
(setq ru-ado-const-adclipstring 2)
(setq ru-ado-const-adcmdfile 256)
(setq ru-ado-const-adcmdstoredproc 4)
(setq ru-ado-const-adcmdtable 2)
(setq ru-ado-const-adcmdtabledirect 512)
(setq ru-ado-const-adcmdtext 1)
(setq ru-ado-const-adcmdunknown 8)
(setq ru-ado-const-adcmdunspecified -1)
(setq ru-ado-const-adcollectionrecord 1)
(setq ru-ado-const-adcompareequal 1)
(setq ru-ado-const-adcomparegreaterthan 2)
(setq ru-ado-const-adcomparelessthan 0)
(setq ru-ado-const-adcomparenotcomparable 4)
(setq ru-ado-const-adcomparenotequal 3)
(setq ru-ado-const-adconnectunspecified -1)
(setq ru-ado-const-adcopyallowemulation 4)
(setq ru-ado-const-adcopynonrecursive 2)
(setq ru-ado-const-adcopyoverwrite 1)
(setq ru-ado-const-adcopyunspecified -1)
(setq ru-ado-const-adcr 13)
(setq ru-ado-const-adcreatecollection 8192)
(setq ru-ado-const-adcreatenoncollection 0)
(setq ru-ado-const-adcreateoverwrite 67108864)
(setq ru-ado-const-adcreatestructdoc -2147483648)
(setq ru-ado-const-adcriteriaallcols 1)
(setq ru-ado-const-adcriteriakey 0)
(setq ru-ado-const-adcriteriatimestamp 3)
(setq ru-ado-const-adcriteriaupdcols 2)
(setq ru-ado-const-adcrlf -1)
(setq ru-ado-const-adcurrency 6)
(setq ru-ado-const-addate 7)
(setq ru-ado-const-addbdate 133)
(setq ru-ado-const-addbtime 134)
(setq ru-ado-const-addbtimestamp 135)
(setq ru-ado-const-addecimal 14)
(setq ru-ado-const-addefaultstream -1)
(setq ru-ado-const-addelayfetchfields 32768)
(setq ru-ado-const-addelayfetchstream 16384)
(setq ru-ado-const-addelete 16779264)
(setq ru-ado-const-addouble 5)
(setq ru-ado-const-adeditadd 2)
(setq ru-ado-const-adeditdelete 4)
(setq ru-ado-const-adeditinprogress 1)
(setq ru-ado-const-adeditnone 0)
(setq ru-ado-const-adempty 0)
(setq ru-ado-const-aderrboundtocommand 3707)
(setq ru-ado-const-aderrcannotcomplete 3732)
(setq ru-ado-const-aderrcantchangeconnection 3748)
(setq ru-ado-const-aderrcantchangeprovider 3220)
(setq ru-ado-const-aderrcantconvertvalue 3724)
(setq ru-ado-const-aderrcantcreate 3725)
(setq ru-ado-const-aderrcatalognotset 3747)
(setq ru-ado-const-aderrcolumnnotonthisrow 3726)
(setq ru-ado-const-aderrdataconversion 3421)
(setq ru-ado-const-aderrdataoverflow 3721)
(setq ru-ado-const-aderrdelresoutofscope 3738)
(setq ru-ado-const-aderrdenynotsupported 3750)
(setq ru-ado-const-aderrdenytypenotsupported 3751)
(setq ru-ado-const-aderrfeaturenotavailable 3251)
(setq ru-ado-const-aderrfieldsupdatefailed 3749)
(setq ru-ado-const-aderrillegaloperation 3219)
(setq ru-ado-const-aderrintegrityviolation 3719)
(setq ru-ado-const-aderrintransaction 3246)
(setq ru-ado-const-aderrinvalidargument 3001)
(setq ru-ado-const-aderrinvalidconnection 3709)
(setq ru-ado-const-aderrinvalidparaminfo 3708)
(setq ru-ado-const-aderrinvalidtransaction 3714)
(setq ru-ado-const-aderrinvalidurl 3729)
(setq ru-ado-const-aderritemnotfound 3265)
(setq ru-ado-const-aderrnocurrentrecord 3021)
(setq ru-ado-const-aderrnotexecuting 3715)
(setq ru-ado-const-aderrnotreentrant 3710)
(setq ru-ado-const-aderrobjectclosed 3704)
(setq ru-ado-const-aderrobjectincollection 3367)
(setq ru-ado-const-aderrobjectnotset 3420)
(setq ru-ado-const-aderrobjectopen 3705)
(setq ru-ado-const-aderropeningfile 3002)
(setq ru-ado-const-aderroperationcancelled 3712)
(setq ru-ado-const-aderror 10)
(setq ru-ado-const-aderroutofspace 3734)
(setq ru-ado-const-aderrpermissiondenied 3720)
(setq ru-ado-const-aderrpropconflicting 3742)
(setq ru-ado-const-aderrpropinvalidcolumn 3739)
(setq ru-ado-const-aderrpropinvalidoption 3740)
(setq ru-ado-const-aderrpropinvalidvalue 3741)
(setq ru-ado-const-aderrpropnotallsettable 3743)
(setq ru-ado-const-aderrpropnotset 3744)
(setq ru-ado-const-aderrpropnotsettable 3745)
(setq ru-ado-const-aderrpropnotsupported 3746)
(setq ru-ado-const-aderrproviderfailed 3000)
(setq ru-ado-const-aderrprovidernotfound 3706)
(setq ru-ado-const-aderrreadfile 3003)
(setq ru-ado-const-aderrresourceexists 3731)
(setq ru-ado-const-aderrresourcelocked 3730)
(setq ru-ado-const-aderrresourceoutofscope 3735)
(setq ru-ado-const-aderrschemaviolation 3722)
(setq ru-ado-const-aderrsignmismatch 3723)
(setq ru-ado-const-aderrstillconnecting 3713)
(setq ru-ado-const-aderrstillexecuting 3711)
(setq ru-ado-const-aderrtreepermissiondenied 3728)
(setq ru-ado-const-aderrunavailable 3736)
(setq ru-ado-const-aderrunsafeoperation 3716)
(setq ru-ado-const-aderrurldoesnotexist 3727)
(setq ru-ado-const-aderrurlnamedrowdoesnotexist 3737)
(setq ru-ado-const-aderrvolumenotfound 3733)
(setq ru-ado-const-aderrwritefile 3004)
(setq ru-ado-const-adexecutenorecords 128)
(setq ru-ado-const-adexecuterecord 2048)
(setq ru-ado-const-adexecutestream 1024)
(setq ru-ado-const-adfailifnotexists -1)
(setq ru-ado-const-adfieldalreadyexists 26)
(setq ru-ado-const-adfieldbadstatus 12)
(setq ru-ado-const-adfieldcannotcomplete 20)
(setq ru-ado-const-adfieldcannotdeletesource 23)
(setq ru-ado-const-adfieldcantconvertvalue 2)
(setq ru-ado-const-adfieldcantcreate 7)
(setq ru-ado-const-adfielddataoverflow 6)
(setq ru-ado-const-adfielddefault 13)
(setq ru-ado-const-adfielddoesnotexist 16)
(setq ru-ado-const-adfieldignore 15)
(setq ru-ado-const-adfieldintegrityviolation 10)
(setq ru-ado-const-adfieldinvalidurl 17)
(setq ru-ado-const-adfieldisnull 3)
(setq ru-ado-const-adfieldok 0)
(setq ru-ado-const-adfieldoutofspace 22)
(setq ru-ado-const-adfieldpendingchange 262144)
(setq ru-ado-const-adfieldpendingdelete 131072)
(setq ru-ado-const-adfieldpendinginsert 65536)
(setq ru-ado-const-adfieldpendingunknown 524288)
(setq ru-ado-const-adfieldpendingunknowndelete 1048576)
(setq ru-ado-const-adfieldpermissiondenied 9)
(setq ru-ado-const-adfieldreadonly 24)
(setq ru-ado-const-adfieldresourceexists 19)
(setq ru-ado-const-adfieldresourcelocked 18)
(setq ru-ado-const-adfieldresourceoutofscope 25)
(setq ru-ado-const-adfieldschemaviolation 11)
(setq ru-ado-const-adfieldsignmismatch 5)
(setq ru-ado-const-adfieldtruncated 4)
(setq ru-ado-const-adfieldunavailable 8)
(setq ru-ado-const-adfieldvolumenotfound 21)
(setq ru-ado-const-adfiletime 64)
(setq ru-ado-const-adfilteraffectedrecords 2)
(setq ru-ado-const-adfilterconflictingrecords 5)
(setq ru-ado-const-adfilterfetchedrecords 3)
(setq ru-ado-const-adfilternone 0)
(setq ru-ado-const-adfilterpendingrecords 1)
(setq ru-ado-const-adfilterpredicate 4)
(setq ru-ado-const-adfind 524288)
(setq ru-ado-const-adfldcachedeferred 4096)
(setq ru-ado-const-adfldfixed 16)
(setq ru-ado-const-adfldischapter 8192)
(setq ru-ado-const-adfldiscollection 262144)
(setq ru-ado-const-adfldisdefaultstream 131072)
(setq ru-ado-const-adfldisnullable 32)
(setq ru-ado-const-adfldisrowurl 65536)
(setq ru-ado-const-adfldkeycolumn 32768)
(setq ru-ado-const-adfldlong 128)
(setq ru-ado-const-adfldmaybenull 64)
(setq ru-ado-const-adfldmaydefer 2)
(setq ru-ado-const-adfldnegativescale 16384)
(setq ru-ado-const-adfldrowid 256)
(setq ru-ado-const-adfldrowversion 512)
(setq ru-ado-const-adfldunknownupdatable 8)
(setq ru-ado-const-adfldunspecified -1)
(setq ru-ado-const-adfldupdatable 4)
(setq ru-ado-const-adgetrowsrest -1)
(setq ru-ado-const-adguid 72)
(setq ru-ado-const-adholdrecords 256)
(setq ru-ado-const-adidispatch 9)
(setq ru-ado-const-adindex 8388608)
(setq ru-ado-const-adinteger 3)
(setq ru-ado-const-adiunknown 13)
(setq ru-ado-const-adlf 10)
(setq ru-ado-const-adlockbatchoptimistic 4)
(setq ru-ado-const-adlockoptimistic 3)
(setq ru-ado-const-adlockpessimistic 2)
(setq ru-ado-const-adlockreadonly 1)
(setq ru-ado-const-adlockunspecified -1)
(setq ru-ado-const-adlongvarbinary 205)
(setq ru-ado-const-adlongvarchar 201)
(setq ru-ado-const-adlongvarwchar 203)
(setq ru-ado-const-admarshalall 0)
(setq ru-ado-const-admarshalmodifiedonly 1)
(setq ru-ado-const-admoderead 1)
(setq ru-ado-const-admodereadwrite 3)
(setq ru-ado-const-admoderecursive 4194304)
(setq ru-ado-const-admodesharedenynone 16)
(setq ru-ado-const-admodesharedenyread 4)
(setq ru-ado-const-admodesharedenywrite 8)
(setq ru-ado-const-admodeshareexclusive 12)
(setq ru-ado-const-admodeunknown 0)
(setq ru-ado-const-admodewrite 2)
(setq ru-ado-const-admoveallowemulation 4)
(setq ru-ado-const-admovedontupdatelinks 2)
(setq ru-ado-const-admoveoverwrite 1)
(setq ru-ado-const-admoveprevious 512)
(setq ru-ado-const-admoveunspecified -1)
(setq ru-ado-const-adnotify 262144)
(setq ru-ado-const-adnumeric 131)
(setq ru-ado-const-adopenasync 4096)
(setq ru-ado-const-adopendynamic 2)
(setq ru-ado-const-adopenexecutecommand 65536)
(setq ru-ado-const-adopenforwardonly 0)
(setq ru-ado-const-adopenifexists 33554432)
(setq ru-ado-const-adopenkeyset 1)
(setq ru-ado-const-adopenoutput 8388608)
(setq ru-ado-const-adopenrecordunspecified -1)
(setq ru-ado-const-adopensource 8388608)
(setq ru-ado-const-adopenstatic 3)
(setq ru-ado-const-adopenstreamasync 1)
(setq ru-ado-const-adopenstreamfromrecord 4)
(setq ru-ado-const-adopenstreamunspecified -1)
(setq ru-ado-const-adopenunspecified -1)
(setq ru-ado-const-adoptionunspecified -1)
(setq ru-ado-const-adparaminput 1)
(setq ru-ado-const-adparaminputoutput 3)
(setq ru-ado-const-adparamlong 128)
(setq ru-ado-const-adparamnullable 64)
(setq ru-ado-const-adparamoutput 2)
(setq ru-ado-const-adparamreturnvalue 4)
(setq ru-ado-const-adparamsigned 16)
(setq ru-ado-const-adparamunknown 0)
(setq ru-ado-const-adpersistadtg 0)
(setq ru-ado-const-adpersistxml 1)
(setq ru-ado-const-adposbof -2)
(setq ru-ado-const-adposeof -3)
(setq ru-ado-const-adposunknown -1)
(setq ru-ado-const-adpriorityabovenormal 4)
(setq ru-ado-const-adprioritybelownormal 2)
(setq ru-ado-const-adpriorityhighest 5)
(setq ru-ado-const-adprioritylowest 1)
(setq ru-ado-const-adprioritynormal 3)
(setq ru-ado-const-adpromptalways 1)
(setq ru-ado-const-adpromptcomplete 2)
(setq ru-ado-const-adpromptcompleterequired 3)
(setq ru-ado-const-adpromptnever 4)
(setq ru-ado-const-adpropnotsupported 0)
(setq ru-ado-const-adpropoptional 2)
(setq ru-ado-const-adpropread 512)
(setq ru-ado-const-adproprequired 1)
(setq ru-ado-const-adpropvariant 138)
(setq ru-ado-const-adpropwrite 1024)
(setq ru-ado-const-adreadall -1)
(setq ru-ado-const-adreadline -2)
(setq ru-ado-const-adrecalcalways 1)
(setq ru-ado-const-adrecalcupfront 0)
(setq ru-ado-const-adreccanceled 256)
(setq ru-ado-const-adreccantrelease 1024)
(setq ru-ado-const-adrecconcurrencyviolation 2048)
(setq ru-ado-const-adrecdbdeleted 262144)
(setq ru-ado-const-adrecdeleted 4)
(setq ru-ado-const-adrecintegrityviolation 4096)
(setq ru-ado-const-adrecinvalid 16)
(setq ru-ado-const-adrecmaxchangesexceeded 8192)
(setq ru-ado-const-adrecmodified 2)
(setq ru-ado-const-adrecmultiplechanges 64)
(setq ru-ado-const-adrecnew 1)
(setq ru-ado-const-adrecobjectopen 16384)
(setq ru-ado-const-adrecok 0)
(setq ru-ado-const-adrecordurl -2)
(setq ru-ado-const-adrecoutofmemory 32768)
(setq ru-ado-const-adrecpendingchanges 128)
(setq ru-ado-const-adrecpermissiondenied 65536)
(setq ru-ado-const-adrecschemaviolation 131072)
(setq ru-ado-const-adrecunmodified 8)
(setq ru-ado-const-adresync 131072)
(setq ru-ado-const-adresyncall 15)
(setq ru-ado-const-adresyncallvalues 2)
(setq ru-ado-const-adresyncautoincrement 1)
(setq ru-ado-const-adresyncconflicts 2)
(setq ru-ado-const-adresyncinserts 8)
(setq ru-ado-const-adresyncnone 0)
(setq ru-ado-const-adresyncunderlyingvalues 1)
(setq ru-ado-const-adresyncupdates 4)
(setq ru-ado-const-adrsnaddnew 1)
(setq ru-ado-const-adrsnclose 9)
(setq ru-ado-const-adrsndelete 2)
(setq ru-ado-const-adrsnfirstchange 11)
(setq ru-ado-const-adrsnmove 10)
(setq ru-ado-const-adrsnmovefirst 12)
(setq ru-ado-const-adrsnmovelast 15)
(setq ru-ado-const-adrsnmovenext 13)
(setq ru-ado-const-adrsnmoveprevious 14)
(setq ru-ado-const-adrsnrequery 7)
(setq ru-ado-const-adrsnresynch 8)
(setq ru-ado-const-adrsnundoaddnew 5)
(setq ru-ado-const-adrsnundodelete 6)
(setq ru-ado-const-adrsnundoupdate 4)
(setq ru-ado-const-adrsnupdate 3)
(setq ru-ado-const-adsavecreatenotexist 1)
(setq ru-ado-const-adsavecreateoverwrite 2)
(setq ru-ado-const-adschemaactions 41)
(setq ru-ado-const-adschemaasserts 0)
(setq ru-ado-const-adschemacatalogs 1)
(setq ru-ado-const-adschemacharactersets 2)
(setq ru-ado-const-adschemacheckconstraints 5)
(setq ru-ado-const-adschemacollations 3)
(setq ru-ado-const-adschemacolumnprivileges 13)
(setq ru-ado-const-adschemacolumns 4)
(setq ru-ado-const-adschemacolumnsdomainusage 11)
(setq ru-ado-const-adschemacommands 42)
(setq ru-ado-const-adschemaconstraintcolumnusage 6)
(setq ru-ado-const-adschemaconstrainttableusage 7)
(setq ru-ado-const-adschemacubes 32)
(setq ru-ado-const-adschemadbinfokeywords 30)
(setq ru-ado-const-adschemadbinfoliterals 31)
(setq ru-ado-const-adschemadimensions 33)
(setq ru-ado-const-adschemaforeignkeys 27)
(setq ru-ado-const-adschemafunctions 40)
(setq ru-ado-const-adschemahierarchies 34)
(setq ru-ado-const-adschemaindexes 12)
(setq ru-ado-const-adschemakeycolumnusage 8)
(setq ru-ado-const-adschemalevels 35)
(setq ru-ado-const-adschemameasures 36)
(setq ru-ado-const-adschemamembers 38)
(setq ru-ado-const-adschemaprimarykeys 28)
(setq ru-ado-const-adschemaprocedurecolumns 29)
(setq ru-ado-const-adschemaprocedureparameters 26)
(setq ru-ado-const-adschemaprocedures 16)
(setq ru-ado-const-adschemaproperties 37)
(setq ru-ado-const-adschemaproviderspecific -1)
(setq ru-ado-const-adschemaprovidertypes 22)
(setq ru-ado-const-adschemareferentialconstraints 9)
(setq ru-ado-const-adschemareferentialcontraints 9)
(setq ru-ado-const-adschemaschemata 17)
(setq ru-ado-const-adschemasets 43)
(setq ru-ado-const-adschemasqllanguages 18)
(setq ru-ado-const-adschemastatistics 19)
(setq ru-ado-const-adschematableconstraints 10)
(setq ru-ado-const-adschematableprivileges 14)
(setq ru-ado-const-adschematables 20)
(setq ru-ado-const-adschematranslations 21)
(setq ru-ado-const-adschematrustees 39)
(setq ru-ado-const-adschemausageprivileges 15)
(setq ru-ado-const-adschemaviewcolumnusage 24)
(setq ru-ado-const-adschemaviews 23)
(setq ru-ado-const-adschemaviewtableusage 25)
(setq ru-ado-const-adsearchbackward -1)
(setq ru-ado-const-adsearchforward 1)
(setq ru-ado-const-adseek 4194304)
(setq ru-ado-const-adseekafter 8)
(setq ru-ado-const-adseekaftereq 4)
(setq ru-ado-const-adseekbefore 32)
(setq ru-ado-const-adseekbeforeeq 16)
(setq ru-ado-const-adseekfirsteq 1)
(setq ru-ado-const-adseeklasteq 2)
(setq ru-ado-const-adsimplerecord 0)
(setq ru-ado-const-adsingle 4)
(setq ru-ado-const-adsmallint 2)
(setq ru-ado-const-adstateclosed 0)
(setq ru-ado-const-adstateconnecting 2)
(setq ru-ado-const-adstateexecuting 4)
(setq ru-ado-const-adstatefetching 8)
(setq ru-ado-const-adstateopen 1)
(setq ru-ado-const-adstatuscancel 4)
(setq ru-ado-const-adstatuscantdeny 3)
(setq ru-ado-const-adstatuserrorsoccurred 2)
(setq ru-ado-const-adstatusok 1)
(setq ru-ado-const-adstatusunwantedevent 5)
(setq ru-ado-const-adstructdoc 2)
(setq ru-ado-const-adtinyint 16)
(setq ru-ado-const-adtypebinary 1)
(setq ru-ado-const-adtypetext 2)
(setq ru-ado-const-adunsignedbigint 21)
(setq ru-ado-const-adunsignedint 19)
(setq ru-ado-const-adunsignedsmallint 18)
(setq ru-ado-const-adunsignedtinyint 17)
(setq ru-ado-const-adupdate 16809984)
(setq ru-ado-const-adupdatebatch 65536)
(setq ru-ado-const-aduseclient 3)
(setq ru-ado-const-aduseclientbatch 3)
(setq ru-ado-const-adusenone 1)
(setq ru-ado-const-aduserdefined 132)
(setq ru-ado-const-aduseserver 2)
(setq ru-ado-const-advarbinary 204)
(setq ru-ado-const-advarchar 200)
(setq ru-ado-const-advariant 12)
(setq ru-ado-const-advarnumeric 139)
(setq ru-ado-const-advarwchar 202)
(setq ru-ado-const-adwchar 130)
(setq ru-ado-const-adwritechar 0)
(setq ru-ado-const-adwriteline 1)
(setq ru-ado-const-adwrnsecuritydialog 3717)
(setq ru-ado-const-adwrnsecuritydialogheader 3718)
(setq ru-ado-const-adxactabortretaining 262144)
(setq ru-ado-const-adxactasyncphaseone 524288)
(setq ru-ado-const-adxactbrowse 256)
(setq ru-ado-const-adxactchaos 16)
(setq ru-ado-const-adxactcommitretaining 131072)
(setq ru-ado-const-adxactcursorstability 4096)
(setq ru-ado-const-adxactisolated 1048576)
(setq ru-ado-const-adxactreadcommitted 4096)
(setq ru-ado-const-adxactreaduncommitted 256)
(setq ru-ado-const-adxactrepeatableread 65536)
(setq ru-ado-const-adxactserializable 1048576)
(setq ru-ado-const-adxactsyncphaseone 1048576)
(setq ru-ado-const-adxactunspecified -1)
(setq ru-ado-const-stwritechar 0)
(setq ru-ado-const-stwriteline 1)

|;
  (if (null ru-ado-method-append)
    (progn
      (if (setq ado_clsid
                 (vl-registry-read "HKEY_CLASSES_ROOT\ADODB.Command\CLSID")
          ) ;_ end of setq
        ;;"{00000507-0000-0010-8000-00AA006D2EA4}"
        (setq ado_dll_file_name
               (vl-registry-read
                 (strcat "HKEY_CLASSES_ROOT\CLSID\"
                         ADO_clsid
                         "\InProcServer32"
                 ) ;_ end of strcat
               ) ;_ end of vl-registry-read
        ) ;_ end of setq
        ;;"C:\Program Files\Common Files\System\ado\msado15.dll"
      ) ;_ end of if
      (if (not ado_dll_file_name)
        (setq ado_dll_file_name
               (strcat (ru-dirs-program-files-common)
                       "system\ado\msado15.dll"
               ) ;_ end of strcat
        ) ;_ end of setq
      ) ;_ end of if
      (if (findfile ado_dll_file_name)
        (progn
          (vlax-import-type-library
            :tlb-filename
            ado_dll_file_name
            :methods-prefix
            "ru-ado-method-"
            :properties-prefix
            "ru-ado-prop-"
            :constants-prefix
            "ru-ado-const-"
          ) ;_ end of vlax-import-type-library
        ) ;_ end of progn
        (progn
          (alert (strcat "Не могу найти 
 '"
                         ado_dll_file_name
                         "'
Работа невозможна!"
                 ) ;_ end of strcat
          ) ;_ end of alert
          NIL
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of progn
    t
  ) ;_ end of if

) ;_ end of defun