| 60 |
|
|
| 61 |
|
procedure TTest4.DoQuery(Attachment: IAttachment); |
| 62 |
|
var Transaction, Transaction2, Transaction3: ITransaction; |
| 63 |
< |
Statement: IStatement; |
| 63 |
> |
Statement, Statement2: IStatement; |
| 64 |
|
Rows: IResultSet; |
| 65 |
|
stats: TPerfCounters; |
| 66 |
|
begin |
| 168 |
|
writeln(OutFile,'Employee Count = ', Attachment.OpenCursorAtStart(Transaction, |
| 169 |
|
'Select count(*) from EMPLOYEE',3)[0].AsInteger); |
| 170 |
|
|
| 171 |
+ |
Statement2 := Attachment.PrepareWithNamedParameters(Transaction,'Update EMPLOYEE Set FIRST_NAME = ''Jayne''''s'' Where EMP_NO = :EMP_NO',3); |
| 172 |
+ |
Statement2.GetSQLParams.ByName('EMP_NO').AsInteger := 150; |
| 173 |
+ |
writeln(OutFile,'Updating'); |
| 174 |
+ |
Statement2.Execute; |
| 175 |
+ |
WriteAffectedRows(Statement); |
| 176 |
+ |
|
| 177 |
|
writeln(OutFile,'Prepare Query again'); |
| 178 |
|
writeln(OutFile); |
| 179 |
|
Statement.Prepare; |
| 215 |
|
Statement.Execute; |
| 216 |
|
WriteAffectedRows(Statement); |
| 217 |
|
Statement := Attachment.PrepareWithNamedParameters(Transaction,'Select * from EMPLOYEE Where EMP_NO = :EMP_NO',3); |
| 218 |
< |
Statement.GetSQLParams.ByName('EMP_NO').AsInteger := 8; |
| 218 |
> |
Statement.GetSQLParams.ByName('emp_no').AsInteger := 8; |
| 219 |
|
ReportResults(Statement); |
| 220 |
|
|
| 221 |
|
end; |
