Object的使用问题。提示类型不匹配

yorkjun

Set tbfTableDef = dbsDB.CreateTableDef(stgTblCasioContentTmp)
    Set fldField = tbfTableDef.CreateField("Barcode", dbDouble)
    tbfTableDef.Fields.Append fldField
    Set fldField = tbfTableDef.CreateField("CurrentSP", dbDouble)
    tbfTableDef.Fields.Append fldField

Set rst = dbsDB.OpenRecordset("TempCasioInput")
            With rst
                  ' Add new record to end of Recordset object.
                  .AddNew
                  !Barcode = Barcode
                  !CurrentSP = CurrentSP
            End With

在以上两段代码中（从别处抄的），在引用菜单中选中DAO后，总是提示“类型不匹配”而无法继续。请问是什么原因。
[em04][em04][em04]

大熊

dim dbsDB as dao.database
set dbsdb=currentdb
补上试试。

yorkjun

已经有了，刚刚忘了写。出错时主要问题在下面两句
    Set fldField = tbfTableDef.CreateField("Barcode", dbDouble)

    Set rst = dbsDB.OpenRecordset("TempCasioInput")

大熊

stgTblCasioContentTmp的值是什么？

yorkjun

就是“TempCasioInput”

大熊

建立新表的DAO简例如下：你可参照一下（因你抄来的代码编的不是很顺畅）
Ps.建表用SQL更方便，也更快
Dim db As DAO.Database
Dim tbl As DAO.TableDef

Set db = CurrentDb
Set tbl = db.CreateTableDef("tblContact")
With tbl
    .Fields.Append .CreateField("FirstName", dbText)
    .Fields.Append .CreateField("LastName", dbText)
    .Fields.Append .CreateField("hone", dbText)
    .Fields.Append .CreateField("Notes", dbMemo)
End With
db.TableDefs.Append tbl

yorkjun

上面的都没问题，也能建立新表，但是但我打开数据集，准备添加数据时出问题。
如果前面定义 Dim rst as RecordSet,在后面写
Set rst = db.openrecordset("tblContact")
        with rst
             .addnew
时，在“Set rst....."又出现Error 13 类型不匹配，如果是定义Dim rst as RecordSets,
Error 13没有了，但是在".addnew"处又有"编译错误，method or data member not found?"

实在小弟不懂，望指教。
附：开始有问题是没有引用DAO，这个是不是也要引用什么？加入SQL语句方法，也要引用吗?

accessxiao

You may try this as below:
dim rst as dao.recordset

yorkjun

在此多谢各位，问题已经解决了，我取消了引用中的“MicroSoft ActiveX Data Object Library" 和 另一个OLE的引用，就可以了，看来是ADO和DAO的问题。
原来的语句基本没有大问题。

以后多交流。