sqlserver activex脚本例子

 '**********************************************************************
'  Visual Basic ActiveX Script
'************************************************************************

Function Main()
 dim myConn
             dim myRecordset
 dim input_date

 set myConn = CreateObject("ADODB.Connection")
 set myRecordset = CreateObject("ADODB.Recordset")

 myConn.Open = "Provider=SQLOLEDB.1;Data Source=erpinterface;  Initial Catalog=ts_i;user id = 'sa';password='sa'"

 mySQLCmdText = "Select 'input_date' = input_date from (select top 1 input_date from ts_i_cost_im) as aa"

 myRecordset.Open mySQLCmdText, myConn

 set Flds = myRecordset.Fields
 set input_date = Flds("input_date")
 
 If (DateDiff( "d", input_date.value ,Date ) = 0) then
      Main =DTSTaskExecResult_Success

 Else
                 Main = DTSTaskExecResult_Failure
 
End If
End Function