{ TSQLStandardDBProtocolSQLNet15 sqlNet; TSQLStandardDataStoreOracle7 oracle7; TSQLStandardConnectionHandle dbc(sqlNet, oracle7);
dbc.LogonStep(1, TSQLLogonStep( TStandardText("t:129.213.80.90:SAMP"), TStandardText("auser"), TStandardText("apassword"))); TSQLCommandHandle insertCmd(dbc.CreateSQLCommand(TStandardText( "INSERT INTO Project VALUES(?, ?)"))); insertCmd.Parameter(2) = TStandardText("Marketing"); for (long empNo = 1; empNo <= 10; empNo++) { insertCmd.Parameter(1) = empNo; insertCmd.Execute(); }