-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


íåâîçìîæíî ñîçäàíèå îáúåêòà êîíòåéíåðîì ActiveX: 'ADODB.Connection'

Âòîðíèê, 13 Ìàÿ 2014 ã. 17:07 + â öèòàòíèê
Ïðèâåòñòâóþ, êîëëåãè.

Ñóòü âîò â ÷åì, åñòü ñåðâåðíîå ïðèëîæåíèå, èñïîëüçóþùåå ÁÄ â ôîðìàòå MS Access. È ýòî ïðèëîæåíèå íå ñòàðòóåò, ðóãàåòñÿ ÷òî êëàññ íå çàðåãèñòðèðîâàí. Ñîâìåñòíî ñ ðàçðàáàìè âûÿñíèëè, ÷òî ADO íå óñòàíîâëåíî èëè íå ðàáîòàåò.
Ïðè âûïîëíåíèè VBS-ñêðèïòà âûâàëèâàåòñÿ îøèáêà, òà ÷òî â øàïêå òåìû. Ñàì ñêðèïò

Option Explicit

' Ïóòü ê ôàéëó ÁÄ. Äîëæåí ñîäåðæàòü ïîëíîå èìÿ ôàéëà (âêëþ÷àÿ äèñê, ïàïêó) äî ôàéëà ÁÄ Access
Dim DBFile : DBFile = ChooseFile("C:\Documents and Settings\Futen\Ðàáî÷èé ñòîë\samo-agent\Ag.7.1.mdb") 

Dim  Catalog, objConn, SQuery

Set objConn = CreateObject("ADODB.Connection")
objConn.ConnectionString = ConnectString
objConn.Open
Dim RecordsAffected
objConn.Execute "select * from [version]"
'Çàêðûâàåì ñîåäèíåíèå
objConn.Close
Set objConn = Nothing

' MsgBox "Áàçà äàííûõ îáíîâëåíà", vbInformation + vbOKOnly

'Âûáîð ôàéëà ÁÄ
Function ChooseFile(StartName)
    Dim Str : Str = InputBox("Ôàéë ÁÄ", "Óêàæèòå ôàéë ÁÄ", StartName)
    If Len(Str) = 0 Then
	    Wscript.Quit
	End If
	 
	ChooseFile = Str        
End Function

Function ConnectString()
    ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DBFile & ";"
End Function   


Ïðîáîâàë è AccessDatabaseEngine è MDAC íè÷åãî íå ïîìîãàåò.. ×òî åùå ìîæíî ïîñòàâèòü ? Ðàçðàáû íàñòàèâàþò íà êîðÿâîñòè óñòàíîâëåííîé âèíäû è ïðåäëàãàþò ïåðåóñòàíîâèòü ñ îôô îáðàçà. ×óòü íå çàáûë, âèíäà ÕÐ ÑÏ3

http://www.sql.ru/forum/1094346/nevozmozhno-sozdanie-obekta-konteynerom-activex-adodb-connection


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó