ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/testsuite/Test3.pas
(Generate patch)

Comparing ibx/trunk/fbintf/testsuite/Test3.pas (file contents):
Revision 401 by tony, Mon Jan 10 10:13:17 2022 UTC vs.
Revision 402 by tony, Mon Aug 1 10:07:24 2022 UTC

# Line 103 | Line 103 | begin
103                                                              isc_info_tra_oldest_snapshot,
104                                                              fb_info_tra_snapshot_number,
105                                                              isc_info_tra_lock_timeout,
106 –                                                            fb_info_tra_dbpath,
106                                                              isc_info_tra_access,
107 <                                                            isc_info_tra_isolation]));
107 >                                                            isc_info_tra_isolation,
108 >                                                            fb_info_tra_dbpath]));
109    Attachment.ExecuteSQL(Transaction, 'Execute Procedure DELETE_EMPLOYEE ?', [8]);
110  
111    ResultSet := Attachment.OpenCursorAtStart(
# Line 169 | Line 169 | begin
169    DPB.Add(isc_dpb_user_name).AsString := Owner.GetUserName;
170    DPB.Add(isc_dpb_password).AsString := Owner.GetPassword;
171    DPB.Add(isc_dpb_lc_ctype).AsString := CharSet;
172 –  DPB.Add(isc_dpb_set_db_SQL_dialect).AsByte := SQLDialect;
172  
173    writeln(OutFile,'Opening ',Owner.GetEmployeeDatabaseName);
174    Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines