Quit() 使 Access 暂时可见

Question

我正在尝试连接到访问数据库并检索信息。

一切顺利，项目几乎完成，但我需要弄清楚如何退出互操作。

我首先创建我的访问应用程序，然后确保可见设置为 false。 （我没有看到 Access）但是一旦我的代码到达 app.Quit() 行（虽然使用 step 进行了验证），Access 就会在屏幕上闪烁，只是为了再次消失。

附加信息：如果我通过访问窗口执行一个步骤不会消失并且我无法手动关闭它（红色 x 右上角）。该应用程序只是重新打开空白。我必须强制关闭它。

正如您在我注释掉的代码中看到的那样，我使用 Process Kill 来确保屏幕上没有任何闪烁，但这会导致我的应用程序变得不稳定（由于崩溃而创建了如此多的访问数据库备份）。

如果您体验正常（空白凝视）。如果您有直觉，请至少让我知道从哪里开始挖掘。

static public DataTable ExecuteSQLToDataTable(string sql)
        {
            DataTable dt = new DataTable();

            lock (Locks.AccessDB)
            {
                Microsoft.Office.Interop.Access.Application accApp = new Microsoft.Office.Interop.Access.Application();
                accApp.Visible = false;
                Microsoft.Office.Interop.Access.Dao.Recordset rst = null;
                Microsoft.Office.Interop.Access.Dao.Database cdb = null;


                try
                {
                    accApp.OpenCurrentDatabase(ConnectionDatabase.DatabasePath, false, @"[somepassword]");

                    cdb = accApp.CurrentDb();
                    rst =
                        cdb.OpenRecordset(sql,
                        Microsoft.Office.Interop.Access.Dao.RecordsetTypeEnum.dbOpenSnapshot);
                    rst.MoveLast();
                    int recordCount = rst.RecordCount;
                    rst.MoveFirst();
                    object[,] recordsArray = (object[,])rst.GetRows(recordCount);

                    var rowCount = recordsArray.GetLength(1);
                    var columnCount = recordsArray.GetLength(0);

                    var dtTemp = new DataTable();
                    foreach (Microsoft.Office.Interop.Access.Dao.Field fld in rst.Fields)
                        dt.Columns.Add(fld.Name, typeof(string));

                    foreach (var r in Enumerable.Range(1, rowCount))
                        dt.Rows.Add(Enumerable.Range(1, columnCount)
                            .Select(c => recordsArray[c - 1, r - 1]).ToArray());

                }
                catch
                {
                    //TODO Add catch
                }
                finally
                {

                    GetWindowThreadProcessId(accApp.hWndAccessApp(), out int id);
                    if (rst != null) { Marshal.ReleaseComObject(rst); }
                    if (cdb != null) { Marshal.ReleaseComObject(cdb); }
                    if (accApp != null) { accApp.Quit(); Marshal.ReleaseComObject(accApp); }
                    rst = null;
                    cdb = null;
                    accApp = null;
                    //Process.GetProcessById(id).Kill();

                }

                return dt;
            }
        }

Locks 是一个静态类 Locks.AccessDB 只是一个空对象

Answer 1

我倾向于相信，当您调用 all Quit() 时，Access 正在做自己的事情以在屏幕上显示自己。

您可以通过使用 SetWindowPos 将 Access 窗口移出屏幕来解决此问题，这样您在调用 Quit() 时就不会看到它。