Интерактивные SQL-запросы
Как мне передать значение переменной в 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;
|
[000377]