我使用Access数据库,并且必须使用到SQL Server的数据源连接。如何使用ADODB.Recordset填充ListBox(错误91)在Access中执行自动填充
要做到这一点我使用ADODB对象有:
-ADODB.Connection
-ADODB.Recordset
代码跟上时代的,下面伊恩的观察Kenney
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
Dim rs As ADODB.Recordset
cnn.ConnectionString = "driver={SQL Server};provider=SQLOLEDB;server=10.****;uid=****readonly;pwd=****readonly;database=****"
cnn.Open
Set rs = cnn.Execute("SELECT [MATRI], [NOMPRE] FROM SCHEME_DB.TABLE WHERE NOMPRE LIKE '*" & Me.Textbox_recherche.Text & "*'")
Me.Liste_choix.RowSourceType = "Table/List"
Me.Liste_choix.Recordset = rs
rs.Close
cnn.Close
(此代码(代码的一部分)是一种在Access中使用文本框和列表框执行自动完成的方法)
而且我运行此代码时出现错误91:“错误91:对象变量或块变量未设置“。
我不明白如何解决此问题。
在此先感谢。
谢谢,我给你的赏金,但我认为一个重要的问题是如何声明ADODB.Connection对象的方式。我们必须声明这个对象.Properties(不知道具体为什么......)就像我的回答中一样...... – 2013-04-30 12:14:03