紧急求助: DBGRID 和DBLIST 控件问题.
nieer 2003-08-23 11:01:28 Private Sub Command1_Click()
Dim ws As Workspace
Dim db As Database
Dim rs1 As Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("h:\通讯录.mdb")
Set rs1 = db.OpenRecordset("通讯", dbOpenDynaset)
Set DBGrid1.DataSource = rs1
End Sub
Private Sub Command2_Click()
Dim ws As Workspace
Dim db As Database
Dim rs1 As Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("h:\通讯录.mdb")
Set rs1 = db.OpenRecordset("通讯", dbOpenDynaset)
Set DBlist1.DataSource = rs1
dblist1.listfield="xm"
End Sub
执行COMMAND1 时就是用DBGRID时提示错误:类不支持自动化或不支持期望的接口.执行COMMAND2时就是用DBLIST时提示:对象变量或WITH块变量未设置.我引用的是DAO 3.51.
但用数据控件绑定这两个控件使用又一切正常.
请高手指点很急谢谢.