Я разработал приложение командной строки на C#, которое запускает некоторые макросы в MS ACCESS, но в производственной среде я получаю следующую ошибку:
System.Runtime.InteropServices.COMException (0x800A09B6): You can´t carry out this action at the present time.
at Microsoft.Office.Interop.Access.DoCmd.RunMacro(Object MacroName, Object RepeatCount, Object RepeatExpression)
Когда я снова запускаю приложение, оно работает нормально.
Это код:
public void RunMacros()
{
Application access = null;
_runningMacros = true;
CloseMessageBox("Microsoft Access"); // Thread to close MsgBoxes
try
{
access = new Application();
access.AutomationSecurity = Microsoft.Office.Core.MsoAutomationSecurity.msoAutomationSecurityLow;
var databases = MdbSettings.Config.Databases;
for (var mdbIndex = 0; mdbIndex < databases.Count; mdbIndex++)
{
if (databases[mdbIndex].Type == ReportType)
{
var mdbFile = databases[mdbIndex].File;
if (mdbFile.StartsWith("OcnTs*", StringComparison.InvariantCultureIgnoreCase))
{
mdbFile = mdbFile.Replace("*", Settings.DateReplaceName);
}
var mdbFullPath = GetFileFullPath(mdbFile, MdbPath);
access.OpenCurrentDatabase(mdbFullPath, Settings.IsDbExclusive);
for (var macrosIndex = 0; macrosIndex < databases[mdbIndex].Macros.Count; macrosIndex++)
{
var macro = databases[mdbIndex].Macros[macrosIndex].Name;
var message = string.Format("{0}, macro: {1}", Path.GetFileName(mdbFullPath), macro);
Log.Write(message);
access.DoCmd.RunMacro(macro);
}
access.CloseCurrentDatabase();
}
}
_runningMacros = false;
access.Quit(Microsoft.Office.Interop.Access.AcQuitOption.acQuitSaveNone);
Marshal.ReleaseComObject(access);
access = null;
}
catch (Exception ex)
{
Log.Write(ex.ToString());
try
{
Marshal.ReleaseComObject(access);
}
catch (Exception e)
{
Log.Write("Error realeasing Access application: " + e.ToString(), Log.Severity.Warning);
}
throw;
}
}
Может кто-нибудь помочь мне исправить ошибку?
ИЗМЕНИТЬ:
- Ошибка возникает только в производственной среде
- В производственной среде установлен MS Access 2010
- В среде разработки установлен MS Access 2016
- Каждый макрос запускает от 6 до 20 запросов.
- Ошибка не всегда возникает в одном и том же макросе.
Я полностью согласен с @Erik. Но что касается вашей дополнительной информации: всегда очень плохая идея разрабатывать решение взаимодействия Office для более новой версии приложения. Всегда используйте версию самый старый, которую вы ожидаете поддерживать. Как правило, обратная совместимость поддерживается по мере возможности. Однако наоборот - нет.
Из-за некоторых внутренних ограничений я должен вызывать макросы вместо того, чтобы выполнять запросы напрямую.
Если вы используете взаимодействие для запуска макросов, запускающих запросы, я настоятельно рекомендую исключить среднего человека и просто использовать взаимодействие для выполнения запросов (или еще лучше: не используйте взаимодействие вообще и выполняйте запросы с использованием механизма базы данных DAO) . Если макрос обнаруживает ошибку во время выполнения запроса (отсутствующий параметр, неожиданное нулевое значение), вы не можете это обнаружить, и вы получите неожиданные ошибки, подобные тем, которые вы получаете в настоящее время.