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