Delete |
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