Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Интерактивные SQL-запросы

Автор: Poseidon 18.5.2005, 19:22

Как мне передать значение переменной в 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;