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

Comparing ibx/branches/udr/testsuite/Test2.pas (file contents):
Revision 379 by tony, Mon Jan 10 10:08:03 2022 UTC vs.
Revision 396 by tony, Thu Feb 17 11:57:23 2022 UTC

# Line 157 | Line 157 | begin
157    DPB.Add(isc_dpb_user_name).setAsString(Owner.GetUserName);
158    DPB.Add(isc_dpb_password).setAsString(' ');
159    DPB.Add(isc_dpb_lc_ctype).setAsString(CharSet);
160 –  DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect);
160    try
161      Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
162    except on e: Exception do
# Line 178 | Line 177 | begin
177    writeln(OutFile,'Now open the employee database as a local database');
178    DPB := FirebirdAPI.AllocateDPB;
179    DPB.Add(isc_dpb_lc_ctype).setAsString(CharSet);
181 –  DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect);
180    DPB.Add(isc_dpb_user_name).setAsString(Owner.GetUserName);
181    if FirebirdAPI.GetClientMajor < 3 then
182      DPB.Add(isc_dpb_password).setAsString(Owner.GetPassword);

Diff Legend

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