小编Cor*_*rey的帖子

我们有一个相当大的Access前端应用程序,它已在Access 2010上运行.它广泛使用ADO记录集来访问SQL服务器上的数据,并经常使用UniqueTable表单属性.

我们希望明年初将整个办公室迁至Office 2013,但在测试过程中,我们发现Access 2013无法使用我们使用的代码UniqueTable.任何尝试设置UniqueTable结果的错误消息:

You entered an expression that has an invalid reference to the property UniqueTable

以下代码适用于Access 2010,但在尝试设置时遇到Access 2013上面的错误UniqueTable:

dim conn AS New ADODB.Connection
conn.ConnectionString = "DATA PROVIDER=SQLOLEDB;DATA SOURCE=server1;DATABASE=database1;Integrated Security=SSPI;"
conn.CursorLocation = adUseServer
conn.Provider = "MSDataShape"
conn.Open

Dim cmd As New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.CommandText = "SELECT TOP 10 * FROM Members WHERE MemberID IS NOT NULL"

cmd.Execute

Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient …

我有一些用于扫描文件系统的脚本，它们以最小的可感知输出运行了很长时间。我想做的是在输出面板中显示当前路径，但不要用垃圾输出填充它。

目前我正在使用Util.ProgressBar提供某种反馈，但想要一个不占用太多空间的解决方案，我没有用的东西。

我已经尝试创建和转储一个System.Windows.Forms.Label和其他各种控件，但这似乎创建了一个新的OutputPanel，仅在查询执行完成后才显示，这不是我需要的。

有没有办法实现这一点，还是我需要请求乔添加一些新的东西？