LEADERSOFT.ru Разработка на заказ программ и сайтов
ЕСЛИ БАЗА ВАМ НУЖНА В ЛИДЕРСОФТ ЗАЙДИ СПЕРВА!
Список всех статей ... Подписка на новости (рассылка через subscribe.ru)






























Выпуск 92. Материалы для начинающих (38 урок)

Подписка: "Access - программирование и готовые решения"
Дата: 01.08.2008
Автор: Дмитрий Сонных (aka Joss)
Сайт: http://www.accessoft.ru под редакцией с http://www.leadersoft.ru/
Новые материалы: Сложение данных из символьных полей
На сайте AccesSoft публикуются статьи, посвященые вопросам, связанным с разработкой приложений Access. Вопросы по работе с Access Вы можете задать на форуме. Вы так же можете ознакомиться с готовыми программами, получить исходный код, купить программу, связаться с автором для решения вопроса о доработке программы под Ваши требования.


Новости проектирования баз данных. Источник: http://www.leadersoft.ru/russian/orders/orderjob.html

1. Разработана база данных для Московского офиса фармацевтической компании из Индии. Цель проекта учет и контроль медицинских представителей. Так пользователей достаточно много (>500), то решение было сделано создать распределенную базу данных на базе Microsoft Access + SQL Server (Msde). Вся информация из регионов России автоматически архивируется и посылается в базу данных центрального офиса. Загрузка также ведется автоматически. При этом не требуется наличие архиватора и почтовой программы у представителя. Все это делается встроенными средствами Windows, поэтому затрат на покупку дополнительных программ не потребовалосьБаза данных позволяет собирает различную коммерческую информацию медпредставителей о посещениях лечебных учреждений и аптек и подготавливает большое количество отчетов в Access, Excel с графиками. Позволяет оперативно реагировать на изменение и потребление рынка лекарств в России.

2. Разработана база данных для компании Сириус. Цель проекта создать базу данных по приему заказов через Интернет и обработке их в офисе компании. Средства разработки ASP.NET + SQL Server (web интерфейс), а для пользователей офиса - на Access + SQL Server. Почему выбрано такое технологическое решение? Главное это то, чтобы отказаться от разных баз данных (MySQL, Mdb, Email). Обслуживание таких баз данных требует много времени. В данном решении имеется только одна база данных SQL Server, а следовательно вся информация которая поступает из Интернета или офиса хранится в одном месте. Это упрощает поиск, повышает надежность сиcтемы, исключает время на обработку электронных писем. С другой стороны с базой данных вы можете работать удаленно, так и внутри офиса и получать типовые отчеты: накладные, счета - фактур и т.п. Пример web интерфейса для заказов на SMT трафареты смотрите по этой ссылке: http://sirius.leadersoft.ru/


    Данная статья ориентирована на начинающих разработчиков Access, желающих более углубленно изучить возможности программирования в Access и сделать свои приложения более профессиональными.
Сложение данных из символьных полей в запросе с группировкой - аналог
функции Sum()

      Иногда бывает необходимо сложить в запросе символьные поля. Например: имеется база данных о строениях. Одним из параметров описания строений является описание материалов, из которых здания построены. Для одного здания может быть использовано несколько материалов: кирпич, газосиликатный кирпич, бетонные блоки, бетонные перекрытия, дерево,
металлоконструкции и т.п. Количество материалов может быть произвольным.

      Создаем в базе две таблицы - таблицу зданий tblOsnFond и таблицу материалов tblMaterial. Потом создаем третью таблицу tblOFmaterial, куда будем заносить связь между строениями и мотериалами, из которых оно построено. Всё довольно стандартно. Легко получить список материалов, из которых сделано строение, и легко получить список строений, в котором используется определенный материал. Но вот настала пора создавать отчет (или форму), в котором должен быть столбецы (поля) "Строение" и  "Материалы", В поле "Материалы" должны быть перечислены все материалы, которые были использованы при строительстве. Использовать в запросе функцию Sum() для сложения (слияния) символьных значений не представляется возможным потому, что функция Sum() применима только для скалярных(!!!) значений. А для символьных она не работает. И действительно:

      3+2=2+3, но "3"+"2"<>"2"+"3" "32"<>"23"

      Для того, чтобы сложить значения символьного поля надо самому написать функцию сложения символьных (string) значений и подставить её в запрос. Эта функция должна быть расположена в отдельном модуле (а не в модуле формы или отчета) и иметь свойство Public Такую функцию уже можно подставлять в запрос. Вот пример функции:

