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

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

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

 

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

 -Ñòàòèñòèêà

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


Delete â óäàëåííîé áàçå

Âòîðíèê, 18 Ôåâðàëÿ 2014 ã. 03:32 + â öèòàòíèê
Äîáðîãî äíÿ ãîñïîäà !

Èìåþ îáðàùåíèå ÷åðåç Microsoft Jet (òàê êàê ïðîâàéäåð ÃÅÒÅÐÎÃÅÍÅÍ !!!!!)
if WScript.Arguments.Count>0 then
    Set AdoSession=WScript.CreateObject("ADODB.Connection")
    AdoSession.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WORK\PM\db1.mdb;Mode=ReadWrite"
    AdoSession.ConnectionTimeout=0
    AdoSession.CommandTimeout=0
    AdoSession.Open
    AdoSession.Execute("insert into [Database=C:\WORK\an_aug_2013.xls;Excel 8.0;HDR=No;IMEX=0].[A1$]   values(456)")
    AdoSession.Execute("insert into [ODBC;Driver={Oracle in OraDb10g_home1};UID=XXX;PWD=XXX_20130901;DBQ=XXX_BANK.UUU;SERVER=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=localhost)(PORT=1521))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=INFOBANK)))].[XXX.A1] select F1 from [Database=C:\WORK\PM\an_aug_2013.xls;Excel 8.0;HDR=No;IMEX=0].[A1$]")
    A = "delete from A1 in """" [ODBC;Driver={Oracle in OraDb10g_home1};UID=XXX;PWD=XXX_20130901;DBQ=XXX_BANK.UUU;SERVER=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=localhost)(PORT=1521))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=INFOBANK)))]"
    MsgBox A
    AdoSession.Execute(A)
    AdoSession.Close
    Set AdoSession=Nothing
  end if
end if


Insert äàííûõ ïðîèñõîäèò íîðìàëüíî
Ïîñëåäóþùàÿ î÷èñòêà DELETE - íå ïðîèñõîäèò
ERROR = Íåâîçìîæíî óäàëåííèå èç óêàçàííûâõ òàáëèö

Åñëè êîìàíäó (+ ÄËÈÍÍÓÞ ñòðîêà êîííêòà ) ðåàëèçîâàòü ÷åðåç áàçó Access âñå â ïîðÿäêå
 ÷åì ðàçíèöà è êàê ðåàëèçîâàòü ÷åðåç VBS ôàéë (áàçà MDB êàê òàêîâàÿ íå íóæíà)

Çàðàíåå áëàãîäàðåí !

http://www.sql.ru/forum/1077966/delete-v-udalennoy-baze


 

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

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

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

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