Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

{Вытащит аж одно значение(лукап) из выборки, заданной ...}

functionFastLookUP(SQLscript: TSQLscript): string;

{Выполнит запрос и сообщит результат}

functionExecuteSQL(SQLscript: TSQLscript): boolean;

implementation

usesForms;

functionCreateTempQuery(SQLscript: TSQLscript): TQuery;

begin

Result:= TQuery.Create(Application);

withResult do begin

DatabaseName := InternalDBname;

{$IFDEF WIN32}

SQL.Text := SQLscript;

{$ELSE}

SQL.SetText(SQLscript);

{$ENDIF}

end;

end;

functionExecuteSQL(SQLscript: TSQLscript): boolean;

begin

withCreateTempQuery(SQLscript) do begin

try

ExecSQL;

Result := True;

except

Result := False;

end;

Free;

end;

end;

functionCheckExistence(SQLscript: TSQLscript): boolean;

begin

withGiveMeResultSET(SQLscript) do begin

Result := NOTEOF;

Free;

end;

end;

functionGiveMeResultSET(SQLscript: TSQLscript): TQuery;

begin

Result := CreateTempQuery(SQLscript);

withResult do try

Open;

except

Free;

Result:= NIL;

end;

end;

functionFastLookUP(SQLscript: TSQLscript): string;

begin

withGiveMeResultSET(SQLscript) do begin

try

Result:= Fields[0].AsString;

except

Result:= '';

end;

Free;

end;

end;

end.

В случае изменения содержимого полей редактирования сделайте следующее:

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('SELECT * FROM <���таблица>WHERE <���поле>LIKE ''' + SpeedEdit.Text + '*''');

Query1.Open;

Будут возвращены все записи, указанные в поле редактирования.

Nomadicотвечает:

В данном случае, видимо, T39C0 расценивается как псевдоним. Hо стандартом SQL-92 такое запрещено в DELETE.

Цитата собственно из этого стандарта (сборник из delete и names and identifiers, определение identifier пропущено, просто набор | , начинается с буквы):

Format ::= delete from

::= [] []

::=

::=[]

::=

::=

::= MODULE

::=

Стандартом запрещено вот такое

select test.a, p_test.a from test p_test;

вот это не по стандарту, хотя Microsoft SQL Server такое ест.

Предположим:

1. если вашей таблицы определены следующие поля…

last_name char (n),

first_name char (n)

то…

select

last_name+', '+first_name

from

person

where

first_name='john'

2. если вашей таблицы определены следующие поля…

person_name char (n) (например, Lennon, John)

то…

select

person_name

from

person

where

person_name like '%John' <--- 'John' должен быть в конце строки, еще используйте '%John%'

Nomadicотвечает:

SELECT CAST((поле_с_датой –"NOW") AS INTEGER) FROM MyBase

Получишь результат в днях.

Есть множество способов сделать это:

1. Если дата константа, используйте:

WHERE Date = #31/11/95#

В зависимости от «настроек вашей страны», это могло бы быть и #11/31/95#. Попробуйте оба: один из них работает.

2. Если дата является переменной, вы должны воспользоваться параметром, например так:

WHERE Date = :MyDate

Затем, после нажатия на ok, выберите в Инспекторе Объектов для Query свойство Params, нажмите на кнопку с тремя точками, и установите MyDate как тип Date.

SELECT * from PFMANUAL WHERE PRMANUAL."DATE" = "31/11/95"

Я обнаружил это после решения аналогичной проблемы, когда для создания QBE-запроса я использовал DataBase Desktop, а затем «переводил» запрос на SQL.