- 3- . C++Builder 3.0,  "/"  Internet
. 7.3.       SQL-,  
     :  7.1
		
DBNavigatorl	DataSource	DataSourcel
DBGrid	DataSource	DataSourcel
Button 1	Caption	Use SQL
Button2:	Caption	Update records
ButtonS :	Caption	Exit
DataSourcel	DataSet	Tablel
Tablel	DatabaseName	ORACLE?
	TableName	HOLDINGS
	UpdateMode	UpWhereKeyOnly
Table 1PUR_PRICE	FieldName	PUR PRICE
Queryl	DatabaseName	ORACLE?
	SQL	UPDATE HOLDINGS SET PUR_PRICE=PUR_PRICEHO
   ,     .  Update records    xBase-,  :
156
  C++Builder   "/"
void _fastcall TForml::Button2Click(TObject *Sender)
{
Table1->First();
DataSourcel ->Enabled=false;  / /He ^_,_
!     IT while (!Tablel->Eof) '*"
{
Table1->Edit(); Tablel PUR_PRICE->Valtt4=Table1PUR_PRICE->Value+10;
Table1->Next();
>
DataSourcel->Enabled=tcue; //,  ...
}	''            '*'
    DataSourcel  Table 1       ,    -HeHjaJD>B_Gridl    .
 Use" SQL    SQL- UPDATE HOLDINGS SET PUR_PRICE=PUR_PRICE+10:
void _fastcall TForml::Button1Click(TObject *Sender)
{
Queryl->Prepare();
Queryl->ExecSQL() ;
Tablel->Refresh(); //  ...
}
 ,  SQL Monitor  ,    BDE     .
   Update records log-   :
1	14:37:08    SQL  Prepare:   ORACLE   -  UPDATE   "HOLDINGS" SET   "PUR_PRICE"=:1   WHERE   "ROWID"=:2
2	14:37:08    SQL  Execute:   ORACLE   -  UPDATE   "HOLDINGS" SET   "PUR_PRICE"=:1   WHERE   "ROWID"=:2
3	14:37:08    SQL Stmt:   ORACLE   -   Close
4	14:37:08     SQL  Prepare:   ORACLE   -   SELECT   "ACCT_NBR" ."SYMBOL"    ."SHARES"    ,"PUR_PRICE"    ,"PUR_DATE"    ,"ROWID"      FROM "HOLDINGS"   WHERE   "ACCT_NBR"=:1
5	14:37:08     SQL  Execute:   ORACLE   -   SELECT   "ACCTJJBR" ."SYMBOL"    ."SHARES"    ,"PUR_PRICE"    ,"PUR_DATE"    ."ROWID"      FROM "HOLDINGS"   WHERE   "ACCT_NBR"=:1
6	14:37:08     SQL  Misc:   ORACLE   -   Set   rowset   size
157