使用VB 6和Access 2003

我正在使用两个命令按钮(处理，取消)

当我运行程序时，请按"取消"按钮–表单立即卸载。 如果我按"处理"按钮，然后按"取消"按钮，则该表单不会立即卸载。

在"处理"按钮中，我编写了如下代码：

Getting the data from the database and creating a record set, creating a temporary table…,

在VB代码处理数据库时，是否有任何方法可以立即退出程序(例如，创建记录集，创建临时表)？

在"取消"按钮中，我编写了这段代码

使用数据库时如何立即退出程序？

需要VB 6代码帮助

它可能挂起的另一个原因是VB6正在等待数据库。您正在数据库上运行的查询是长时间运行的，还是需要很长时间的VB6代码？

如果数据库查询引起了问题，并且您正在使用ADO，则可以使用异步数据库连接。逻辑上的代码可能会更加复杂，因为您必须设置回调方法才能在每个数据库调用完成后继续处理。

您可以通过以下方式建立这样的连接：

执行这样的查询/存储过程-您将在这里注意到的主要区别是，代码不会像挂起一样直到查询完成，而是像往常一样继续执行：

取消正在运行的查询，如下所示：

以及查询完成时的所有重要回调：

您可能会发现以上内容对于您想要的内容而言是过大的；我只是自己实现了，因为该窗口是专门为长时间运行的查询而设计的，并且窗口保持响应状态并允许中途取消查询是非常重要的。

据我所知，但是，如果您不使用异步查询方法，则VB6将保持无响应，直到您的m_conn.Execute方法返回。

如果延迟是由于VB6代码本身而发生的-例如，在您正在创建临时表的所有工作中，那么我同意MarkJ的"经典"答案并使用DoEvents-尽管看似笨拙的机制，但它确实起作用很不错。在整个过程中撒一些，您应该注意到一些改善。尽管可能还不够完美，但可能已经足够了。

例如

每当用户单击一个DoEvents块时，如果用户单击"取消"按钮，则代码将触发。

注意：您可能还需要对在代码仍在运行时卸载表单有所警惕，但我不认为一切都会正确卸载。在这种情况下，您可能想要类似以下内容：

问题可能出在"取消"按钮的Click事件没有触发，因为您的单个线程正在忙于处理。

尝试：

不久，请在"处理"按钮的代码中编写更多DoEvent。 或者使用DoEvents的替代代码，它比DoEvents更好，更快。 http://nirsoft.net/vb/doevents.html