procedure OpenDataBase(DatabaseName: String);
var
dbe: _DBEngine;
begin
try
dbe := DBEngine(CreateOleObject('DAO.DBEngine.36'));
except
try {For DAO 3.5}
dbe := DbEngine(CreateOleObject('DAO.DBEngine.35'));
except
raise;
end;
end;
db:=dbe.OpenDatabase(DatabaseName,true,false,'');//Возникает ошибка
end;
Ошибка при вызове метода OpenDatabase
Здравствуйте!
При вызове данной процедуры возникает ошибка типа "Ошибочный аргумент". Не могу разобраться в чем проблема.
Подскажите, пожалуйста, что не так. Заранее спасибо.
bafy, [COLOR=red]читай пожалуйста правила форума Делфи, там приведен пример использования тегов код.[/COLOR]
При вызове данной процедуры возникает ошибка типа "Ошибочный аргумент". Не могу разобраться в чем проблема.
Код:
Подскажите, пожалуйста, что не так. Заранее спасибо.
bafy, [COLOR=red]читай пожалуйста правила форума Делфи, там приведен пример использования тегов код.[/COLOR]