sql - Inserting a record in sybase db table using stored procedure - delphi programming -

sql - Inserting a record in sybase db table using stored procedure - delphi programming -

i new @ programming delphi. creating simple notebook programme , need help. have form called contacts 5 tedit fields. thinking create stored procedure in sybase database insert record contacts table, can phone call delphi programm. how phone call procedure in delphi? values inserted should taken users input these tedit fields. has suggestions? or thinking wrong way? in advance

you have several options here, , depend on vcl controls using. (1). can insert via ttable component. let's have quick, easy, low level control. drop component on form, set component properties (tablename, etc), like

mytable.open; mytable.insert; (or maybe append) mytable.fieldbyname('my_field').asstring := 'bob'; // set field values mytable.post;

(2). utilize sql. drop sql component on form. set sqltext property, using parameters; illustration : "insert table (myfield) values :x". sentiment easier in complex situations, correlated subselects, etc.

mysql.close; mysql.parambyname('x').asstring := 'bob'; execsql;

(3). utilize stored procedures. - advantage useable multiple applications, , can changed easily. if want update sql code, update 1 time (in database), versus having alter in app, , distribute app multiple users.

the code identify (2), although don't know specifics of vcl library. in effect though, specify routine run, specify parameter values, , execute stored procedure.

note these routines homecoming error code or exception code. best practice check that...

here little more complex example, using sql statement called qloader. qloader exists on datamodule. passing parameter, executing sql statement, iterating through results.

seek dmxlate.qloader begin close; parambyname('dbtype').asstring := dbtype; open; while not dmxlate.qloader.eof begin // here process each result username:= dmxlate.qloader.fieldbyname('username').asstring; dmxlate.qloader.next; end; end; except on e: exception begin showmessage(e.message); exit; end; end;

sql delphi stored-procedures sybase-asa delphi-xe7