Devart Forums

Code: Select all

PgQuery1.SQL.Text := 'SELECT * '
+ 'FROM table1 '
+ 'WHERE field1 = :param1';
PgQuery1.ParamByName('param1').AsString := Edit1.Text;
PgQuery1.Open;

Code: Select all

---------------------------
Debugger Exception Notification
---------------------------
Project MyQ.exe raised exception class EOleException with message 'type "e" does not exist'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

Code: Select all

  object AuthenticationABRIpgQuery1: TPgQuery
    Connection = AdminPgConnection1
    SQL.Strings = (
      'select u.*, ua.soc_code, ua.access_option '
      'from users u '
      'left join user_auths ua on u.user_id = ua.user_id '
      'where u.user_status = ''A'' '
      'and u.user_id = :UserID '
      'and passwd = :Password;')
    ReadOnly = True
    Options.ExtendedFieldsInfo = False
    Options.UnknownAsString = True
    Options.UnpreparedExecute = True
    Left = 184
    Top = 304
    ParamData = 
  end

Code: Select all

11:20:38.191	Start: 
11:20:38.237	select u.*, ua.soc_code, ua.access_option 
from users u 
left join user_auths ua on u.user_id = ua.user_id 
where u.user_status = 'A' 
and u.user_id = :UserID 
and passwd = :Password;
:UserID(String[2],IN)='aj' 
:Password(String[16],IN)='vG85YqZ9zSziXw=='
11:20:38.316	Error: type "e" does not exist
11:20:41.784	Commit: 

Code: Select all

CREATE TABLE users
(
  user_id character varying(8) NOT NULL,
  user_name character varying(40),
  user_manager_id character varying(8),
  passwd character varying(50),
  passwd_expiry_date date,
  db_passwd character varying(50),
  user_status character(1),
  email character varying(64),
  user_location character varying(40),
  user_phone character varying(32),
  user_contact_info character varying(100),
  default_printer_key smallint,
  hint_level smallint DEFAULT 1,
  signon_cnt smallint DEFAULT 0,
  failed_signon_cnt smallint DEFAULT 0,
  last_signon_date timestamp(0) with time zone,
  signon_tag integer DEFAULT 0,
  shell_opts character varying(32),
  create_date timestamp with time zone,
  create_user_id character varying(8),
  last_upd_date timestamp with time zone,
  last_upd_user_id character varying(8),
  location_list character varying(64),
  location_key integer,
  CONSTRAINT users_pkey PRIMARY KEY (user_id),
  CONSTRAINT "$1" CHECK (user_status = 'I'::bpchar OR user_status = 'A'::bpchar OR user_status = 'T'::bpchar OR user_status = 'L'::bpchar)
)
WITHOUT OIDS;

CREATE TABLE user_auths
(
  user_id character varying(8) NOT NULL,
  soc_code character varying(8) NOT NULL,
  access_option character varying(20),
  user_status character(1),
  db_name character varying(32),
  email character varying(64),
  default_printer_key smallint,
  create_date timestamp with time zone,
  create_user_id character varying(8),
  last_upd_date timestamp with time zone,
  last_upd_user_id character varying(8),
  location_key integer,
  CONSTRAINT user_auths_pkey PRIMARY KEY (user_id, soc_code),
  CONSTRAINT ua_db_name_fk FOREIGN KEY (soc_code, db_name)
      REFERENCES dbs (soc_code, db_name) MATCH SIMPLE
      ON UPDATE CASCADE ON DELETE CASCADE,
  CONSTRAINT "$1" CHECK (user_status = 'I'::bpchar OR user_status = 'A'::bpchar OR user_status = 'T'::bpchar)
)
WITHOUT OIDS;

Code: Select all

  object AdminPgConnection1: TPgConnection
    Username = 'user'
    Password = 'password'
    Server = '192.168.0.100'
    LoginPrompt = False
    AfterConnect = PgConnection1AfterConnect
    BeforeConnect = PgConnection1BeforeConnect
    AfterDisconnect = PgConnection1AfterDisconnect
    Database = 'admin_db'
    Options.ApplicationName = 'pgDACTest'
    ConnectionTimeout = 1
    Left = 584
    Top = 56
  end