149 |
|
|
150 |
|
ext := UpperCase(ExtractFileExt(FileName)); |
151 |
|
|
152 |
< |
if ext = 'ODB' then |
152 |
> |
if ext = '.OLDB' then |
153 |
|
backend := DB_ADB |
154 |
< |
else if ext = 'DAT' then |
154 |
> |
else if ext = '.DAT' then |
155 |
|
backend := DB_ONI |
156 |
|
else |
157 |
|
begin |
172 |
|
begin |
173 |
|
FLastID := FConnections[i].ConnectionID; |
174 |
|
Result := FLastID; |
175 |
+ |
Msg := SM_OK; |
176 |
|
end |
177 |
|
else |
178 |
|
begin |
180 |
|
FConnections[i].Free; |
181 |
|
FConnections[i] := nil; |
182 |
|
SetLength(FConnections, Length(FConnections) - 1); |
183 |
< |
Msg := SM_UnknownError; |
183 |
> |
Msg := CreateMsg; |
184 |
|
end; |
185 |
|
end; |
186 |
|
|