Интерактивные SQL-запросы

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Как мне передать значение переменной в SQL-запросе? К примеру, в обработчике onClick клавиши вывести все записи с величиной поля большей, чем задал пользователь. Можно ли в Delphi создать что-либо подобное механизму запросов, реализованному в Paradox for Windows?

Решение этой задачи в Delphi подобно созданию и выполнению строки запроса SQL в Paradox.

Pdoxwin код:

method pushButton(var eventInfo Event)

var

s string

q query

d database

endvar

d.open( «MYALIAS» )

s = «select * from mytable where somefield=\»» entryField.value «\»»

q.readFromString( s )

q.executeSQL( d )

endmethod

Delphi код:

procedure TForm1.Button1Click(Sender: TObject);

begin

MyQuery.Active := false;

MyQuery.SQL.clear;

MyQuery.SQL.add(‘select * from mytable where somefield=»‘

EntryField.Text ‘»‘);

MyQuery.Active := true;

end;

{/codecitation}

Добавить комментарий