Доступ к свойствам MSAccess без фактического открытия базы данных

Question

Я пытаюсь получить доступ к свойствам MS Access без фактического открытия базы данных.

Вот код для лучшего понимания:

var processStartInfo = new ProcessStartInfo(args[0]) 
    { 
        WindowStyle = ProcessWindowStyle.Hidden, 
        CreateNoWindow = true
    };

Process.Start(processStartInfo);

application = (Access.Application)Marshal.GetActiveObject("Access.Application");

dao.Property allowByPassKeyProperty = null;

foreach (dao.Property property in application.CurrentDb().Properties)
{
    if (property.Name == "AllowByPassKey")
    {
        allowByPassKeyProperty = property;
        break;
    }
}

Моя проблема в том, что в этом случае я открываю базу данных, чтобы найти свойства (application.CurrentDb (). Properties), и запускается программа запуска MS Access.

Я хочу избежать всего, что нужно при запуске, и просто ввести правильное значение для свойства.

Можно ли просмотреть свойства, возможно, с отражением и поздним связыванием, например: http://www.codeproject.com/KB/database/mdbcompact_latebind.aspx?

Или есть какой-то другой способ добиться того, чего я хотел бы?

Answer 1

На тот случай, если кто-то работает с MS Access и нуждается в той же программе, вот код.

Программа может переключать свойство AllowBypassKey в файлах MS Access * .mdb, * .mde.Протестировано только с MS Access 2003. Это может быть чрезвычайно полезно, если вы деактивировали свойство, и ваш макрос AutoExec выходит из строя.

namespace ToggleAllowBypassKey
{
    public class Program
    {
        private static DAO.DBEngine dbEngine;

        private static DAO.Database database;

        public static void Main(string[] args)
        {
            try
            {
                if (args.Length == 0)
                {
                    Console.WriteLine("Please enter an MS Access application path as a parameter!");
                    return;
                }

                dbEngine = new DAO.DBEngine();
                database = dbEngine.OpenDatabase(args[0]);

                DAO.Property allowBypassKeyProperty = null;

                foreach (dao.Property property in database.Properties)
                {
                    if (property.Name == "AllowBypassKey")
                    {
                        allowBypassKeyProperty = property;
                        break;
                    }
                }

                if (allowBypassKeyProperty == null)
                {
                    allowBypassKeyProperty = database.CreateProperty("AllowBypassKey", DAO.DataTypeEnum.dbBoolean, false, true);
                    database.Properties.Append(allowBypassKeyProperty);
                    Console.WriteLine("AllowBypassKey Property has been added. It's Value is '" + allowBypassKeyProperty.Value + "'");
                }
                else
                {
                    allowBypassKeyProperty.Value = !allowBypassKeyProperty.Value;
                    Console.WriteLine("AllowBypassKey set to '" + allowBypassKeyProperty.Value + "'!");
                }
            }
            catch(Exception exception)
            {
                Console.WriteLine("Exception Message: " + exception.Message);
                Console.WriteLine("Inner Exception:" + exception.InnerException);
            }
            finally
            {
                database.Close();
                System.Runtime.InteropServices.Marshal.ReleaseComObject(database);
                database = null;

                System.Runtime.InteropServices.Marshal.ReleaseComObject(dbEngine);
                dbEngine = null;

                Console.WriteLine();
                Console.WriteLine("Press enter to continue ...");
                Console.ReadLine();
            }
        }
    }
}

Answer 2

Извините, у меня нет подробностей, но я изучаю использование DAO для открытия базы данных Access (при условии, что это до 2007 года). DAO - это собственный код доступа / Jet, поэтому вам не нужно запускать все приложение Access.

Sone старый код VB.Net (да, .Net), который у меня есть:

m_oEngine = New DAO.DBEngine

m_oEngine.SystemDB = sWorkgroupFile

m_oWorkspace = m_oEngine.CreateWorkspace("My Workspace", sUserName, sPassword, DAO.WorkspaceTypeEnum.dbUseJet)

m_oDatabase = m_oWorkspace.OpenDatabase(sDatabaseFile, bExclusive, bReadOnly)  ' Note DAO docs say the second parameter is for Exclusive