Excel Marco, Firebird driver, ODBC Driver does not support the requested properties

select count( co.orderid )
from customerorder co
join employee ee on ee.emplyid=co.emplyid join emplytimecard2 etc on etc.emplyid=co.emplyid and etc.scheddate=co.shipdate join timecarddetails2 tcd on tcd.timecardid=etc.timecardid and co.cds_ between tcd.startime and tcd.endtime where ( (tcd.emplytasks='SLS') or (tcd.emplytasks is null and ee.dept='SLS') or (tcd.emplytasks='MGM' and ee.dept='SLS') ) and co.orderstat='CP' and co.shipdate between '9/17/15' and '9/23/15'

Select allOpen in new window

 Function SQLSCountTransactionsSalesSF(BegDate1, EndDate1) As String
SQLSCountTransactionsSalesSF = "Select COUNT( customerorder.orderid)AS sum_Sales" & _
    " From customerorder" & _
    " JOIN employee ON employee.emplyid=customerorder.emplyid" & _
    " JOIN emplytimecard2 ON emplytimecard2.emplyid=customerorder.emplyid AND emplytimecard2.scheddate=customerorder.shipdate" & _
    " JOIN timecarddetails2 ON timecarddetails2.timecardid=emplytimecard2.timecardid AND customerorder.cds" & _
    " BETWEEN timecarddetails2.startime and timecarddetails2.endtime" & _
    " WHERE ( (timecarddetails2.emplytasks='SLS') OR (timecarddetails2.emplytasks is null AND employee.dept='SLS') OR (timecarddetails2.emplytasks='MGM' AND employee.dept='SLS') )" & _
    " AND orderdetail.orderstat = 'CP'" & _
    " AND orderdetail.shipdate BETWEEN (" & BegDate1 & ") AND (" & EndDate1 & ") "
End Function

Select allOpen in new window

Function CountTransactionsSalesSF(B<wbr ></wbr>egDate1, EndDate1) As Variant

Dim conSQL As ADODB.Connection
Dim strSQL As String
Dim i As Integer
Dim Total As Variant
Dim rs As ADODB.Recordset

Total = 0
i = 0

  Set conSQL = New ADODB.Connection
  conSQL.Open "DSN=CDHO;Driver={Firebird<wbr ></wbr>/InterBase<wbr ></wbr>(r) driver};Dbname=192.168.0.2<wbr ></wbr>05:d:\mult<wbr ></wbr>idev\gdbcr<wbr ></wbr>eation\sv1<wbr ></wbr>020_012HO.<wbr ></wbr>gbb;CHARSE<wbr ></wbr>T=NONE;UID<wbr ></wbr>=BETAVIEW;<wbr ></wbr>Client=C:\<wbr ></wbr>Windows\Sy<wbr ></wbr>sWOW64\gds<wbr ></wbr>32.dll"
  strSQL = SQLSCountTransactionsSales<wbr ></wbr>SF(BegDate<wbr ></wbr>1, EndDate1)
  Set rs = New ADODB.Recordset
  rs.Open strSQL, conSQL, adOpenStatic, adLockOptimistic
     
  If Not rs.EOF Then
    CountTransactionsSalesSF = rs.GetRows(-1, 1, "sum_sales")(0, 0)
    If IsNull(CountTransactionsSa<wbr ></wbr>lesSF) Then
       CountTransactionsSalesSF = 0
    End If
  Else
    CountTransactionsSalesSF = 0
  End If
  conSQL.Close
End Function

Select allOpen in new window