Devart Forums

Code: Select all

EntityConnection.ConnectionString := 'Data Provider=UniDAC;ProviderName=PostgreSQL;SQL Dialect=PostgreSQL;UseUniCode=True;Server=your_server;Port=5432;User=your_user;Password=your_password';

Code: Select all

var
  Connection: TUniConnection;
  Query: TUniQuery;
begin
  Connection := TUniConnection.Create(nil);
  try
    Connection.Server := '...';
    Connection.Username := '...';
    Connection.Password := '...';
    Connection.ProviderName := 'Oracle';
    Connection.Open;

    Connection.ExecSQL('CREATE TABLE TEST_NULL (NAME  VARCHAR2(50), VALUE NUMBER)');
    Connection.ExecSQL('INSERT INTO TEST_NULL VALUES (NULL, 10)');

    Query := TUniQuery.Create(nil);
    try
      Query.Connection := Connection;
      Query.SQL.Text := 'select * from test_null';
      Query.KeyFields := 'name';
      Query.Open;

      Query.Edit;
      Query.FieldByName('value').AsFloat := Query.FieldByName('value').AsFloat + 1;
      Query.Post;
    finally
      Query.Free;
    end;
  finally
    Connection.Free;
  end;
end;

Code: Select all

UPDATE TEST_NULL
SET
  VALUE = :VALUE
WHERE
  NAME IS NULL