Решение этой задачи в Delphi подобно созданию и выполнению строки запроса SQL в Paradox.
Pdoxwin код:
method pushButton(var eventInfo Event)vars stringq queryd databaseendvar d.open( "MYALIAS" )s = "select * from mytable where somefield=\"" + entryField.value + "\""q.readFromString( s )q.executeSQL( d ) endmethod |
Delphi код:
procedure TForm1.Button1Click(Sender: TObject);beginMyQuery.Active := false;MyQuery.SQL.clear;MyQuery.SQL.add('select * from mytable where somefield="' + EntryField.Text + '"');MyQuery.Active := true;end; |
[000377]