Public Function fnSumString(LngOsnFond As Long) As String

Dim sResult As String

On Error GoTo fnSumString_Error
Dim RstX As ADODB.Recordset
Dim strSQL As String

       Set RstX = New ADODB.Recordset
       strSQL = "SELECT * FROM qryOFmaterial WHERE IdOsnFond=" & LngOsnFond

       RstX.Open strSQL, CurrentProject.Connection, adOpenKeyset
 
       ' первоначальное присвоение значения
       sResult = ""
       ' проверка на наличие записей в запросе
       If RstX.RecordCount > 0 Then
              Do
                     sResult = sResult & (IIf(Len(sResult) > 0, ", ", "") & Nz(RstX.Fields("Material"), ""))
                     RstX.MoveNext
              Loop Until RstX.EOF 
       End If
       RstX.Close
       Set RstX = Nothing
       fnSumString = sResult

On Error GoTo 0
       Exit_fnSumString:
       Exit Function

fnSumString_Error:
       MsgBox "Ошибка " & Err.Number & " (" & Err.Description & ") в процедуре fnSumString в Module Module1"
       Resume Exit_fnSumString
End Function

      Эта функция проводит суммирование значений поля "Material" для каждого сооружения.Она не является универсальной (т.е на все случаи жизни), но её можно дорабатывать для своих нужд. А вот пример запроса с использованием этой функции:

SELECT qryOFmaterial.IdOsnFond, qryOFmaterial.OsnFond, fnSumString(qryOFmaterial.IdOsnFond) AS MaterialSum
FROM qryOFmaterial
GROUP BY qryOFmaterial.IdOsnFond, qryOFmaterial.OsnFond;

      Вот собственно и всё. Но поскольку сейчас многие начинают переходить на MS SQL Server, то следует рассказать как эта задача решается и там. Там тоже используется пользовательская функция, но не написанная в программе, а хранимая на сервере. Решает она те же самые задачи. Вот её текст:

ALTER FUNCTION [dbo].[fn_OFmaterialS]
(@id INTEGER)
RETURNS NVARCHAR(100)
AS
BEGIN
      DECLARE @Result NVARCHAR(4000)
      SET @Result = ''
      SELECT @Result = @Result + case when [Material] Is null then '' else case when @Result<>'' then ', '+[Material] else       
            [Material] end end
      FROM vw_OsnFondMaterial WHERE [IdOsnFond] = @Id
      RETURN  @Result
END

Используемые источники:

Сайт HIPROG.COM Слияние полей из разных строк запроса
Сайт SQL.RU Сложение символьных полей в запросе

Ну и справочники и учебники по Access и MS SQL Server. К статье приложен небольшой пример в формате Access 2000.

Комментарий от  http://www.leadersoft.ru/

В современных языках программирования (VBA) аналогичные задачи решает функция Evаl. Пример правильного выражения:  Eval("2*30+32-345.456+sin(0.2)"). Для ASP.NET эта функция возвращает еще данные и из таблиц базы данных. Для SQL запросов такой функции нет, поэтому ее надо придумать, использовать предложенный выше вариант. Еще замечание. Если вам нужно разработать высокоскоростное решение для больших баз данных, то придумать его на языке SQL не так-то просто. Нужно использовать индексы и временные таблицы, иначе простая построчная обработка записей (например, через курсоры) займет много времени.

Некоторые вопросы на ответы можно найти в форуме: http://help.leadersoft.ru/tabid/74/forumid/1/scope/threads/Default.aspx