未找打方法或数据成员?
datalink = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.1.90\SFCS\data.mdb;Jet OLEDB:Database password=27362003"
Set db = New Connection
db.CursorLocation = adUseClient
db.Open datalink
Set AdoData = New Recordset
AdoData.Open "Select * From Index", db, adOpenStatic, adLockOptimistic
Do While Not AdoData.EOF
DataCombo1.AddItem AdoData.Fields("Index1")
AdoData.Recordset.MoveNext
AdoData.Close
代码如上,编译的时候说编译错误,未找到方法或数据成员,怎么回事?
另外,在写代码的时候,DataCombo1.的时候,输入A,不见AddItem出现?是哪里出了问题?
[解决办法]
- VB code
'Index是系统关系字,用方括号括起来AdoData.Open "Select * From [Index]", db, adOpenStatic, adLockOptimistic
[解决办法]
DataCombo没有AddItem 方法 只能使用绑定数据库记录的方法来添加项目
如果想添加非数据库内容项目 应该在查询中UNION SELECT "项目"
[解决办法]
用 ComboBox 替代你的 DataCombo,如果不需要通过它来自动选中记录的话。