标题: [求助]请问这样写总是错，请高手指点！ [打印本页] 作者: ckp 时间: 2003-2-22 22:42 标题: [求助]请问这样写总是错，请高手指点！ Dim db As Database
Dim tb1 As TableDef
Dim red As Recordset
Dim fel As Field
Dim sss As Recordset
Set db = DBEngine.Workspaces(0).Databases(0)
Set tb1 = db.TableDefs("zch")
Set sss = tb1.OpenRecordset("zch") （这句出错）
End Sub[em08]作者: 飘然 时间: 2003-2-23 04:24
Set sss = tb1.OpenRecordset("zch", dbOpenDynaset)作者: Roadbeg 时间: 2003-2-23 05:36
把 Set tb1 = db.TableDefs("zch")
Set sss = tb1.OpenRecordset("zch") （这句出错）
这两句改为:
set sss=db.openrecordset("zch")