Devart Forum

Код: Выделить всё

uses ..., PgErrorUni;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    UniQuery1.SQL.Text := 'INSERT INTO displayscale_table(displayscale_scale) VALUES (1)';
    UniQuery1.ExecSQL;
  except
    on E: EUniError do begin
      if (E.InnerError is EPGError) then
       ShowMessage('DETAIL: ' + EPgError(E.InnerError).DetailMsg);
    ...
    end;
  end;
end;

Код: Выделить всё

SQLConnection1.Params.Values['SchemaName'] := 'data';

Код: Выделить всё

procedure TForm1.SQLConnection1AfterConnect(Sender: TObject);
const
  coFetchAll = TSQLConnectionOption(301); //boolean
  coSchemaName = TSQLConnectionOption(28); // string
begin
  SQLConnection1.SQLConnection.SetOption(coFetchAll, Integer(False));
  SQLConnection1.SQLConnection.SetOption(coSchemaName, Integer(PChar('data')));
end;

Код: Выделить всё

  SimpleDataSet1.Active:=false;
  SQLConnection1.Connected:=false;
  SimpleDataSet1.DataSet.CommandText := 'select data.f_AsInteger('12345') from data.duals';
  SQLConnection1.Connected:=true;
  SimpleDataSet1.Active:=true;

Код: Выделить всё

  SimpleDataSet1.Active:=true; 

Код: Выделить всё

SimpleDataSet1.DataSet.CommandText := 'select data.f_Setin(1,1) '; 
SimpleDataSet1.Active:=true; 

Код: Выделить всё

procedure TMasterDetailFrame.btOpenClick(Sender: TObject);
begin
...
  quDetail.CachedUpdates := True; // добавьте код сюда

Код: Выделить всё

OraQuery1.IndexFieldNames := 'num';