ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/testsuite/Test2.pas
(Generate patch)
# Line 157 | Line 157
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
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