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 |
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); |