Option Explicit

Const adOpenStatic     = 3
Const adLockOptimistic = 3

Dim strDatabase
Dim lngID

Dim objFSO
Dim objConnection
Dim objRecordset

Dim dtStartDate
Dim dtEndDate
Dim lngCount

Dim prevLocale

'### for debug
dim s, k


If WScript.Arguments.Count = 2 Then
    strDatabase = Mid(WScript.Arguments(0), 2)
    lngID = Mid(WScript.Arguments(1), 2)
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    If objFSO.FileExists(strDatabase) Then
        prevLocale = SetLocale("en-us")
        Set objConnection = CreateObject("ADODB.Connection")
        Set objRecordset  = CreateObject("ADODB.Recordset")
        objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& strDatabase &";"
        
        With objRecordset
            .Open "SELECT * FROM qdfOrders WHERE ID = " & lngID & "", objConnection, adOpenStatic, adLockOptimistic
            dtStartDate = .Fields("OrderDate").Value
	    lngCount    = .Fields("Time").Value 
	    .Close

'rem дата должна бы быть в формате m/d/yyyy
wscript.echo "start date: "& dtStartDate & vbtab &"days to deadline:  "& lngcount
			
'            .Open _
'                "SELECT * FROM tblHolidays"& _
'                " WHERE HolidayDate BETWEEN #"& dtStartDate &"#"& _
'                " AND #"& DateAdd("d", lngCount*2+1, dtStartDate) &"#", _
'                objConnection, adOpenStatic, adLockOptimistic

s="SELECT * FROM tblHolidays"& _
" WHERE HolidayDate BETWEEN #"& dtStartDate &"#"& _
" AND #"& DateAdd("d", lngCount*2+1, dtStartDate) &"#"

'rem в сторке запроса даты также должны бы быть в формате m/d/yyyy
wscript.echo s
.open s, objConnection, adOpenStatic, adLockOptimistic

            
            dtEndDate = DateAdd("d", lngCount, dtStartDate)

wscript.echo "deadline zero approximation: "& dtEndDate
			
            .Filter  = "HolidayDate>=#"& dtStartDate &"# AND HolidayDate<=#"& dtEndDate &"#" 
            lngCount = .RecordCount

k=0            
            Do While lngCount>0
                dtStartDate = DateAdd("d", 1, dtEndDate)
                dtEndDate   = DateAdd("d", lngCount, dtEndDate)
                .Filter  = "HolidayDate>=#"& dtStartDate &"# AND HolidayDate<=#"& dtEndDate &"#"
                lngCount = .RecordCount
k=k+1
wscript.echo "loop "& k
            Loop
			
            .Close
        End With
        
        'objConnection.Execute "UPDATE qdfOrders SET DoneDate=#" & dtEndDate & "# WHERE ID=" & lngID

s = "UPDATE qdfOrders SET DoneDate=#" & dtEndDate & "# WHERE ID=" & lngID
'rem дата должна бы быть в формате m/d/yyyy
wscript.echo s
objConnection.Execute s
        
        objConnection.Close
        Set objRecordset  = Nothing
        Set objConnection = Nothing
        SetLocale(prevLocale)
    Else
        WScript.Echo "Database file [" & strDatabase & "] not found"
    End If
    
    Set objFSO = Nothing
Else
    WScript.Echo "Usage from toolbar on [Склад и торговля]:"
    WScript.Echo "" & WScript.ScriptName & " /[CurrentDB] /[ID]"
End If

WScript.Quit 0

'********************************
' тестовый скрипт
' при отсутствии ошибок выводит два сообщения:
' -описание полей таблицы tblHolidays
' -содержимое таблицы tblHolidays (частично)
'
' принимает один параметр /[CurrentDB]
'
'********************************
option explicit

dim fso,c,r,f,s,k
dim db

if wscript.arguments.count<>1 then
  wscript.echo "Usage from toolbar on [Склад и торговля]:" & vbcrlf & WScript.ScriptName & " /[CurrentDB]"
else
  db=mid(wscript.arguments(0),2)
  set fso=createobject("scripting.filesystemobject")
  if not fso.fileexists(db) then
    wscript.echo "Database file [" & db & "] not found" 
  else
    set c=createobject("adodb.connection")
    c.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& db &";"
    set r=createobject("adodb.recordset")
    r.open "select * from tblHolidays",c,0,1,1
    
    s=""
    for each f in r.fields
      s=s & vbcrlf & f.name &", "& getadTypeName(f.type)
    next
    set f=nothing
    wscript.echo "Поля tblHolidays:"& s

    wscript.echo "Даные tblHolidays:"& vbcrlf & r.getstring

    r.close: set r=nothing
    c.close: set c=nothing
  end if
  set fso=nothing

end if
wscript.quit 0

function getadTypeName(t)
dim s
  select case t
    case 0: s="adEmpty"
    case 2 : s="adSmallInt"
    case 3 : s="adInteger"
    case 4 : s="adSingle"
    case 5 : s="adDouble"
    case 6 : s="adCurrency"
    case 7 : s="adDate"
    case 8 : s="adBSTR"
    case 9 : s="adIDispatch"
    case 10 : s="adError"
    case 11 : s="adBoolean"
    case 12 : s="adVariant"
    case 13 : s="adIUnknown"
    case 14 : s="adDecimal"
    case 16 : s="adTinyInt"
    case 17 : s="adUnsignedTinyInt"
    case 18 : s="adUnsignedSmallInt"
    case 19 : s="adUnsignedInt"
    case 20 : s="adBigInt"
    case 21 : s="adUnsignedBigInt"
    case 64 : s="adFileTime"
    case 72 : s="adGUID"
    case 128 : s="adBinary"
    case 129 : s="adChar"
    case 130 : s="adWChar"
    case 131 : s="adNumeric"
    case 132 : s="adUserDefined"
    case 133 : s="adDBDate"
    case 134 : s="adDBTime"
    case 135 : s="adDBTimeStamp"
    case 136 : s="adChapter"
    case 138 : s="adPropVariant"
    case 139 : s="adVarNumeric"
    case 200 : s="adVarChar"
    case 201 : s="adLongVarChar"
    case 202 : s="adVarWChar"
    case 203 : s="adLongVarWChar"
    case 204 : s="adVarBinary"
    case 205 : s="adLongVarBinary"
    case 8192: s="adArray
    case else: s="adHZ"
  end select
  getadTypeName=s
end function

Const adLockOptimistic = 3

        Set objRecordset  = CreateObject("ADODB.Recordset")

Const adLockOptimistic = 3
Const adUseClient      = 3

        Set objRecordset  = CreateObject("ADODB.Recordset")
        objConnection.CursorLocation = adUseClient