, 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