-

   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


: [1] []
 

:
: 

: ( )

:

  URL