Devart Forums

Code: Select all

IF NOT EXISTS public.t_autoinc f_id integer NOT NULL DEFAULT nextval('t_autoinc_f_id_seq'::regclass), f_txt character varying(20), CONSTRAINT pk_t_autoinc PRIMARY KEY (f_id))

Code: Select all

	TPgConnection *PgConnection = new TPgConnection(NULL);
	TPgTable *PgTable = new TPgTable(NULL);
	PgConnection->ConnectString = "...";
	PgConnection->Connect();
	PgTable->Connection = PgConnection;
	PgTable->TableName = "t_autoinc";
	PgTable->Options->ReturnParams = True;
	PgTable->SQLInsert->Text = "INSERT INTO t_autoinc (f_txt) VALUES (:f_txt) returning f_id";
	PgTable->Open();
	PgTable->Append();
	PgTable->FieldByName("f_txt")->AsString = "test";
	PgTable->Post();
	ShowMessage(PgTable->FieldByName("f_id")->AsString);
	PgTable->Close();

Code: Select all

INSERT INTO t_autoinc (f_txt) VALUES (:f_txt) returning f_id

Code: Select all

CREATE TABLE public.t_autoinc
(
  f_id integer NOT NULL DEFAULT nextval('t_autoinc_f_id_seq'::regclass),
  f_txt character varying(20),
  CONSTRAINT pk_t_autoinc PRIMARY KEY (f_id)
)

Code: Select all

  PgQuery1.SQL.Text := 'select * from t_autoinc';
  PgQuery1.SQLInsert.Text := 'INSERT INTO t_autoinc (f_txt) VALUES (:f_txt) returning f_id';
  PgQuery1.Options.ReturnParams := True;
  PgQuery1.Open;
  PgQuery1.Append;
  PgQuery1.Fields[1].AsString := 'test';
  PgQuery1.Post;
  ShowMessage(PgQuery1.Fields[0].AsString);