在线等一个COMBOBOX控件添加DATA数据库的问题，100分请高手指点

[oandy]

我要在combox控件中添加数据库（database.mdb）中的表（matical）字段（“名称”）内容，用data控件属性窗口中的DatabaseName可以指定一个数据库绝对地址，并且可以执行。但是怎么为什么用如下代码指定DatabaseName执行到第5行就出现对象变量未设置，是否可用ADO啊，如何做呢？

代码如下：

1 datName = App.Path & "\dbase\database.mdb"
2 DatMatical.DatabaseName = datName
3 DatMatical.RecordSource = "matical"
4 Combo1.Clear
5 DatMatical.Recordset.MoveFirst
6 If Not DatMatical.Recordset.EOF Then
7 Do While Not DatMatical.Recordset.EOF
8 Combo1.AddItem DatMatical.Recordset.Fields("名称")
9 DatMatical.Recordset.MoveNext
10 Loop
11 Combo1.ListIndex = 0
12 End If

[jf811029]

楼上说得对。

[since1990]

up

[of123]

1 datName = App.Path & "\dbase\database.mdb"
2 DatMatical.DatabaseName = datName
3 DatMatical.RecordSource = "matical"
DatMatical.Refresh

[gemgama]

在第4行之后添一句：
DatMatical.RecordSource.Refresh

[skile]

With Adodc1
.CommandType = adCmdUnknown
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& datName &";Persist Security Info=False"
.RecordSource = "matical"
.Refresh
End With
试试看！

[飘零风]

在第4行之后添一句：
DatMatical.RecordSource.Refresh

不用Refresh方法，你对RecordSource的修改是不会生效的。