Подскажите где ошибаюсь? Синим выделила, то что сама добавила. Без синего работает. Понимаю, что ошибка там где выделено синим, однако я новичек в этом. Помогите подправить.

Option Explicit

Sub AddReferences()
'---------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------
On Error Resume Next
'Name: ADODB
'Description: Microsoft ActiveX Data Objects 2.8 Library
ThisWorkbook.VBProject.References.AddFromFile ("C:\Program Files\Common Files\System\ado\msado15.dll")
ThisWorkbook.VBProject.References.AddFromGuid GUID:="{2A75196C-D9EB-4129-B803-931327F72D5C}", Major:=2, Minor:=8
End Sub

Function GetData(strPath As String, strField1 As String, strOperator1 As String, strCriterion1 As String, strField2 As String, strOperator2 As String, strCriterion2 As String, strField3 As String, strOperator3 As String, strCriterion3 As String) As Integer
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
Dim strSQL As String

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & strPath & ";" & "Extended Properties=""Excel 9.0;HDR=Yes;IMEX=1"""
' и это не работает
strSQL = "SELECT Count([" & strField1 & "]) FROM [Лист3$A3:L1000] WHERE [" & strField1 & "]" & strOperator1 & "'" & strCriterion1 & "'" and [" & strField2 & "]" & strOperator2 & "'" & strCriterion2 & "'" and [" & strField3 & "]" & strOperator3 & "'" & strCriterion3 & "'"
rst.Open strSQL, cnn
GetData = rst.Fields(0)
rst.Close
cnn.Close

Set rst = Nothing
Set cnn = Nothing
End Function


Sub test()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
Dim strSQL As String
Dim strCriterion As String
Dim strField As String
Dim strRange As String
Dim strPath As String
Dim strOperator1 As String
Dim strOperator2 As String
Dim strOperator3 As String
strOperator1 = "="
strOperator2 = ">"
strOperator3 = ">"


strPath = "c:\Gorokh\Report\Книга4.xls"
Dim x As Integer
strField1 = "segment вид UNIQA"
strField2 = "Дата настання страхового випадку"
strField3 = "Дата реєстрацiї страхового випадку"
strCriterion1 = "Casco"
strCriterion2 = 40179
strCriterion3 = 40179
strRange = ""
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & strPath & ";" & "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
strSQL = "SELECT * table Count([" & strField1 & "]) FROM [Лист3$A3:L1000] WHERE [" & strField1 & "]" & strOperator1 & "'" & strCriterion1 & "'" and [" & strField2 & "]" & strOperator2 & "'" & strCriterion2 & "'" and [" & strField3 & "]" & strOperator3 & "'" & strCriterion3 & "'"
' как написать запрос для того что бы отбирало количество по segment вид UNIQA, а также по Дата настання страхового випадку>1/1/2010 и Дата реєстрацiї страхового випадку>1/1/2010 одновременно?


rst.Open strSQL, cnn


x = rst.Fields(0)
Debug.Print x
rst.Close
cnn.Close

Set rst = Nothing
Set cnn = Nothing
End Sub

Konst_One,

Каких? Выделите цветом. Спасибо.

strSQL = "SELECT Count([" & strField1 & "]) FROM [Лист3$A3:L1000] WHERE [" & strField1 & "]" & strOperator1 & "'" & strCriterion1 & "'" And "[" & strField2 & "]" & strOperator2 & "'" & strCriterion2 & "'" And "[" & strField3 & "]" & strOperator3 & "'" & strCriterion3 & "'"


в процедуре test пишет type mistakes

Konst_OneVikVikVikKonst_One,

Каких? Выделите цветом. Спасибо.

вы что, издеваетесь. сами разбирайтесь в своём кривом sql-запросе. скопируйте его в редактор SQL , он вам подскажет
Да не издеваюсь.Новичек я в SQL. Прошу прощения.

VikVikVik,

Подскажите все таки где синтаксическая ошибка.
Где-то встроке ниже... И вообще скажите сам запрос верный для трех критериев?
Буду очень и очень благодарна.


strSQL = "SELECT Count([" & strField1 & "]) FROM [Лист3$A3:L1000] WHERE [" & strField1 & "]" & strOperator1 & "'" & strCriterion1 & "'" and [" & strField2 & "]" & strOperator2 & "'" & strCriterion2 & "'" and [" & strField3 & "]" & strOperator3 & "'" & strCriterion3 & "'"
Пишу в одну строку.

Пишет Compile error: Expected: end of statement
и при этом выделяет " & strOperator2 & "

VikVikVik,
Заменила AND на && и убрала кавычки. Правда легче жить не стало. Так в чем же все таки вся соль?
Простите, если задаю глупые вопросы. Спасибки.

strSQL = "SELECT Count([" & strField1 & "]) FROM [Лист3$A3:L1000] WHERE ([" & strField1 & "]" & strOperator1 & "'" & strCriterion1 && [" & strField2 & "]" & strOperator2 & "'" & strCriterion2 && [" & strField3 & "]" & strOperator3 & "'" & strCriterion3 & "'")

GwaVikVikVik,
ну для начала замените and на &
Хоть синтаксическая ошибка должна пропасть

а я читала, что надо менять на &&....

ZezaM,

Хочу что бы формировался запрос с тремя критериями и выгружался в Книгу3 с Книги 4.
Критерии следующие:
segment видUNIQA = "Casco"
Дата настання страхового випадку >1/01/2010
Дата реєстрацiї страхового випадку> 1/01/2010

Shocker.Pro,

так к сожелению тоже не работает :(
strSQL= SELECT Count([" & strField1 & "]) FROM [Лист3$A3:L1000] WHERE (strField1="Casco" && strField2>40179 && strField3>40179 )