ADOquery sql запрос в access

[hemn6vyr]

Вот функция выполнения sql запроса

Function SQL(SQL, Param: TStringList): TStringList; Stdcall;
  Var
    I: Integer;
  Begin
    Result := TStringList.Create;
    Try
      Query.Close;
      Query.SQL.Clear;
      For I := 0 To SQL.Count - 1 Do
        Begin
          Query.SQL.Add(SQL[I]);
        End;
      Query.ExecSQL;
      Query.Open;
      If Param[0] <> 'non' Then
        Begin
          For I := 0 To Param.Count - 1 Do
            Begin
              Result.Add(Query.FieldByName(Param[I]).AsString);
            End;
        End
      Else
        Begin
          Result.Add('Good');
        End;
      Query.Close;
    Except
      On E: Exception Do
        Begin
          Result.Add('Ошибка: [' + E.ClassName + '] [' + E.Message + ']');
        End;
    End;
  End;

Вот вызов этой функции

  Procedure TTTEdit.Button1Click(Sender: TObject);
    Var
      A, B: TStringList;
    Begin
      A := TSTringList.Create;
      B := Tstringlist.Create;
      B.Add('non');
      A.Add('IF EXISTS (SELECT FROM [Tablica|Fac] WHERE ddate = ' + #39 + '25.03.13' + #39 + ')');
      A.Add('UPDATE [Tablica|Fac] SET les1 = 123, les2 = 234, les3 = 123 WHERE ddate = ' + #39 + '25.03.13' + #39);
      A.Add('ELSE');
      A.Add('INSERT INTO [Tablica|Fac] (les1, les2, les3) VALUES (3, 20wq, 3dd)');
      ShowMessage(ConStr('C:\Google Диск\Di\Win32\Release\TimeTable.mdb').Text);
      SQL(A, B);
    End;

Приложение при вызове зависает.
С sql знаком плохо, не подскажете что тут не так?

[eval]

тут до sql еще далеко, тут надо сначала код весь переписать.

[hemn6vyr]

Сообщение от eval

тут до sql еще далеко, тут надо сначала код весь переписать.

Код работает, и результаты выдаёт. А вот с этим запросом что-то не так.

[Yurk@]

какая-то неясная 1я процедура(
1. а ты пробовал выполнить этот запрос в простом ADOQuery, без всяких заморочек?
2. к чему такие сложности в реализации?

UPD:
1.

Query.ExecSQL;
Query.Open;

должно быть что-то одно
2. должно быть

A.Add('IF EXISTS (SELECT * FROM [Tablica|Fac]

3. что есть [Tablica|Fac] ? какое-то странное название таблицы

[eval]

Код работает, и результаты выдаёт.

это не код а пьяный бред

это что?
Query.Close;
Query.SQL.Clear;

это что?
For I := 0 To SQL.Count - 1 Do
Begin
Query.SQL.Add(SQL[I]);
End;

это что?
Query.ExecSQL;
Query.Open;


дальше еще хуже ..

[hemn6vyr]

Сообщение от Yurk@

какая-то неясная 1я процедура(
1. а ты пробовал выполнить этот запрос в простом ADOQuery, без всяких заморочек?
2. к чему такие сложности в реализации?

Первая процедура принимает 2 стринглиста. первый - эт sql запрос,

      For I := 0 To SQL.Count - 1 Do
        Begin
          Query.SQL.Add(SQL[I]);
        End;

второй поля которые надо вернуть.

If Param[0] <> 'non' Then
        Begin
          For I := 0 To Param.Count - 1 Do
            Begin
              Result.Add(Query.FieldByName(Param[I]).AsString);
            End;
        End
      Else
        Begin
          Result.Add('Good');
        End;

А в остальном это

      Query.Close;
      Query.SQL.Clear;
      Query.SQL.Add(SQL[I]);
      Query.ExecSQL;
      Query.Open;
      Result.Add(Query.FieldByName(Param[I]).AsString);
      Query.Close;

Вот приложение именно на запросе и зависает :-(

[eval]

ddate = ' + #39 + '25.03.13' + #39 +

а это надо в тему шедевров

[Yurk@]

согласен с eval, бред редкий
hemn6vyr, я уловил логику работы функции, но спросил я тебя совсем другое: попробуй этот sql запрос выполнить в каком-нибудь slq-редакторе (хоть в том же access-е) ... выполнится ли он?

[hemn6vyr]

Сообщение от eval

Query.Close;
Query.SQL.Clear;

Очистка, ибо не во всех функциях после использования он чистится.

Сообщение от eval

For I := 0 To SQL.Count - 1 Do
Begin
Query.SQL.Add(SQL[I]);
End;

запрос в tstringlist ибо удобнее оперировать.

Сообщение от eval

Query.ExecSQL;
Query.Open;

А это пережитки прошлого

[hemn6vyr]

Сообщение от eval

а это надо в тему шедевров

Пожалуйста, только без кавычек ошибка, а delphi думает что кавычка - начало/конец строки :-)