다음에 부울 함수 사용 (SQL)?

Question

SQL 문에서 어디에서 부울 결과가 나오는 함수를 사용하려고합니다.

함수의 기능은 선택한 날짜가 두 개의 const 날짜 내에 있고 결과가 부울인지 확인하는 것입니다. SQL 구문에 문제가 있습니다.

Sqlstring = "Select count() from [Orders].[Date]" & _ 
where " & Function([Orders].[Date]) = True & "" 

SQL 문이 올바른지 확실하지 않습니다.

편집 여기에 코드입니다 :

public StartDate as String 
public EndDate As string 

Private Function GetOrdersNumbers() As Integer 
Dim rsData As ADODB.RecordSet 

Dim szConnect As String 
Dim szSQL As String 
Dim DataSource As String 

DataSource = "C:\Users\user\Desktop\db.mdb" 
szConnect = "Provider=Microsoft.Jet.OLEBD.4.0;" & _ 
"Data Source=" & DataSource & ";" & _ 
"user ID=admin;password=;" 

szSQL = "SELECT COUNT(*) FROM [Et_Journal Livraison Fournisseur] WHERE [Et_Journal Livraison Fournisseur].[Date] BETWEEN [@StartDate] And [@EndDate] " 
Set rsData = New ADODB.RecordSet 

rsData.Open szSQL, szConnect, adOpenForwardOnly, adLockReadOnly, adCmdText 
If Not rsData.EOF Then 
Range("A01").CopyFromRecordset RecordSet 
GetOrdersNumbers = CInt(Range("A01").Value) 
End If 
End Function 

Answer 1

당신은 그럼에도 불구하고 ... 데이터베이스 엔진에 대한 정보를 제공하지 않았다

이 같은 쿼리를 사용하는 것이 좋을 것

:

SELECT COUNT(*) 
FROM Orders 
WHERE [Date] BETWEEN [@date1] AND [@date2] 

@ date1 및 @ date1은 매개 변수입니다.

기능을 사용할 이유가 없습니다.

[편집]

는 설명 주셔서 감사합니다. 아래 코드를보십시오 :

Option Explicit 


Sub Test() 
Dim d1 As Date 
Dim d2 As Date 

d2 = DateSerial(2015, 1, 6) 
d1 = DateAdd("MM", -3, d2) 

MsgBox GetOrdersNumbers(d1, d2) 

End Sub 

Function GetOrdersNumbers(ByVal StartDate As Date, ByVal EndDate As Date) As Long 
Dim oConn As ADODB.Connection, oRst As ADODB.Recordset 
Dim sConnString As String, sQry As String 
Dim retVal As Long 

sConnString = "Provider=Microsoft.Jet.OLEBD.4.0;" & _ 
      "Data Source=C:\Users\user\Desktop\db.mdb;" & _ 
      "user ID=admin;password=;" 

Set oConn = New ADODB.Connection 
With oConn 
    .ConnectionString = sConnString 
    .Open 
End With 

sQry = "SELECT [Date] As MyDate" & vbCr & _ 
     "FROM [Et_Journal Livraison Fournisseur]" & vbCr & _ 
     "WHERE [Et_Journal Livraison Fournisseur].[Date] BETWEEN #" & StartDate & "# And #" & EndDate & "#" 

Set rsData = New ADODB.Recordset 

oRst.Open szSQL, oConn, adOpenStatic, adLockReadOnly 

retVal = oRst.RecordCount 

End If 

Exit_GetOrdersNumbers: 
    On Error Resume Next 
    oRst.Close 
    Set oRst = Nothing 
    oConn.Close 
    Set oConn = Nothing 
    GetOrdersNumbers = retVal 
    Exit Function 

Err_GetOrdersNumbers: 
    MsgBox Err.Description, vbExclamation, Err.Number 
    Resume Exit_GetOrdersNumbers 
End Function