Интерактивные 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;

Недавно добавленные исходники
• Animation Loaders 963 • DeLiKaTeS Tetris (Тетрис) 5 898 • TDictionary Custom Sort 7 850 • Fast Watermark Sources 7 519 • 3D Designer 10 748 • Sik Screen Capture 8 078 • Patch Maker 8 279 • Айболит (remote control) 8 325 • ListBox Drag & Drop 7 161 • Доска для игры Реверси 101 099 • Графические эффекты 8 392 • Рисование по маске 7 768 • Перетаскивание изображений 6 362 • Canvas Drawing 6 738 • Рисование Луны 6 667 • Поворот изображения 5 799 • Рисование стержней 4 742 • Paint on Shape 3 442 • Генератор кроссвордов 4 435 • Головоломка Paletto 3 577 • Теорема Монжа об окружностях 4 375 • Пазл Numbrix 2 833 • Заборы и коммивояжеры 3 786 • Игра HIP 2 552 • Игра Go (Го) 2 558 • Симулятор лифта 2 948 • Программа укладки плитки 2 373 • Генератор лабиринта 3 124 • Проверка числового ввода 2 608 • HEX View 3 014

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

Похожие по теме исходники