155 |
|
DPB := FirebirdAPI.AllocateDPB; |
156 |
|
DPB.Add(isc_dpb_user_name).setAsString(Owner.GetUserName); |
157 |
|
DPB.Add(isc_dpb_password).setAsString(Owner.GetPassword); |
158 |
– |
DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect); |
158 |
|
Attachment := FirebirdAPI.OpenDatabase(Owner.GetNewDatabaseName,DPB); |
159 |
|
QueryDatabase(Attachment); |
160 |
|
Attachment.Disconnect; |
165 |
|
DPB.Add(isc_dpb_user_name).setAsString(Owner.GetUserName); |
166 |
|
DPB.Add(isc_dpb_password).setAsString(Owner.GetPassword); |
167 |
|
DPB.Add(isc_dpb_lc_ctype).setAsString('WIN1252'); |
169 |
– |
DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect); |
168 |
|
Attachment := FirebirdAPI.OpenDatabase(Owner.GetNewDatabaseName,DPB); |
169 |
|
QueryDatabase(Attachment); |
170 |
|
|