Mid и trim

[NuraPROG]

Здравствуйте. с структурой select я разобралась, но в данной строке скинутой как пример не могу разобраться с вот этим выражением Mid(Trim(Str([kodzprn]))

INSERT INTO шаг1 ( munr, tippos, oktmo, god, period, nomsob, zn" + Trim(Str([knp])) + ", zn )" _
        SELECT " + Mid(Trim(Str([kodzprn])), 1, 5) + Trim(Str(0)) + Trim(Str(0)) + Trim(Str(0)) + " AS Выражение1" _
        " + IIf(Mid(Trim(Str([kodzprn])), 6, 1) = Trim(Str(4)), 4, 1) + " AS Выражение2, tab.kodzprn" _
         " + Forms!dbo_p_munr.pGod.Value + " AS Выражение3, 0 AS Выражение5, 0 AS Выражение6, Val(0) AS Выражение4" _
        FROM tab;

[Stilet]

Mid(Trim(Str([kodzprn])), 1, 5) + Trim(Str(0)) + Trim(Str(0)) + Trim(Str(0))

Ой ой... А можно узнать, что именно это выражение делает и для чего?

[NuraPROG]

Да вот руководитель скинул программку как пример в access а нужно разобраться и на delphi сделать а вот с mid так запутанно, кажется все это бессмыслица какая то,решила спросить помощи вдруг я что то не понимаю...

[Stilet]

Чего я не пониаю, так это зачем использовать функции Делфи в запросе, если можно (скорее всего) использовать функции самой СУБД. Задание какое? Что делается этим запросом? Что нужно получить?

[Аватар]

Там с кавычками беда, да и Trim(Str(0)) + Trim(Str(0)) + Trim(Str(0)) можно заменить на '000'

SELECT Mid(Trim(Str([kodzprn])), 1, 5) + '000' AS Выражение1

[Serge_Bliznykov]

mid - фукция в MS Access получения ПОДСТРОКИ из строки

Mid(Trim(Str([kodzprn])), 1, 5)

банально получить первые пять символов значения поля kodzprn

Mid(Trim(Str([kodzprn])), 6, 1)

получить один 6-й символ из поля kodzprn

[NuraPROG]

Извините,а как в Delphi это получить? как здесь правильнее будет оформить mid?

   sql.add('LEFT JOIN shag1 ON p_oktmo_v.kodzprn=shag1.oktmo');
   sql.add('WHERE shag1.oktmo Is Null');
   sql.add('and p_oktmo_v.kodzprn<>  Mid(str(Edit1.Text))), 1, 5)+str(100)');
   sql.add('and p_oktmo_v.kodzprn<>  Mid(str(Edit1.Text))), 1, 5)+str(400)');

[Serge_Bliznykov]

ну, для начала, если стоит задача выполнить код из сообщения #1, то просто вставляйте его в Delphi и выполняйте, вообще ничего менять не надо.

во-вторых, если вам нужно выделить часть из Edit1.Text, то для получения подстроки из строки есть функция Copy:

sql.add('and p_oktmo_v.kodzprn<>  '+Copy(Edit1.Text, 1, 5)+'000');
sql.add('and p_oktmo_v.kodzprn<>  '+Copy(Edit1.Text, 1, 5)+'400');

[NuraPROG]

iif возвращает один из двух объектов в зависимости от условия. а тут условие если IIf(Mid(Trim(Str([kodzprn])), 6, 1) = Trim(Str(4)), 4, 1) + " AS Выражение2, tab.kodzprn" ? как то все запутано здесь с этим IIF.

Trim(Str(4)), 4, 1) и здесь какой смысл, берет один 4ый символ из '4'.
Что то я напутала все...

[Аватар]

Ваш запрос из VBA можно примерно так перевести

SELECT Mid(Trim(Str([kodzprn])),1,5)+'000' AS Выражение1,
       IIF(Mid(Trim(Str([kodzprn])),6,1)='4',4,1) AS Выражение2, tab.kodzprn,
       'здесь некая константа' AS Выражение3, 0 AS Выражение5, 0 AS Выражение6, Val(0) AS Выражение4
  FROM tab

Что там Val(0) делает не понимаю. Возможно тоже константа какая-то

iif возвращает один из двух объектов

возвращает 1 или 4