Запрос SQL из Access в Delphi

[Talemir]

В Access я использовал запрос:
SELECT ObjList.Number, EvList.Time, ObjList.Name, ObjList.Address, EvType.Name, EvList.Info, Person.Status, Person.FirstName
FROM EvList, EvType, ObjList, Person
WHERE EvList.EvId=EvType.ID AND EvList.ObjId=ObjList.ID AND EvList.OperatorID=Person.ID AND EvType.ID=2621
ORDER BY Time, ObjList.Number;

Он работал и работает безупречно

Но Как реализовать данный запрос SQL в Delphi? При нажатии на кнопу в DBGrid отображалась тоже, что и в Access

[vovk]

Запрос пишется как текст, то есть компоненты которые работают с запросами работают со строкой.
Если это акцес, то компоненты скорее всего TADOQuery, или TADODataset.
если компонент TADOQuery тоиспользование запроса на выборку в общем виде выглядит так

TADOQuery.close;
TADOQuery.SQL.TEXTL='ваш запрос';
TADOQuery.open;

если TADODataset то так

TADODataset.close
TADODataset.CommandType:=cmdText;//на всякий :)
TADODataset.CommandText:='ваш запрос';
TADODataset.open;

[Talemir]

Я прописывал таким образом в Delphi

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT ObjList.Number, EvList.Time, ObjList.Name, ObjList.Address, EvType.Name, EvList.Info, Person.Status, Person.FirstName FROM EvList, EvType, ObjList, Person WHERE (EvList.EvId=EvType.ID) AND (EvType.ID=2621)');
ADOQuery1.Open;
И все зависло!!!

[vovk]

если вы переносите в редакторе текст по строкам, то надо так

ADOQuery1.SQL.Text:='SELECT ObjList.Number, EvList.Time, '+ 
'ObjList.Name, ObjList.Address, EvType.Name, EvList.Info, Person.Status, '+ 
'Person.FirstName FROM EvList, EvType, ObjList, Person WHERE '+
'(EvList.EvId=EvType.ID) AND (EvType.ID=2621)';

надо же чтоб это воспринималось как строка.
или так

ADOQuery1.SQL.Add('SELECT ObjList.Number, EvList.Time, '); 
ADOQuery1.SQL.Add('ObjList.Name, ObjList.Address, EvType.Name, '); 
ADOQuery1.SQL.Add('EvList.Info, Person.Status, Person.FirstName FROM ');
ADOQuery1.SQL.Add('EvList, EvType, ObjList, Person WHERE ');
 ADOQuery1.SQL.Add'(EvList.EvId=EvType.ID) AND (EvType.ID=2621)');

[Talemir]

Позже попробую. Заранее спасибо

[Talemir]

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

если вы переносите в редакторе текст по строкам, то надо так

ADOQuery1.SQL.Text:='SELECT ObjList.Number, EvList.Time, '+ 
'ObjList.Name, ObjList.Address, EvType.Name, EvList.Info, Person.Status, '+ 
'Person.FirstName FROM EvList, EvType, ObjList, Person WHERE '+
'(EvList.EvId=EvType.ID) AND (EvType.ID=2621)';

надо же чтоб это воспринималось как строка.
или так

ADOQuery1.SQL.Add('SELECT ObjList.Number, EvList.Time, '); 
ADOQuery1.SQL.Add('ObjList.Name, ObjList.Address, EvType.Name, '); 
ADOQuery1.SQL.Add('EvList.Info, Person.Status, Person.FirstName FROM ');
ADOQuery1.SQL.Add('EvList, EvType, ObjList, Person WHERE ');
 ADOQuery1.SQL.Add'(EvList.EvId=EvType.ID) AND (EvType.ID=2621)');

УРА !!! Все заработало Огромное спасиба!!!