Интерактивные SQL-запросы |
Previous Top Next |
Как мне передать значение переменной в SQL-запросе? К примеру, в обработчике onClick клавиши вывести все записи с величиной поля большей, чем задал пользователь. Можно ли в Delphi создать что-либо подобное механизму запросов, реализованному в Paradox for Windows?
Решение этой задачи в Delphi подобно созданию и выполнению строки запроса SQL в Paradox.
Pdoxwin код:
Code: |
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 код:
Code: |
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; |
©Drkb::03101
Взято с http://delphiworld.narod.ru