íåâîçìîæíî ñîçäàíèå îáúåêòà êîíòåéíåðîì ActiveX: 'ADODB.Connection' |
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
http://www.sql.ru/forum/1094346/nevozmozhno-sozdanie-obekta-konteynerom-activex-adodb-connection
| Êîììåíòèðîâàòü | « Ïðåä. çàïèñü — Ê äíåâíèêó — Ñëåä. çàïèñü » | Ñòðàíèöû: [1] [Íîâûå] |