Ошибка в коде SELECT

[Dandy777]

else if DataModule1.TableOperationsKEY.AsString = '2' then  // Перевод пользователя
begin
  DataModule1.ResultSQL.Active:=false;
  DataModule1.ResultSQL.SQL.Clear;
  DataModule1.ResultSQL.SQL.Add('SELECT *');
  DataModule1.ResultSQL.SQL.Add('FROM [USERS],[RESULT],[OPERATIONS],[Branch]');
  DataModule1.ResultSQL.SQL.Add('WHERE [USERS].[LastName] LIKE ''' + '%' + Edit1.Text + '%' +
 ''' and [USERS].[key]=[RESULT].[user] and [RESULT].[operation]=[OPERATIONS].[key] and
 [RESULT].[Branch1]=[BRANCH].[key] and [OPERATIONS].[key]=2');
  DataModule1.ResultSQL.SQL.Add('ORDER BY [RESULT].[date] DESC');
  DataModule1.ResultSQLLastName.Visible:=True;
  DataModule1.ResultSQLFirstName.Visible:=True;
  DataModule1.ResultSQLMiddleName.Visible:=True;
  DataModule1.ResultSQLLBranch1.Visible:=True;
  DataModule1.ResultSQLLBranch2.Visible:=True;
  DataModule1.ResultSQLDateFrom.Visible:=True;
  DataModule1.ResultSQLDateTo.Visible:=True;
  DataModule1.ResultSQLOperationsName.DisplayWidth:=20;
  DataModule1.ResultSQLOperationsName.Visible:=True;
  DataModule1.ResultSQLDate.Visible:=True;
  DataModule1.ResultSQL.Active:=true;
end
else if DataModule1.TableOperationsKEY.AsString = '3' then //Изменение прав в системе
begin
  DataModule1.ResultSQL.Active:=false;
  DataModule1.ResultSQL.SQL.Clear;
  DataModule1.ResultSQL.SQL.Add('SELECT [Users].[LastName],[Users].[FirstName], [Users].[MiddleName], 
[Operations].[OperationsName], [Result].[Date], [Result].[Zayavka]');
  DataModule1.ResultSQL.SQL.Add('FROM [USERS],[RESULT],[OPERATIONS]');
  DataModule1.ResultSQL.SQL.Add('WHERE [USERS].[LastName] LIKE ''' + '%' + Edit1.Text + '%' 
+ ''' and [Result].[User]=[Users].[KEY] and [Result].[Operation]=[Operations].[KEY] and [Result].[Operation]=3');
  //DataModule1.ResultSQL.SQL.Add('ORDER BY [RESULT].[date] DESC');
  DataModule1.ResultSQLLastName.Visible:=True;
  DataModule1.ResultSQLFirstName.Visible:=True;
  DataModule1.ResultSQLMiddleName.Visible:=True;
  DataModule1.ResultSQLOperationsName.DisplayWidth:=20;
  DataModule1.ResultSQLOperationsName.Visible:=True;
  DataModule1.ResultSQLDate.Visible:=True;
  DataModule1.ResultSQL.Active:=True;
end;

Вот участок кода:
// Перевод пользователя
Здесь SELECT отрабатывает как надо и отображает требуемые данные

//Изменение прав в системе
Здесь выдает вот такую ошибку


Вот поля ResultSQL

[eval]

AsString = '2'

Это что такое?

ResultSQL

Это что?

[Dandy777]

AsString = '2'

Код отвечающий за выбранную операцию

ResultSQL

Компонент ADOQuery который связан с DBGrid в который выводятся данные.

[eval]

Код отвечающий за выбранную операцию

Почему стрингом?

ADOQuery

Заменить на ADODataSet

Где конечная строка запроса?

[Аватар]

Заменить на ADODataSet

Это решит проблему?

По сути - в ResultSQL потянуты поля из первого запроса, а во втором запросе совершенно другая структура данных

[eval]

Это решит проблему?

И не одну.

[Dandy777]

Не лучше ли будет решить данную задачу через Stored Procedure или все же лучше использовать ADODataSet?

[eval]

Одно другому не мешает.

[Sciv]

по поводу исходных граблей - у меня такая проблема возникала с dbf-таблицами, тоже поле User. Видимо, оно как-то зарезервировано в DBase IV, так как обращение <tablename>."User" решило проблему.

[Аватар]

В данном случае ошибка не провайдера. Поле User потянуто в DataSet. 2-ой запрос выполняется, а в списке возвращаемых полей нет поля User. В результате ошибка, исключение дельфи создает. Или тянуть в различные DataSet, или поля не тянуть в него и обращаться к ним через FieldByName