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

Previous  Top  Next

    
 

 

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

 

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

 

Pdoxwin код:

Code:

method pushButton(var eventInfo Event)

var

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