| |
|
|
| | strSql списал с работающего запроса, а в функции запрос не работает. Акс пишет в locals,что
cnn : Nothing и Connection : Nothing. и strSql "". Это из-за суммирования в запросе ? AmbDoctor =0 Почему?
Public Function AmbDoctor(MedOrgCode As Long, Functional As Long) As Long
' Purpose : Подсчет нормативного количества амбулаторных врачебных должностей диспансеров
'---------------------------------------------------------------------------------------
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set cnn = CurrentProject.Connection
Dim strSql As String
strSql = "SELECT Sum(Stat.КоличДолжн) AS [Sum-КоличДолжн] FROM Stat "
strSql = strSql & "WHERE (((Stat.МедОрг)=" & MedOrgCode & ") AND ((Stat.Функционал)=" & Functional & ") AND ((Stat.КодДолжности) Like '05*'));"
' Open the recordset
rst.Open strSql, cnn, adOpenKeyset, adLockOptimistic
AmbDoctor = Nz(rst![Sum-КоличДолжн], 0)
End Function
|
| |
| |
| |
| |
|
|
| | '
Это из-за суммирования в запросе ?
|
это из-за Like '05*'. В ADO другие символы шаблона. Надо %. | |
| |
| |
| |
|
|
| |  типа 05%?
никогда такое не применял
a "like" убрать?
| |
| |
| |
| |
|
|
| | у меня в АДО из Аксеса "LIKE" со звездочками дружит
Топикстару:
попробуйте упростить запрос "до невозможности", а потом добавлять параметры | |
| |
| |
| |
|
|
| | у Вас поле Stat.КодДолжности какого типа ?
если число, то "LIKE" скорее всего не прокатит | |
| |
| |
|
|
| |
|
|
| | зачем вообще константу в запросе пишете, не понимаю... | |
| |
| |
| |
|
|
| | если вы имеете в виду like "05*", то по этим символам выбираются все врачебные должности | |
| |
| |
| |
|
|
| | да, я имел в виду "05*"
справочники и коды должностей вам сверху спускают? | |
| |
| |
| |
|
|
| | да, а разве это сейчас имеет значение. Нужно мне просто фильтрануть по 05 | |
| |
| |
| |
|
|
| | если бы "нет" я бы посоветовал доработать справочники должностей :)
но в общем-то подозревал что спускают сверху, поэтому и переспросил | |
| |
| |
| |
|
|
| |
WHERE (((COMMODITY_TBL.GROUP_NUMBER) Like '%" & Me!GROUP_NUMBER & "%') AND ((COMMODITY_TBL.COMMODITY_NAME) Like '%" & NZVB(Me!SEACH_COMMODITY) & "%')
|
| |
| |
| |
| |
|
|
| | может по аналогии - вот так?
DIM NUMBER as string
NUMBER ="05"
WHERE (((Stat.МедОрг)=" & MedOrgCode & ") AND ((Stat.Функционал)=" & Functional & ") AND ((Stat.КодДолжности) Like '%" & NUMBER & "%'));"
|
| |
| |
| |
| |
|
|
| | > DIM NUMBER as string
испытал когнитивный диссонанс. спасибо.
:)
http://hiprog.com/index.php?option=com_content&task=view&id=381&Itemid=35 | |
| |
| |
| |
|
|
| | Пустое 
DIM STR_NUMBER as string  | |
| |
| |
| |
|
|
| | 
Dim strPositionCode As String
| |
| |
| |
| |
|
|
| | Ребята, всем спасибо, разобрался! с вашей помощью! | |
| |
| |
| |
|
|
| | а в каком направлении посоветуете доработать коды, не догоняю пока, а хотелось бы услышать дельный совет. Ведь и так каждая категория персонала начинается со своего двузначного корня (05 врачи, 06 старшие медсестры, 07 простые медсестры, 08 санитарки), а полностью код состоит из 4-6 цифр | |
| |
| |
| |
|
|
| | >> а в каком направлении посоветуете доработать коды.
если вам спускают коды сверху даже не думайте, вы не можете управляеть системой
все уже сделано за вас и ничего тут не поделаешь
речь о том, чтобы составной индекс (код) разложить на составляющие его группы,
к вашему вопросу это по существу не относится. | |
| |
| |
