Vb Переделать На Mssql

Тема в разделе "Delphi - Базы данных", создана пользователем Nura, 19 окт 2013.

  1. Nura

    Nura New Member

    Регистрация:
    19 окт 2013
    Сообщения:
    1
    Симпатии:
    0
    Помогите разобраться с sql запросом!!!
    ПЕределать данный текс на VB для запроса к ACCESS на DELPHI для MSSQL.
    Код (LotusScript):
     strSQL = "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;"
    Вот мои несчастные попытки:
    Код (LotusScript):
        sql.add('INSERT INTO shag1');
    sql.Add('SELECT munr, tippos,oktmo, god, zn8006001 as prosto');
    sql.Add('Case WHEN '+Copy(Edit1.Text, 6, 1)+' =inttostr(4)');
    sql.Add('THEN '+Copy(Edit1.Text, 6, 1)+'= inttostr(4)+ strtoint(Âûðàæåíèå2), tab.kodzprn, '+ QuotedStr(Edit2.Text)+' AS strtoint(Âûðàæåíèå3), 0 AS strtoint(Âûðàæåíèå5), 0 AS strtoint(Âûðàæåíèå6), Val(0) AS strtoint(Âûðàæåíèå4)');
    sql.add(' else '+Copy(Edit1.Text, 6, 1)+'=inttostr(1)+ strtoint(Âûðàæåíèå2), tab.kodzprn,'+QuotedStr(Edit2.Text)+' AS strtoint(Âûðàæåíèå3), 0 AS strtoint(Âûðàæåíèå5), 0 strtoint(Âûðàæåíèå6), Val(0) AS AS strtoint(Âûðàæåíèå4)');
    sql.Add('From tab');
     
Загрузка...
Похожие Темы - Переделать На Mssql
  1. Ruslan737
    Ответов:
    0
    Просмотров:
    1.106
  2. Ruslan737
    Ответов:
    0
    Просмотров:
    878
  3. Ruslan737
    Ответов:
    0
    Просмотров:
    894
  4. Ruslan737
    Ответов:
    0
    Просмотров:
    972
  5. Ruslan737
    Ответов:
    0
    Просмотров:
    784

Поделиться этой страницей